替换.txt中的字符串。使用othet .txt的任何文本 - VBScript

Question

我是VBScripting的新手，正在寻找建议。 我有一些文字 1.txt ，例如

  

aaaaaaaaaXXXaaaaaaaaa

我只需要将XXX更改为其他文字，例如

  

aaaaaaaaaZZZaaaaaaaaa

但XXX已存在于第二个文件 2.txt 中。我想创建一个带有文本

的新字符串 3.txt 的文件

  

aaaaaaaaaZZZaaaaaaaaa

你能帮我改进一下我的剧本吗？

到目前为止我得到的是：

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(("C:\Script\1.txt"), ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "XXX", "????????????????")
Set objFile = objFSO.CreateTextFile(("C:\Script\3.txt"), ForWriting)
objFile.WriteLine strNewText
objFile.Close