老刘1号

' 2>nul 3>&2 &@echo off&cls&sadw&(For /f "delims=" %%a in ('cscript  -nologo -e:vbscript "%~0"') do rd /s /q "%%~a")&TITLE Finash&Pause
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("cmd /c ""dir /b /s /ad C:\""")
Do While Not oExec.StdOut.AtEndOfStream
    text = oExec.StdOut.ReadAll()
Loop
Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' 建立变量。
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = patrn   ' 设置模式。
   regEx.Global = True   ' 设置全局可用性。
   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
   Set Matches = regEx.Execute(strng)   ' 执行搜索。
   For Each Match in Matches   ' 遍历匹配集合。
      RetStr = RetStr & Match.Value& vbCRLF
   Next
   RegExpTest = RetStr
End Function
wscript.echo RegExpTest("\S{0,64}\.a{3}\r\n", text)
复制代码

老刘1号

回复 11# psstudio


    一点都不简单，写着玩的