本帖最后由 老刘1号 于 2017-2-10 13:07 编辑
- ' 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)
复制代码
|