- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]web内容提取 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133626)
-- 发布时间：2019/4/17 12:25:00
-- [求助]web内容提取
-- 发布时间：2019/4/17 12:43:00
--
把你的网页另存一下，打包发上来测试。
-- 发布时间：2019/4/18 10:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:resume.rar |
最近用chrom和火狐浏览器都不能点击添加附件，最后用IE可以；
附件是另存的文档，请帮忙分析一下，谢谢！
-- 发布时间：2019/4/18 11:48:00
--
参考代码
Dim web As new System.Windows.Forms.WebBrowser
web.navigate("C:\\Users\\dv rrxaI600 007\\Downloads\\resume\\resume.html")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tbs As object = web.Document.GetElementsByTagName("table")
\'For i As Integer = 0 To tbs.count-1
\'If tbs(i).Innerhtml.contains("luo111in@126.com")
\'output.show(i)
\'output.show(tbs(i).InnerHTML)
\'output.show("-------------")
\'End If
\'Next
Dim str = tbs(8).GetElementsByTagName("tr")(0).GetElementsByTagName("strong")(0)
msgbox(str.Innertext)
str = tbs(10).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)
str = tbs(11).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)
-- 发布时间：2019/4/18 11:57:00
--
一般抓取的时候可能tbs(i).Innerhtml.contains("luo111in@126.com") 是一个动态的，请问这个要如何修改；
-- 发布时间：2019/4/18 12:17:00
--
红色这段代码是用来测试的，可以删除
Dim web As new System.Windows.Forms.WebBrowser
web.navigate("C:\\Users\\dv rrxaI600 007\\Downloads\\resume\\resume.html")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tbs As object = web.Document.GetElementsByTagName("table")
\'For i As Integer = 0 To tbs.count-1
\'If tbs(i).Innerhtml.contains("luo111in@126.com")
\'output.show(i)
\'output.show(tbs(i).InnerHTML)
\'output.show("-------------")
\'End If
\'Next
Dim str = tbs(8).GetElementsByTagName("tr")(0).GetElementsByTagName("strong")(0)
msgbox(str.Innertext)
str = tbs(10).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)
str = tbs(11).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)