Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]从指定网页下载数据


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

主题：[求助]从指定网页下载数据
帅哥哟，离线，有人找我吗？
188802386
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		[求助]从指定网页下载数据  发帖心情 Post By：2014/10/9 10:27:00 [显示全部帖子]

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

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


此主题相关图片如下：qq截图20141009102707.png
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：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";
请问这个怎么提取到表格里面呢

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/9 10:53:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/9 22:12:00 [显示全部帖子]

系统界面

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20141009221250.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/10 11:01:00 [显示全部帖子]

貌似我这个网页与长江换货那个不一样了，所有号码之间用逗号隔开，不知道怎么弄，现将表传上来，麻烦老师弄下，另外请说明下是怎么弄得，不然我还不会，谢谢了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:幸运农场.table
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/10 12:03:00 [显示全部帖子]

甜老师，如果加个查询多少期 该怎么加呢

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/10 12:19:00 [显示全部帖子]

                            <td style="height: 30px; padding-top: 10px; width: 700px;">
                                查询&nbsp;<input name="TextBox1" type="text" value="100" id="TextBox1" style="width:50px;" />
                                期数据 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Button2" value="查询" id="Button2" />
                            </td>
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/16 19:22:00 [显示全部帖子]

甜老师 我自己试着从另外网站获取数据 代码如下：
DataTables("xync").DataRows.Clear()
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://trend.baidu.lecai.com/cqkl10/tailTrend.action?recentPhase=200&onlyBody=false&phaseOrder=up")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("chartTableWrapper").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 1 To elems.Count - 25
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim nr As Row = Tables("xync").AddNew
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        If str.IndexOf(".jpg") > -1 Then
            nr(j) = str.SubString(str.IndexOf(".jpg")-2,2)
        Else
            nr(j) = str
        End If
    Next
Next
Tables("xync").save

但要出现个
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20141016192109.png
图片点击可在新窗口打开查看

点击确认后也能导出数据，但导出的第二列由于数字“19”“20”是红色标注的，就在表格里生成了多余的字母，如

图片点击可在新窗口打开查看此主题相关图片如下：1111111111.png
图片点击可在新窗口打开查看
还有个问题就是能不能像网页那样不显示多余的遗漏

图片点击可在新窗口打开查看此主题相关图片如下：2222222222222.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：3333333333.png
图片点击可在新窗口打开查看
项目上传
[此贴子已经被作者于2014-10-16 19:25:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/10/16 19:29:00 [显示全部帖子]

项目
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:幸运农场2.table
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 7 次数据查询