Foxtable(狐表)用户栏目专家坐堂 → [求助]抓取网页显示脚本错误如何处理?


  共有2022人关注过本帖树形打印复制链接

主题:[求助]抓取网页显示脚本错误如何处理?

帅哥哟,离线,有人找我吗?
dqlgood
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4387 威望:0 精华:0 注册:2011/7/5 9:38:00
[求助]抓取网页显示脚本错误如何处理?  发帖心情 Post By:2016/2/18 20:37:00 [只看该作者]

Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://vip.stock.finance.sina.com.cn/q/go.php/vDYData/kind/znzd/index.phtml")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim trs = web.Document.GetElementsByTagName("tr")
For i As Integer = 2 To trs.count - 1
    Dim str As String = ""
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count - 1
        str &= tds(j).InnerText & "   "
    Next
    output.show(str)
Next
显示

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160218202953.png
图片点击可在新窗口打开查看
如何处理?

[此贴子已经被作者于2016/2/18 20:38:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 20:41:00 [只看该作者]

Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://vip.stock.finance.sina.com.cn/q/go.php/vDYData/kind/znzd/index.phtml")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim trs = web.Document.GetElementsByTagName("tr")
For i As Integer = 1 To trs.count - 1
    Dim str As String = ""
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count - 1
        str &= tds(j).InnerText & "   "
    Next
    output.show(str)
Next

 回到顶部