以文本方式查看主题 - 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 |
-- 作者:有点蓝 -- 发布时间: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 -- |
-- 作者:有点蓝 -- 发布时间: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编辑过]
|