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

我不怎么做vb脚本。这是我用来替换字符串的脚本。它的问题是每次运行时都会添加一个额外的空行。我从bat文件中调用它： CSCRIPT replace.vbs“FolderName\FileName.ext”“TextToChange”“NewText” 我需要改变什么来防止这种情况？ 谢谢：）

---

objFile.ReadAll

slurps整个文件，包括终止的EOL

objFile.WriteLine strNewText

将该字符串写入并返回一个下线。因此，请改用

objFile.Write strNewText

。

太好了！这就解决了问题。多谢。

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