Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取网页数据,保存在TABLE中


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

主题:[求助]如何获取网页数据,保存在TABLE中

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/8 10:06:00 [显示全部帖子]

以下是引用kolen在2014-4-7 20:56:00的发言:
http://www.ccmn.cn/historyprice/cjxh_1/
这个网址你进不去吗?你再试试看

 

你需要分析这个网页的结构,然后一个一个的获取信息,例如代码这样写

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.ccmn.cn/historyprice/cjxh_1/")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop


'取数据
Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")
For Each elem As object In elems
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        output.show(tdelem.Innertext)
    Next
Next

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/8 10:07:00 [显示全部帖子]


 回到顶部