Foxtable(狐表)用户栏目专家坐堂 → 各位大神 以下网页数据 怎么抓取, 请赐教


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

主题:各位大神 以下网页数据 怎么抓取, 请赐教

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


加好友 发短信
等级:幼狐 帖子:148 积分:2075 威望:0 精华:0 注册:2013/3/3 12:34:00
各位大神 以下网页数据 怎么抓取, 请赐教  发帖心情 Post By:2016/12/6 22:57:00 [只看该作者]

http://data.eastmoney.com/zjlx/300556.html

各位大神 以下网页数据 怎么抓取, 请赐教,谢谢~~


图片点击可在新窗口打开查看此主题相关图片如下:7lgwf04}wq{48z)t$0_m7eh.png
图片点击可在新窗口打开查看





 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110601 积分:562907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/6 23:01:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:148 积分:2075 威望:0 精华:0 注册:2013/3/3 12:34:00
  发帖心情 Post By:2016/12/7 8:36:00 [只看该作者]

大神,以上方法 抓不到这些数据,数据未在网页代码中显示出来

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110601 积分:562907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/7 8:41:00 [只看该作者]

数据在网页代码里的才有可能提取。

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


加好友 发短信
等级:幼狐 帖子:148 积分:2075 威望:0 精华:0 注册:2013/3/3 12:34:00
  发帖心情 Post By:2016/12/7 9:03:00 [只看该作者]

http://data.eastmoney.com/zjlx/300556.html

网页上 看得到这些数据, 但网页代码中 没有, 怎么抓取?

图片点击可在新窗口打开查看

图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110601 积分:562907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/7 9:09:00 [只看该作者]

看2楼,到事件里去抓取代码,而不是在浏览器看代码

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110601 积分:562907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/7 9:11:00 [只看该作者]

网页分析步骤参考这个帖子http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92571

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/7 10:14:00 [只看该作者]

 测试了下,用webbrowser是获取不了数据的。应该是限制执行了js代码。

 

 用下面的代码

 

Dim ie As Object = CreateObject("InternetExplorer.Application")
With ie
    '.Visible = True
    .Navigate("http://data.eastmoney.com/zjlx/300556.html")
    Application.DoEvents
    Do While .Busy OrElse .Document.GetElementById("data_superlr").Gettype.name = "DBNull" OrElse .Document.GetElementById("data_superlr").innerText = ""
        Application.DoEvents
    Loop
    output.show(.Document.GetElementById("data_superlr").innerText)
    output.show(.Document.GetElementById("data_ddlr").innerText)
    .quit
    ie = Nothing
End With


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


加好友 发短信
等级:幼狐 帖子:148 积分:2075 威望:0 精华:0 注册:2013/3/3 12:34:00
  发帖心情 Post By:2016/12/7 21:57:00 [只看该作者]

感谢这位仁兄, 太谢谢!!!!

 回到顶部