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


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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/9 22:15:00 [只看该作者]

 不做，就做好表上传例子上来

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/9 22:27: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 elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("tr")

For i As Integer = 0 To elems.Count - 1
    output.show("开始")
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    For j As Integer = 0 To tdelems.count - 1
        output.show(tdelems(j).InnerHtml)
    Next
    output.show("结束")
    output.show("---------------------")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/10 11:15: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 elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 3 To elems.Count - 25
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim nr As Row = Tables("幸运农场").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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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>
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6849 积分：43345 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/10/10 12:40:00 [只看该作者]

以下是引用有点甜在2014-10-9 22:14:00的发言：
 不能照搬呐，你要分析你的网页啊，你下载个好一点的浏览器，然后查看源码。

这个源码的意思不理解，可以讲解一下么？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/10 14:34: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

web.Document.GetElementById("TextBox1").SetAttribute("Value", "5")
web.Document.GetElementById("Button2").InvokeMember("click")

msgbox("必须")

Dim elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 3 To elems.Count - 25
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim nr As Row = Tables("幸运农场").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
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/16 19:26:00 [只看该作者]

  每一种网页都是不同的啊。

 回到顶部
总数 23 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询