Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取网页地址


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

主题：[求助]获取网页地址
帅哥哟，离线，有人找我吗？
188802386
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4921 威望：0 精华：0 注册：2014/2/25 15:50:00 		[求助]获取网页地址  发帖心情 Post By：2016/9/22 15:31:00 [只看该作者]

Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

For Each dl As object In web.Document.GetElementsByTagName("li")
    Dim url =  dl.GetAttribute("data-background")
    If url > "" Then
        output.show(url)
    End If
Next

用msgbox.show是每个网址弹出一个窗口，网址最多只有10个，但也有可能不足10个，但使用output.show能显示出所有的网址地址，请问如何使用output.show来实现
output.show（网址1）
output.show（网址2）
output.show（网址3）
output.show（网址4）
......
output.show（网址10）
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

截图如下

图片点击可在新窗口打开查看此主题相关图片如下：00000.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109447 积分：556891 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/22 15:37:00 [只看该作者]

直接保存到表不就好了，之前用msgbox是为了让你测试用的，示例要根据自己的实际情况使用

If url > "" Then
dim dr as row = tables("表A").addnew
        dr("某列") = url
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

蓝老师，我是想把这些网址增加到一行的多个列，而不是一个网址一行

图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109447 积分：556891 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/22 16:16:00 [只看该作者]

花点时间学习一下狐表的编程基础，想做什么都可以。一味只靠别人，更加浪费时间

dim dr as row = tables("表A").addnew
dim idx as integer = 1
For Each dl As object In web.Document.GetElementsByTagName("li")
    Dim url =  dl.GetAttribute("data-background")
    If url > "" Then
       dr(idx) = url
idx += 1
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询