求一个可以采集网页中的url的源码

达人牛牛

这个工具的本意是要采集出一个网页中所有包括指定条件的url
例如，在一个网页中，采集出包含 baidu.com 这个域名的，所有url

我用正则表达式，只能采到第一个，采不到所有

如果可以的，麻烦做出这个源码，可以加精币
或者告诉怎么写这个源码也行

pS,最好直接上源码或者例程，，精币站内信联系，只要合理的就OK

易团俊

.版本 2
.支持库 iext

.子程序 枚举所有连接, , 公开
.参数 网页文档, 对象, , 用WebBrowser.GetDocument ()等方法获取的文档对象
.参数 列表框, 超级列表框, , 用来显示的超级列表框
.局部变量 链接数组, 对象
.局部变量 链接对象, 对象
.局部变量 i, 整数型, , , 循环计数
.局部变量 x, 整数型, , , 表项索引

' =↓=初始化超级列表框=↓=============================
连续赋值 ({  }, 列表框.表项, 列表框.报表列)
列表框.类型 ＝ 3  ' 报表列表框
列表框.显示表格线 ＝ 真
列表框.整行选择 ＝ 真
列表框.插入列 (0, “序号”, 40, #左对齐, , )
列表框.插入列 (1, “相关文本”, 60, #左对齐, , )
列表框.插入列 (2, “链接地址”, 150, #左对齐, , )
' ==================================================
链接数组 ＝ 网页文档.对象型方法 (“getElementsByTagName”, “A”)  ' 取所有超链接对象
.计次循环首 (链接数组.读数值属性 (“length”, ), i)
    链接对象 ＝ 链接数组.对象型方法 (“item”, i － 1)
    x ＝ 列表框.插入表项 (, 到文本 (i), 0, , , )
    列表框.置标题 (x, 1, 链接对象.读文本属性 (“innerText”, ))  ' 读链接对象网页文本
    列表框.置标题 (x, 2, 链接对象.读文本属性 (“href”, ))  ' 读链接对象链接地址
.计次循环尾 ()



用这个稍加修改。。就可以了

达人牛牛

易团俊 发表于 2011-7-22 03:16
.版本 2
.支持库 iext

可以直接给例程吗{:3_236:}，，看完头晕了

孤心人

达人牛牛 发表于 2011-7-22 03:46
可以直接给例程吗，，看完头晕了

直接把上面的源码复制进易程序中，不就是源码了？

xinyi87

沙发 就是源码