练习。。。- @echo off
- more +4 "%~0">$.vbs
- cscript /Nologo $.vbs
- del $.vbs&goto :eof
- Set FSO = CreateObject("Scripting.FileSysTemObject")
- Set File = FSO.OpenTextFile("a.txt",1)
- Do Until File.AtEndOfStream
- strLine = File.ReadLine
- Set Re = new RegExp
- Re.Pattern = "\D"
- Re.Global = True
- strOut = strOut & Re.Replace(strLine,"") & vbCrLf
- Loop
- FSO.CreateTextFile("b.txt",true).Write strOut
复制代码
|