本帖最后由 apang 于 2013-10-18 00:09 编辑
保存为test.vbs,试试
每行开头是不是有全角空格?- Set fso = CreateObject("Scripting.FileSystemObject")
- text = fso.OpenTextFile("a.txt").ReadAll
- Set re = New RegExp
- re.Pattern = "([ \s]*\d+、.*?)(([a-z]))\r\n(([ \s]*[a-z]、.*(?:$|\r\n))+)"
- re.Global = True
- re.IgnoreCase = True
- For Each a In re.Execute(text)
- str = Replace(Replace(a.SubMatches(2),vbCrLf," ")," ","")
- str = a.SubMatches(0) & "()" & str & "," & a.SubMatches(1)
- fso.OpenTextFile("b.txt",8,True).WriteLine str
- Next
- MsgBox "OK"
复制代码
|