VB脚本在每次运行时添加空行

Question

我不怎么写vb脚本。这是一个脚本，我获得替换字符串。它的问题是每次运行时都会添加一个额外的空行。我从一个bat文件中调用它:CSCRIPT替换。根据"FolderName 文件名。"TextToChange"NewText"我需要做些什么来防止这种情况?谢谢:)

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

Answer 1

objFile.ReadAll发出整个文件，包括终止EOL(s)。objFile.WriteLine strNewText将字符串和写回EOL。所以用objFile.Write strNewText代替。