中国DOS联盟

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

Originally posted by WANKOILZ at 2010-11-1 13:56:
vbs:
假设文本名为a.txt

set FSO=createobject("scripting.filesystemobject")

set R=New RegExp

R.pattern="\d+\.\d+\.\d+\.\d+"

R.Ignorecase=true

R.Global=true

R.Mu ...