Foxtable(狐表) → 用户栏目 → 专家坐堂 → 读取网页数据


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

主题：读取网页数据
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/10 10:58:00 [显示全部帖子]


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/12 9:31:00 [显示全部帖子]

这个意思？

 

If Tables("AD").Current(Cols(0)) Like "*A320" Then

 

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/28 15:09:00 [显示全部帖子]

以下是引用dixiaxiaodan在2019/3/28 15:02:00的发言：
有点蓝老师，弹出 “未将对象引用设置到对象的实例”，实例我已经上传了，麻烦帮忙看看，谢谢了。

 

请上传正确的，对应的实例测试。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/28 23:24:00 [显示全部帖子]

你给的实例我测试正常，请说明测试步骤。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/1 11:08:00 [显示全部帖子]

你上传的例子，我测试，没问题

 

下载信息  [文件大小：344.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:网页数据读取--ad.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/3 10:08:00 [显示全部帖子]

Dim web As New System.Windows.Forms.WebBrowser()
Dim Cols() As String = { "指令编号","修正案号","标题","生效日期"}
Dim dr As DataRow
For pg As Integer = e.Form.Controls("textbox1").Value To e.Form.Controls("textbox2").Value
    'Dim pg As Integer = 1
    Dim wz As String = "http://www.caacaad.org.cn/index.php?a=2&t=1&page= "& pg & "&"
    web.Navigate( wz )
    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
   
   
    Dim elems As object = web.Document.GetElementById("table1").GetElementsByTagName("tr")
    Dim m As Integer = 0
    Dim r As Integer = 0
    For Each elem As object In elems
        r = r + 1
        If r = elems.count Then
            Exit For
        End If
        Dim i As Integer = -1
        m = m + 1
        Dim tdelems As object =  elem.GetElementsByTagName("td")
        If tdelems.count > 0 Then
            Dim zl As String = tdelems(0).Innertext
            If m > 1 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
                If tdelems(0).Innertext Like "*A320*" Or tdelems(0).Innertext Like "*A330*" Or tdelems(0).Innertext Like "*MULT*" Or tdelems(0).Innertext Like "*B737*" Then
                    dr = DataTables("ad").Find("指令编号 ='"& zl &"'")
                    If dr Is Nothing Then
                        Tables("ad").AddNew
                        For Each tdelem As object In tdelems
                            i = i+1
                            If i < 3 Then
                                Tables("ad").Current(Cols(i)) = tdelems(i).Innertext
                            ElseIf i = 3 Then
                                Tables("ad").Current(Cols(i)) = tdelems(5).Innertext
                                Exit For
                            End If
                        Next
                    End If
                End If
            End If
        End If
    Next
Next
Tables("ad").save

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/10 23:13:00 [显示全部帖子]

1、

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122215&skin=0

 

下载信息  [文件大小：292.0 KB  下载次数：30]
图片点击可在新窗口打开查看点击浏览该文件:自动登陆网页例子.table

 

2、你要调用哪个页面的数据？ 调出浏览器的开发工具【F12】，然后看源码即可。
 回到顶部
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 次数据查询