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

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

'备注：URL筛选小工具 '防止出现错误On Error Resume Next'vbs代码开始----------------------------------------------Dim p,s,reIf Wscript.arguments.Count=0 ThenMsgbox "请把网页拖到本程序的图标上！",,"提示"Wscript.QuITEnd IfFor i= 0 to Wscript.arguments.Count - 1p=Wscript.Arguments(i)With CreateObject("Adodb.Stream").TyPE=2.Charset="GB2312".Open.LoadFromFile=ps=.ReadTextSet re =New RegExpre.Pattern= "[A-z]+://[^"">
    ()\s']+"re.Global = TrueIf Not re.test(s) ThenMsgbox "该网页文件中未出现网址！",,"提示"Wscript.QuitEnd IfSet Matches = re.Execute(s)s=""For each Match In Matchess=s &
     "a href=""" &
     Match.Value &
     """>
    " &
     Match.Value &
     "p>
    "Nextre.Pattern= "&
    \w+;
?|\W{
5,}
    "s=re.Replace(s,"").Position=0.setEOS.WriteText s.SaveToFile p &
     "'s URLs.htML",2.CloseEnd WithNextMsgbox "网址列表已经生成！",,"成功"'vbs代码结束----------------------------------------------

到此这篇关于URL 筛选小工具 提取网页中的链接地址的文章就介绍到这了,更多相关提取网页中的链接地址内容请搜索以前的文章或继续浏览下面的相关文章希望大家以后多多支持！

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！