本帖最后由 batman 于 2013-1-14 00:30 编辑
干这个批处理远不及vbs的正则:- Dim objFSO, objStr
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- objStr = objFSO.OpenTextFile("a.txt").ReadAll()
- Dim RegEx, Matches, Matche, RegStr, Str
- Set RegEx = New RegExp
- RegEx.Global = True
- RegEx.Pattern = "([\s\S]{200})"
- Set Matches = RegEx.Execute(objStr)
- For Each Matche In Matches
- i = i + 1
- j = i Mod 4
- Str = "批处理"
- If j = 0 Then Str = "软件"
- RegStr = RegStr & Matche.Submatches(0) & Str
- Next
- Set RegEx = Nothing
- objFSO.OpenTextFile("a.txt", 2 ,True).Write RegStr
- Set objFSO = Nothing
- CreateObject("Wscript.Shell").Run "cmd /ca.txt", True, False
复制代码
|