- Dim str, fso, file, f, txt
- Set fso = CreateObject("Scripting.FileSystemObject")
- For Each file in fso.GetFolder(".").Files
- If LCase(Right(file, 4)) = ".txt" Then
- Set f = fso.OpenTextFile(file, 1)
- txt = f.ReadAll
- f.Close : Set f = Nothing
- fso.OpenTextFile(file, 2).Write RegEx(txt)
- End If
- Next
- Set fso = Nothing
-
- MsgBox "OK"
-
- Function RegEx(txt)
- Set re = New RegExp
- re.Pattern = "sate([0-9]*)\.txt"
- re.Global = True
- re.IgnoreCase = True
- RegEx = re.Replace(txt, "随机数据(矩阵)\随机批次$1数据\注汇总$1")
- End Function
复制代码 这个是VBS直接替换的,$1表示分组1,也就是第一个()里面的内容,如果带其他内容([0-9]*)改成(.*) |