set FSO=createobject("scripting.filesystemobject")
set R=New RegExp
R.pattern="\d+\.\d+\.\d+\.\d+"
R.Ignorecase=true
R.Global=true
R.Multiline=true
str=FSO.opentextfile("a.txt").readall()
set Matches=R.execute(str)
set F=FSO.createtextfile("b.txt",2)
For each Match in Matches
F.writeline(Match)
Next
F.close
作者: crazyeva 时间: 2010-11-1 22:36
Originally posted by WANKOILZ at 2010-11-1 13:56:
vbs:
假设文本名为a.txt
[code]set FSO=createobject("scripting.filesystemobject")
set R=New RegExp
R.pattern="\d+\.\d+\.\d+\.\d+"
R.Ignorecase=true
R.Global=true
R.Mu ...
先谢了，尝试中
[ Last edited by crazyeva on 2010-11-1 at 22:41 ]
