专家坐堂-[求助]获取网页表格Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取网页表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140354)

--  作者：zto001
--  发布时间：2019/9/4 9:29:00
--  [求助]获取网页表格

支付宝交易详情页面，我需要怎样才能让他导入狐表？

Dim web As System.Windows.Forms.WebBrowser = forms("窗口1").controls("webbrowser1").Basecontrol
Dim elems As object = web.Document.GetElementsByTagName("table")
msgbox(elems(0).Innertext)
ClipBoard.SetText(elems(0).Innertext)
Dim trs = elems(0).GetElementsByTagName("tr")
For i As Integer = 1 To trs.count-1
    Dim tr = trs(i)
    Dim tds = tr.GetElementsByTagName("td")
    msgbox(tds(0).Innertext)
Next

我要获取这一节内容。红色区域一直是空值。是我写错了吗
以下内容是专门发给有点蓝浏览
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:支付宝.zip

--  作者：有点蓝
--  发布时间：2019/9/4 9:37:00
--
网页抓数据这种问题请自行解决，看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278

--  作者：zto001
--  发布时间：2019/9/4 11:18:00
--
Dim web As System.Windows.Forms.WebBrowser = forms("窗口1").controls("webbrowser1").Basecontrol
Dim elems As object = web.Document.GetElementsByTagName("table")
msgbox(elems(0).Innertext)
ClipBoard.SetText(elems(0).Innertext)
Dim trs = elems(0).GetElementsByTagName("tr")
For i As Integer = 1 To trs.count-1
    Dim tr = trs(i)
    msgbox(tr .Innertext)
    Dim tds = tr.GetElementsByTagName("td")
    \'msgbox(tds(0).Innertext)
    msgbox(tds(2).Innertext)
    msgbox(tds(3).Innertext)
    msgbox(tds(4).Innertext)
Next
就红色区域有问题，只有第一个是空值，没有第二个第三个。可是我看一个tr下面有六个td代码

--  作者：有点蓝
--  发布时间：2019/9/4 11:25:00
--
For i As Integer = 1 To trs.count-1
    Dim tr = trs(i)
    msgbox(tr .Innerhtml) ‘显示什么？

--  作者：zto001
--  发布时间：2019/9/4 11:33:00
--

显示成这样
此主题相关图片如下：qq截图20190904113159.png

--  作者：有点蓝
--  发布时间：2019/9/4 11:54:00
--
msgbox(tr .Innerhtml) ‘显示什么？

--  作者：zto001
--  发布时间：2019/9/4 12:08:00
--

--  作者：zto001
--  发布时间：2019/9/4 12:08:00
--
如下
此主题相关图片如下：qq截图20190904120528.png

--  作者：zto001
--  发布时间：2019/9/4 12:09:00
--

此主题相关图片如下：qq截图20190904120541.png

--  作者：zto001
--  发布时间：2019/9/4 12:10:00
--
<td class="time">


          <p>今天</p>
        <p class="text-muted">   08:15
</p>

</td>

下一个

<td class="name">
      <p class="consume-title" style="visibility: visible;">
                                 <a href="https://consumeprod.alipay.com:443/record/detail/simpleDetail.htm?bizType=TRADE&bizInNo=2019090422001453710519136815&gmtBizCreate=20190904081540" target="_blank" seed="consumeTitle-link" smartracker="on">商品</a>
                    </p>


                      <p class="name p-inline ft-gray" style="visibility: visible;">
        空心竹 |
                </p>


                                  <div class="consume-bizNo ft-gray fn-pr J-tradeNo-container p-inline" id="J-tradeNo-container-1">
       流水号

                       <a class="J-tradeNo-copy J-tradeNo" id="J-tradeNo-1" href="javascript:;" data-clipboard-text="2019090422001453710519136815" title="2019090422001453710519136815" seed="JTradeNoContainer1-JTradeNo1" smartracker="on">   2019...815
</a>
      </div>


    </td>

[此贴子已经被作者于2019/9/4 12:10:30编辑过]