主题：[求助]从指定网页下载数据

我想把幸运农场的数据按期数 只显示30期 随时同步 并且把那些比如西瓜用数字1代替 直到奶牛用数字20表示 数据来源网址http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP

我想体现在表格里面 请问有谁会呀  求解答

此主题相关图片如下：qq截图20141009102707.png

 这个不难，你需要分析网页的构成，然后截取出数据。

 

 每个网页的构成都是不一样的，你先参考

 

 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49278&replyID=&skin=1

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19482 参考文档   http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument_members%28v=vs.80%29.aspx

我看网页点右键查看源文件显示有 "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";
请问这个怎么提取到表格里面呢

 请看上面的例子，源码不是你这样的

哪位大师能详细讲解下如何从网页上提取数据嘛 知识不全不知从何下手呀

 上面的例子已经很清晰了，你必须理解2楼的例子，才能再谈其它。

我按照二楼的方式照搬，怎么连奖期第一列都不得行呢

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

系统界面

 

此主题相关图片如下：qq截图20141009221250.png

 不能照搬呐，你要分析你的网页啊，你下载个好一点的浏览器，然后查看源码。