网页 抓取 innertext 试题(URL筛选小工具错误OnError()())

　　网页 抓取 innertext 试题(URL筛选小工具错误OnError()())

　　网址

　　这个VBS用于过滤掉本地网页中的URL，并保存到一个新的网页文件中。当然，只要改变里面的正则表达式，就可以用于其他用途。

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

　　代码如下：

　　'备注：URL过滤小部件

　　'防止错误

　　出错时继续下一步

　　'vbs 代码开始------------------------------------------- ---

　　昏暗的 p,s,re

　　如果 Wscript.Arguments.Count=0 那么

　　Msgbox "请将网页拖到该程序的图标上！",,"提示"

　　Wscript.退出

　　如果结束

　　对于 i = 0 到 Wscript.Arguments.Count-1

　　p=Wscript.Arguments(i)

　　使用 CreateObject("Adod​​b.Stream")

　　.Type=2

　　.Charset="GB2312"s)

　　s=""

　　对于比赛中的每场比赛

　　s=s & "" & Match.Value & "

　　”

　　下一步

　　re.Pattern="&\w+;?|\W{5,}"

　　s=re.Replace(s,"")

　　.Position=0

　　.setEOS

　　.WriteText s

　　.SaveToFile p & "的 URLs.html",2

　　.关闭

　　结尾

　　下一步

　　Msgbox "URL 列表已生成！",,"成功"

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