取一个网站的所有连接地址(速度求答)

上帝

是这样的 我程序写的差不多了,能取一个网站里面的连接,现在这个起始位置不知道放在什么位置,麻烦各位大大帮忙改下,源码勿改动太大,只需改下这个起始位置放在什么地方能取出来全部ie连接,源码附件 附上................  要求(最好用我原始代码) 如果可以提供正则表达式循环读取ie所有连接 另+10 金币,

只能取一个连接.rar (1.9 KB, 下载次数: 26)

2011-6-20 15:54 上传

点击文件名下载附件
.版本 2
.支持库 internet
.支持库 spec
.程序集变量 url, 字节集
.程序集变量 url1, 文本型
.子程序 _按钮_开始爬_被单击
.局部变量 文本位置1, 整数型
.局部变量 文本位置2, 整数型
.局部变量 文本位置3, 整数型
.局部变量 文本位置4, 整数型
.局部变量 关键字, 文本型
.局部变量 起始位置, 整数型
.局部变量 连接数量, 整数型
关键字 ＝ “http://img.mall.baidu.com”

url ＝ HTTP读文件 (“http://www.youa.com/biz/42141d9f4badb89296ea508d”)
url1 ＝ 到文本 (url)
连接数量 ＝ 取网页数量 ()
.计次循环首 (连接数量, )

    文本位置1 ＝ 寻找文本 (url1, “<!--{start: 商户相册 -->”, , 假)
    文本位置2 ＝ 寻找文本 (url1, 关键字, 文本位置1, 假)
    文本位置3 ＝ 寻找文本 (url1, “.jpg”, 文本位置2, 假) ＋ 取文本长度 (“.jpg”)
    调试输出 (取文本中间 (url1, 文本位置2, 文本位置3 － 文本位置2))
    起始位置 ＝ 文本位置3 ＋ 取文本长度 (“.jpg”)

.计次循环尾 ()

小宇88

没理解到你的意思

exit11

[e]
.版本 2
.支持库 RegEx
.支持库 internet
.子程序 _按钮_开始爬_被单击
.局部变量 url, 文本型
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"
.局部变量 x, 整数型
url ＝ 到文本 (HTTP读文件 (“http://www.youa.com/biz/42141d9f4badb89296ea508d”))
正则.创建 (#常量1, )
结果 ＝ 正则.搜索全部 (url)
.计次循环首 (取数组成员数 (结果), x)
    编辑框2.加入文本 (结果 [x].取子匹配文本 (url, 1, ) ＋ #换行符)
.计次循环尾 ()

[/e]

exit11

常量1

src="(http://img.mall.baidu.com/cccccc/sabpic/item/.*?\.jpg)"

exit11

不是每次，是经常。
意思就是偶尔也能正常显示一下

上帝

exit11 发表于 2011-6-20 17:28
不是每次，是经常。
意思就是偶尔也能正常显示一下

我压缩包里面的源码能不能也解决下啊...

airpppp

经测试,
无法显示哈

stop1204

查看 源码.. 然后  搜索 "http://www" 文本

就是全部连接了 ...

用什么命令自己写把.. 太多 .

善的圆

看了你的代码，不知道你要达到什么效果，悲哀啊

金哥专用

板凳那楼应该可以吧。这台电脑不是我的，无法测试，看了他的代码，应该是可以的。