WHY

vbs 脚本

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(".").Files
    strFile = f.Path
    If LCase(Right(strFile, 4)) = ".txt" Then
        Set objFile = fso.OpenTextFile(strFile, 1)
        arr = Split(objFile.ReadAll(), ";www")
        objFile.Close()
        If UBound(arr) >= 1 Then arr(1) = Replace(arr(1), "1,0=·啊2", "a总·bc")
        fso.OpenTextFile(strFile, 2).Write(Join(arr, ";www"))
    End If
Next

MsgBox "Done"
复制代码

WHY

递归遍历文件夹就行了

srcDir = "E:\Test"
Set fso = CreateObject("Scripting.FileSystemObject")

ReplaceString srcDir

Function ReplaceString(ByRef srcDir)
    For Each f In fso.GetFolder(srcDir).Files
        strFile = f.Path
        If LCase(Right(strFile, 4)) = ".txt" Then
            Set objFile = fso.OpenTextFile(strFile, 1)
            arr = Split(objFile.ReadAll(), ";www")
            objFile.Close()
            If UBound(arr) >= 1 Then arr(1) = Replace(arr(1), "1,0=·啊2", "a总·bc")
            fso.OpenTextFile(strFile, 2).Write(Join(arr, ";www"))
        End If
    Next
    For Each fd In fso.GetFolder(srcDir).SubFolders
        ReplaceString fd.Path
    Next
End Function

MsgBox "Done"
复制代码