- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]获取网页信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110190)
-- 发布时间：2017/11/28 16:14:00
-- [求助]获取网页信息
老师，
如何能获取网页信息
http://www.cninfo.com.cn/information/companyinfo_n.html?financialreport?szmb000651
此主题相关图片如下：qq图片20171128161331.png
-- 发布时间：2017/11/28 16:47:00
--
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.cninfo.com.cn/information/financialreport/szmb000651.html")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tb As object = web.Document.GetElementsByTagName("table")(2)
Dim trs = tb.GetElementsByTagName("tr")
For i As Integer = 0 To trs.count-1
Dim tds As object = trs(i).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
output.show(i & "行" & j & "列:" & tds(j).innerText)
next
next
-- 发布时间：2017/11/28 17:03:00
--
老师，
Dim tb As object = web.Document.GetElementsByTagName("table")(2)
这个2哪里看出来的 找不到？
-- 发布时间：2017/11/28 17:25:00
--
指的是网页里的第三个table标签