这个VBS是用来将一个本地网页中的URL筛选出来并保存在新的网页文件中。当然，只要改变里面的正则表达式，就可以作其他用途了。
使用方法：将下面的代码保存为jb51.vbs
然后拖动你保存在本地的htm页面，拖放在这个vbs即可
     代码如下:

 
复制代码
  1. '备注：URL筛选小工具
  2. '防止出现错误
  3. On Error Resume Next
  4. 'vbs代码开始----------------------------------------------
  5. Dim p,s,re
  6. If Wscript.Arguments.Count=0 Then
  7. Msgbox "请把网页拖到本程序的图标上！",,"提示"
  8. Wscript.Quit
  9. End If
  10. For i= 0 to Wscript.Arguments.Count - 1
  11. p=Wscript.Arguments(i)
  12. With CreateObject("Adodb.Stream")
  13. .Type=2
  14. .Charset="GB2312"
  15. .Open
  16. .LoadFromFile=p
  17. s=.ReadText
  18. Set re =New RegExp
  19. re.Pattern= "[A-z]+://[^""<>()\s']+"
  20. re.Global = True
  21. If Not re.Test(s) Then
  22. Msgbox "该网页文件中未出现网址！",,"提示"
  23. Wscript.Quit
  24. End If
  25. Set Matches = re.Execute(s)
  26. s=""
  27. For Each Match In Matches
  28. s=s & "<a href=""" & Match.Value & """>" & Match.Value & "<p>"
  29. Next
  30. re.Pattern= "&\w+;?|\W{5,}"
  31. s=re.Replace(s,"")
  32. .Position=0
  33. .setEOS
  34. .WriteText s
  35. .SaveToFile p & "'s URLs.html",2
  36. .Close
  37. End With
  38. Next
  39. Msgbox "网址列表已经生成！",,"成功"
  40. 'vbs代码结束----------------------------------------------