以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取网页表格  (http://foxtable.com/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&amp;bizInNo=2019090422001453710519136815&amp;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编辑过]