URL 筛选小工具 提取网页中的链接地址

使用方法：将下面的代码保存为jb51.vbs
然后拖动你保存在本地的htm页面，拖放在这个vbs即可

'备注：url筛选小工具
'防止出现错误
on error resume next
'vbs代码开始----------------------------------------------
dim p,s,re
if wscript.arguments.count=0 then
msgbox "请把网页拖到本程序的图标上！",,"提示"
wscript.quit
end if
for i= 0 to wscript.arguments.count - 1
p=wscript.arguments(i)
with createobject("adodb.stream")
.type=2
.charset="gb2312"
.open
.loadfromfile=p
s=.readtext
set re =new regexp
re.pattern= "[a-z]+://[^""<>()\s']+"
re.global = true
if not re.test(s) then
msgbox "该网页文件中未出现网址！",,"提示"
wscript.quit
end if
set matches = re.execute(s)
s=""
for each match in matches
s=s & "<a href=""" & match.value & """>" & match.value & "<p>"
next
re.pattern= "&\w+;?|\w{5,}"
s=re.replace(s,"")
.position=0
.seteos
.writetext s
.savetofile p & "'s urls.html",2
.close
end with
next
msgbox "网址列表已经生成！",,"成功"

'vbs代码结束----------------------------------------------