VBscript替换文本，但添加空行

我使用以下vbscript替换文件中的文本。它完全符合我的要求，但是它在文件末尾为我的每一次传递添加了一个空行。如果我将“黑色”替换为“红色”，然后将“白色”更改为“黄色”，则会在文本文件的末尾添加两个空行。有没有办法改变这一点，使其不添加行

以下是脚本：

Const ForReading = 1
Const ForWriting = 2

strFileName = Wscript.Arguments(0)
strOldText = Wscript.Arguments(1)
strNewText = Wscript.Arguments(2)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName, ForReading)

strText = objFile.ReadAll
objFile.Close

strNewText = Replace(strText, strOldText, strNewText)

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting)
objFile.WriteLine strNewText

objFile.Close

---

p、 语法为：cscript/nologo replace.vbs InputFile“OldText”“NewText”

objFile.WriteLine

在末尾添加一个换行符。您可能需要

objFile.Write

---

WriteLine将添加\r\n（或任何系统换行符）

objFile。WriteLine

在末尾添加换行符。您可能需要

objFile.Write

WriteLine将添加\r\n（或任何系统换行符）

strText = objFile.ReadAll

将读取文件的所有内容，包括（可能）尾随的EOL。（.ReadAll.ReadLine）

将添加下线。所以使用

objFile.Write strNewText

你的

将读取文件的所有内容，包括（可能）尾随的EOL。（.ReadAll.ReadLine）

将添加下线。所以使用

objFile.Write strNewText

改变

objFile.Writeline 

到

改变

objFile.Writeline 

到

---

您是否尝试过

objFile.Write strNewText

？是否尝试过

objFile.Write strNewText

？