以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助:正则表达式获取相关网页元素 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84840) |
-- 作者:李孝春 -- 发布时间:2016/5/11 17:14:00 -- 求助:正则表达式获取相关网页元素 下面是网页源代码中的一部分 <table width="680"> <tr> <td height="35"> <h3> <a href="http://toutiao.com/item/6283004838989005313/" target="_blank" ga_event="source_url" ga_label="index_feed" >关注|“司法考试”将更名为“法律职业资格考试”考试难度有所上升</a></h3> </td> </tr> <tr> <td> <div style="float:left; max-height:180px; overflow:hidden; margin-right:10px" class="img_bg shadow_img"> <a target="_blank" href="http://toutiao.com/item/6283004838989005313/" ga_event="source_url" ga_label="index_feed"><img src="http://p2.pstatp.com/list/5c40008f9d353ab6875" width="202" /> </a> </div> <div class="text">2016-05-09 贵州检察来源 | 山东省人民检察院微信公众号“司法考试”更名为“法律职业资格考试”的法治意义“司法考试”将更名为“法律职业资格考试” 标志着法律职业共同体的真正形成一、“司法考试制度”到“国家统一法律职业资格考试制度”,标志法律职业共同体将真正形成中共中央办</div> <div class="clearfix"></div> </td> </tr> <tr> <td> <table class="item_info" width="100%"> <tr> <td>阅读: 194</td> <td>评论: 0</td> <td align="right">2016-05-10 16:46</td> </tr> </table> </td> </tr> </table> </div> </div> 经过在命令窗口中运行如下: Dim web As new System.Windows.Forms.WebBrowser web.Navigate("http://toutiao.com/m6051259851/") Do Until web.ReadyState = 4 Application.DoEvents Loop Dim bt As System.Windows.Forms.HtmlElement bt = web.Document.GetElementByID("keywords") \'今日头条单位标题 Output.Show(bt.innerText & " " & bt.GetAttribute("content")) Dim jj As System.Windows.Forms.HtmlElement jj = web.Document.GetElementByID("description") \'今日头条单位简介 Output.Show(jj.innerText & " " & jj.GetAttribute("content")) Dim bt1 As System.Windows.Forms.HtmlElement bt1 = web.Document.GetElementByID("pin-content") \' Output.Show(bt1.innerText & " " & bt1.GetAttribute("href")) 这个部分的代码不起作用 是不是ID元素错误啦 运行报错 求解决错误 并获取下列红色框中数据 |
-- 作者:大红袍 -- 发布时间:2016/5/11 17:29:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84510&skin=0
|