- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 读取网页的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111555)
-- 发布时间：2017/12/24 21:37:00
-- 读取网页的问题
请教高手老师：
在网页http://emweb.securities.eastmoney.com/f10_v2/BonusFinancing.aspx?type=web&code=sh601166
我现在需要在里面提取“历年分红融资”,nlfhrz,表格里的数据。以前可行，现在代码判断不出"table"这个标签。
下面是网页这部分源代码，表格部分变成条件和循环语句了，动态的，有table，但我用狐表代码，它找不到这个标签。
此主题相关图片如下：历年分红融资.jpg
我以前的代码：
dim www as string
www="http://emweb.securities.eastmoney.com/f10_v2/BonusFinancing.aspx?type=web&code=sh601166"
\'读取东方财富网上的历年分红数据
Dim web As new System.Windows.Forms.WebBrowser \'定义一个web对象.
web.ScriptErrorsSuppressed = True \'报错时执行确定
web.Navigate(www) \'定义web连接.
Do While web.ReadyState <> 4
Application.DoEvents
Loop
output.Show(web.Document.GetElementsByTagName("talbe").count) ‘以前正常显示有3个table标签，现在这里它一直显示是0.
‘If web.Document.GetElementsByTagName("table").count>1 Then
’ Dim trs = web.Document.GetElementsByTagName("table")(1).GetElementsByTagName("tr") \'查找需要的表格数据.
\'下面是循环获取行数据的代码
请大侠老师帮下忙，谢谢！！
[此贴子已经被作者于2017/12/24 21:37:55编辑过]
-- 发布时间：2017/12/24 21:55:00
--
Dim www As String
www="http://emweb.securities.eastmoney.com/f10_v2/BonusFinancing.aspx?type=web&code=sh601166"
\'读取东方财富网上的历年分红数据
Dim web As new System.Windows.Forms.WebBrowser \'定义一个web对象.
web.ScriptErrorsSuppressed = True \'报错时执行确定
web.Navigate(www) \'定义web连接.
Do While web.ReadyState <> 4 OrElse web.Document.GetElementsByTagName("table").count = 0
Application.DoEvents
Loop
output.Show(web.Document.GetElementsByTagName("table").count)
-- 发布时间：2017/12/25 9:11:00
--
老师辛苦了，周末晚上都在帮解答问题。
我测试了一下，在单位 电脑上是商业版的，用的电信网络，测试正常。在家里是开发版的，用的移动网络，测试就一直处于暂停状态。不知是网络的原因吗？
-- 发布时间：2017/12/25 9:12:00
--
直接拷贝2楼代码测试，我测试没问题。