VB脚本每次运行时都会添加空白行

Question

我没有做太多的vb脚本。这是我用来替换字符串的脚本。它的问题在于它每次运行时都会添加一个额外的空白行。我用bat文件调用它： CSCRIPT replace.vbs“FolderName \ FileName.ext”“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。 objFile.WriteLine strNewText将字符串和写回EOL。所以请改用objFile.Write strNewText。