Board logo

标题: [问题求助] 求助，vbs用正则表达式匹配提取IP地址出现错误。 [打印本页]
作者: Cameron    时间: 2012-9-25 19:05     标题: 求助，vbs用正则表达式匹配提取IP地址出现错误。

本帖最后由 Cameron 于 2012-9-25 19:34 编辑

脚本代码如下：
  1. dim fso,otf,regEx,Matches  ' 建立变量。

  2. set fso=createobject("scripting.filesystemobject")

  3. set otf=fso.OpenTextFile(WScript.Arguments(0),1,False)   ' 打开拖动到脚本上的文件。

  4. 'Set regEx = New RegExp   ' 建立正则表达式对象。

  5. Set regex = CreateObject("VBScript.RegExp")   ' 建立正则表达式对象。

  6. regEx.Pattern = "([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])\.([1-9]?\d|1\d\d|2[0-4]\d|25[0-5])"   ' 设置匹配IP地址的模式。

  7. regEx.IgnoreCase = True   ' 设置是否区分大小写。

  8. regEx.Global = True   ' 设置全程可用性。

  9. Set Matches = regEx.Execute(otf.readall)   ' 执行搜索。

  10. set fso=createobject("scripting.filesystemobject")

  11. set wrtxtfl=fso.openTextFile(CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.Arguments(0))&"\IPlist"&FormatDateTime(date,1)&join(split(time,":",-1),"：")&".txt",8,true)   ' 创建并以写模式打开目标文件同目录下的以“IPlist当前日期时间.txt”为文件名的文件。

  12. for each match in matches   ' 逐个元素读取通过正则匹配提取IP地址得到的数组。

  13.    wrtxtfl.writeline match   ' 将数组元素逐行写入文件。

  14. next
复制代码
目标文件如下：
  1. 非权威应答:

  2. 

  3. 服务器:  UnKnown

  4. Address:  [color=Red]222.222.222.222[/color]

  5. 

  6. 名称:    www.a.shifen.com

  7. Addresses:  119.75.217.56

  8. 	  119.75.218.77

  9. Aliases:  www.baidu.com

  10. 

  11. 非权威应答:

  12. 

  13. 服务器:  UnKnown

  14. Address:  222.222.222.222

  15. 

  16. 名称:    static.n.shifen.com

  17. Addresses:  180.149.132.72

  18. 	  220.181.163.18

  19. Aliases:  eiv.baidu.com

  20. 

  21. 非权威应答:

  22. 

  23. 服务器:  UnKnown

  24. Address:  222.222.222.222

  25. 

  26. 名称:    hm.e.shifen.com

  27. Address:  220.181.112.34

  28. Aliases:  hm.baidu.com

  29. 

  30. 非权威应答:

  31. 

  32. 服务器:  UnKnown

  33. Address:  222.222.222.222

  34. 

  35. 名称:    www.qq.com

  36. Addresses:  2402:4e00::b

  37. 	  2402:4e00::11

  38. 	  2402:4e00::a

  39. 	  220.181.138.59

  40. 

  41. 非权威应答:

  42. 

  43. 服务器:  UnKnown

  44. Address:  222.222.222.222

  45. 

  46. 名称:    www.tencent.com

  47. Address:  121.14.98.70

  48. 

  49. 非权威应答:

  50. 

  51. 服务器:  UnKnown

  52. Address:  222.222.222.222

  53. 

  54. 名称:    163.xdwscache.glb0.lxdns.com

  55. Address:  183.60.136.64

  56. Aliases:  www.163.com

  57. 	  www.cache.wangsu.netease.com

  58. 	  www.163.com.lxdns.com

  59. 	  www.163.z.lxdns.com

  60. 

  61. 非权威应答:

  62. 

  63. 服务器:  UnKnown

  64. Address:  222.222.222.222

  65. 

  66. 名称:    almack.sina.com.cn

  67. Address:  [color=Red]218.30.108.232[/color]

  68. Aliases:  www.sina.com

  69. 	  us.sina.com.cn

  70. 	  news.sina.com.cn

  71. 	  jupiter.sina.com.cn

  72. 

  73. 非权威应答:

  74. 

  75. 服务器:  UnKnown

  76. Address:  222.222.222.222

  77. 

  78. 名称:    fzw.a.sohu.com

  79. Addresses:  220.181.26.7

  80. 	  220.181.118.87

  81. Aliases:  www.sohu.com

  82. 	  gs.a.sohu.com
复制代码
运行结果如下：
  1. [color=Red]222.222.222.22[/color]

  2. 119.75.217.56

  3. 119.75.218.77

  4. 222.222.222.22

  5. 180.149.132.72

  6. 220.181.163.18

  7. 222.222.222.22

  8. 220.181.112.34

  9. 222.222.222.22

  10. 220.181.138.59

  11. 222.222.222.22

  12. 121.14.98.70

  13. 222.222.222.22

  14. 183.60.136.64

  15. 222.222.222.22

  16. [color=Red]218.30.108.23[/color]

  17. 222.222.222.22

  18. 220.181.26.7

  19. 220.181.118.87
复制代码
上面目标文件及运行结果中的颜色标记是为方便大家查看错误后来加上的，原本没有。
目标文件中IP地址的最后一组数字有些原本是三位（比如222.222.222.222），在处理结果中都变成了两位（比如222.222.222.22），是哪里出错了？请各位指正！
作者: CrLf    时间: 2012-9-25 20:01

限定一个单词边界就行了，用 \W 或 \b 都行
  1. Set fso = CreateObject("scripting.filesystemobject")

  2. text = fso.OpenTextFile("a.txt",1).ReadAll

  3. 

  4. Set re = New RegExp

  5. re.Global = True

  6. re.IgnoreCase = True

  7. re.MultiLine = True

  8. 

  9. key = "(?:1?\d?\d|2[0-4]\d|25[0-5])"

  10. re.Pattern = "\b" & key & "\." & key & "\." & key & "\." & key & "\b"

  11. 

  12. set ex = re.Execute(text)

  13. For Each e In ex

  14.     str = str & e & vbCrLf

  15. Next

  16. WScript.Echo str
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2