Nsqs

回复 6# chencg

:On Error Resume Next
set fso=CreateObject("scripting.filesystemobject")
:Sub bat
echo off&cls
cscript -nologo -e:vbs "%0"
pause
Exit Sub
:End Sub
set RegExp=new RegExp:set stdin=wscript.stdin
RegExp.IgnoreCase=true:RegExp.Global=-1
file="1.txt"
RegExp.Pattern="\b.{8}\b"
var=fso.opentextfile(file).readall
set matches=RegExp.Execute(var)
for each match in matches
wsh.echo match
next
复制代码