Foxtable(狐表)用户栏目专家坐堂 → [求助]获取网页表格


  共有2507人关注过本帖树形打印复制链接

主题:[求助]获取网页表格

帅哥哟,离线,有人找我吗?
zto001
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10403 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/9/4 12:10:00 [只看该作者]

<td class="amount">
                      <span class="amount-pay">- 2.00</span>
             </td> 

下一个

<td class="detail">
  <div class="icon-group">
                        <a class="record-icon icon-detail icon-detail-trigger" data-type="detail" data-date="时间 " href="https://consumeprod.alipay.com:443/record/detail/simpleDetail.htm?bizType=TRADE&amp;bizInNo=2019090422001453710519136815&amp;gmtBizCreate=&#9;&#9;&#9;20190904081540&#10;&#9;" seed="iconGroup-recordIcon" smartracker="on"></a>
 
       
          </div>
</td>

下一个

<td class="status">
     <p class="text-muted">交易成功</p>
  <p class="text-muted"></p>
 
  <p class="ft-gray"></p>
 
    
</td>

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107381 积分:546178 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/4 13:48:00 [只看该作者]

试试

For i As Integer = 1 To trs.count-1
    Dim tr = trs(i)
    msgbox(tr .Innertext)
    Dim tds = tr.GetElementsByTagName("td")
if tds.count = 7
    'msgbox(tds(0).Innertext)
    msgbox(tds(2).Innertext)
    msgbox(tds(3).Innertext)
    msgbox(tds(4).Innertext)
end if
Next

 回到顶部
总数 12 上一页 1 2