我有一个关于简单 VBScript 的基本问题。我的目标是在多个文件中找到替换多个文本字符串。(要替换的 21 个文本字符串在文件中是相同的。)文件名有大约 12 个前缀,然后在末尾有数字 1 到 200。我仅用于其中一个文件中的一个字符串的代码如下。
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\filename_XX.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Test 1", "Test 2")
Set objFile = objFSO.OpenTextFile("C:\filename_XX.txt", ForWriting)
objFile.Write strNewText
objFile.Close
我只想遍历文件名并可能遍历搜索字符串。For...Next 循环可以完成这个吗?我可以参考文件名对象中的 for 循环数吗?
我看到了关于搜索子文件夹的回复,但我认为它比我需要做的更复杂。