- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]从指定网页下载数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57961)
-- 发布时间：2014/10/9 10:27:00
-- [求助]从指定网页下载数据
我想把幸运农场的数据按期数 只显示30期 随时同步 并且把那些比如西瓜用数字1代替 直到奶牛用数字20表示 数据来源网址http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP
我想体现在表格里面 请问有谁会呀 求解答
此主题相关图片如下：qq截图20141009102707.png
-- 发布时间：2014/10/9 10:32:00
--
这个不难，你需要分析网页的构成，然后截取出数据。
每个网页的构成都是不一样的，你先参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49278&replyID=&skin=1
-- 发布时间：2014/10/9 10:33:00
--
-- 发布时间：2014/10/9 10:50:00
--
我看网页点右键查看源文件显示有 "141008066=09,13,14,17,10,12,18,07;141008067=08,11,15,17,05,02,04,07;141008068=15,06,16,05,13,04,12,17;141008069=15,07,05,02,18,16,08,10;141008070=08,19,04,06,12,02,14,17;141008071=05,06,04,03,18,11,08,14;141008072=20,02,15,18,19,09,17,13;141008073=01,13,05,18,06,04,20,15;141008074=17,13,20,11,03,10,19,06;141008075=20,08,03,16,01,19,09,06;141008076=03,09,19,07,02,10,17,14;141008077=16,05,13,19,01,08,03,14;141008078=18,07,17,12,06,10,09,15;141008079=14,06,09,08,04,13,20,02;141008080=03,13,07,11,16,01,06,02;141008081=20,08,04,19,05,16,17,14;141008082=07,10,16,18,02,01,11,13;141008083=04,07,19,16,09,08,14,11;141008084=20,10,17,16,18,02,11,06;141008085=15,12,01,18,03,07,16,09;141008086=08,07,10,06,04,02,14,18;141008087=15,02,09,07,05,20,01,11;141008088=01,17,05,04,11,06,18,12;141008089=09,15,17,20,11,12,08,05;141008090=13,11,05,19,18,02,03,12;141008091=02,08,20,11,15,18,06,14;141008092=14,07,01,15,20,02,05,06;141008093=17,15,20,14,08,10,16,11;141008094=07,13,09,18,11,16,08,12;141008095=03,17,10,09,08,19,16,18;141008096=08,01,18,10,11,16,05,12;141008097=14,10,16,08,03,20,12,18;141009001=11,10,16,03,14,17,06,13;141009002=01,20,11,04,02,16,13,06;141009003=14,09,15,20,10,07,17,12;141009004=15,12,13,11,02,17,18,03;141009005=07,08,10,20,01,19,05,17;141009006=20,18,11,10,15,09,17,07;141009007=14,03,13,01,06,07,17,19;141009008=20,15,12,09,05,01,02,11;141009009=13,20,12,09,11,02,06,19;141009010=15,20,07,13,06,09,14,01;141009011=02,14,04,16,03,09,18,07;141009012=14,05,12,01,20,18,11,16;141009013=11,13,07,20,10,08,15,01;141009014=18,05,02,13,03,07,17,06;141009015=02,04,12,03,10,15,08,16;141009016=04,15,20,13,14,19,02,05;141009017=20,18,11,13,16,03,09,15;141009018=15,11,02,08,16,09,19,17";
请问这个怎么提取到表格里面呢
-- 发布时间：2014/10/9 10:52:00
--
请看上面的例子，源码不是你这样的
-- 发布时间：2014/10/9 10:53:00
--
哪位大师能详细讲解下如何从网页上提取数据嘛 知识不全不知从何下手呀
-- 发布时间：2014/10/9 10:54:00
--
上面的例子已经很清晰了，你必须理解2楼的例子，才能再谈其它。
-- 发布时间：2014/10/9 22:10:00
--
我按照二楼的方式照搬，怎么连奖期第一列都不得行呢
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\'取数据
Dim Cols() As String = { "奖期" }
Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
Dim i As Integer = -1
m = m + 1
If m > 1 Then \'因为网页的表格有标题,如果不判断,就会增加出一个空行
Tables("幸运农场").AddNew
End If
Dim tdelems As object = elem.GetElementsByTagName("td")
For Each tdelem As object In tdelems
i = i + 1
Tables("幸运农场").Current(Cols(i)) = tdelem.Innertext
Next
Next
Tables("幸运农场").save
-- 发布时间：2014/10/9 22:12:00
--
系统界面
此主题相关图片如下：qq截图20141009221250.png
-- 发布时间：2014/10/9 22:14:00
--
不能照搬呐，你要分析你的网页啊，你下载个好一点的浏览器，然后查看源码。