- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何获取网页数据，保存在TABLE中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48864)
-- 发布时间：2014/4/7 20:03:00
-- [求助]如何获取网页数据，保存在TABLE中
想从网页中获取数据，然后保存在TABLE中，该如何操作呢？网址是下面的地址：
表格格式，就是图片中的这个样子
此主题相关图片如下：360截图20140407200306203.jpg
参看了论坛，里面找到“有点甜”老师的代码
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40217&page=0&move=pre
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 data As String = web.Document.Body.InnerText
msgbox(data)
[此贴子已经被作者于2014-4-7 20:04:51编辑过]
-- 发布时间：2014/4/7 20:13:00
--
用上面的代码，获得 data字符串，分析table表格需要的数字，从字符串 data 里截取，然后填到table里去吗？？
-- 发布时间：2014/4/7 20:45:00
-- 回复：（kolen）用上面的代码，获得data字符串，分析...
（错误类型：连接错误）
想帮你 但就是进不去你给的网址， 说链接错误....
-- 发布时间：2014/4/7 20:56:00
--
http://www.ccmn.cn/historyprice/cjxh_1/
这个网址你进不去吗？你再试试看
-- 发布时间：2014/4/8 10:06:00
--
你需要分析这个网页的结构，然后一个一个的获取信息，例如代码这样写
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
-- 发布时间：2014/4/8 10:07:00
--
参考文档
http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument_members%28v=vs.80%29.aspx
-- 发布时间：2014/4/12 22:40:00
--
谢谢有点甜老师,代码很有用。对网页源码没有接触过，但对着源码看，还是很有启发.谢谢了
-- 发布时间：2018/4/4 19:55:00
--
获取网页数据.
-- 发布时间：2019/11/9 10:56:00
--
看看谢谢