Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这种网页数据如何抓取数据


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

主题：这种网页数据如何抓取数据
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/21 16:08:00 [显示全部帖子]

不要循环了，用笨方法。这个没有什么规律，只能这样，网页分析就是这样，别人的格式改一下，你就得改代码，不然就容易出错

Dim elems As object = web.Document.GetElementsByTagName("table")(0).GetElementsByTagName("tr")
Dim ndr As Row
Dim tds = elem(0).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
tds = elem(1).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
tds = elem(2).GetElementsByTagName("td")
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(0).innerText
ndr("内容") = tds(1).innerText
ndr = Tables("招标公告").AddNew()
ndr("名称") = tds(2).innerText
ndr("内容") = tds(3).innerText
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/21 11:53:00 [显示全部帖子]

分析网页抓数据的用法请自行研究解决，这里不再提供这方面的技术支持

 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/24 19:18:00 [显示全部帖子]

For Each elem As System.Windows.Forms.HtmlElement In elems
    If elem.getattribute("classname") = "fyxx_lsbox_r" Then
        msgBox(elem.Children(0).getattribute("title"))
    End If 
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/24 21:37:00 [显示全部帖子]

msgBox(elem.Children(0).getattribute("herf"))

 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/24 21:49:00 [显示全部帖子]

msgBox(elem.Children(0).innerHtml) 显示什么内容

 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/25 8:31:00 [显示全部帖子]

调试

For Each elem As System.Windows.Forms.HtmlElement In elems
    msgBox(elem.innerHtml)
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/26 15:59:00 [显示全部帖子]

msgBox(elem.Children(0).getattribute("herf"))    

 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/26 17:18:00 [显示全部帖子]

按55楼调试显示什么内容？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/26 20:42:00 [显示全部帖子]

msgBox(elem.Children(0).getattribute("href"))    

 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106763 积分：543016 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/26 22:12:00 [显示全部帖子]

不一样，认真看看红色字呗

 回到顶部
总数 25 上一页 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.05469 秒, 5 次数据查询