VBS好处理一些。Dim FSO, folder1, f, tSet FSO = CreateObject("Scripting.FileSystemObject")Set folder1 = FSO.GetFolder("C:\PATH")For Each f in folder1.FilesIf LCase(FSO.GetExtensionName(f.Name)) = "txt" Then
t = f.OpenAsTextStream(1).ReadAll()
t = Replace(t, "AAA", "BBB")
f.OpenAsTextStream(2).Write(t)E