vbscript替换文本-不在所有文档中

早上好， 我有一个ini文件，我用这个vbscript修改它：

Dim FileName, Find, ReplaceWith, FileContents, dFileContents
Find         = WScript.Arguments(0)
ReplaceWith  = WScript.Arguments(2)
FileName     = WScript.Arguments(1)

FileContents = GetFile(FileName)
dFileContents = replace(FileContents, Find, ReplaceWith, 1, -1, 1)
WriteFile FileName, dFileContents

function GetFile(FileName)
  If FileName<>"" Then
    Dim FS, FileStream
    Set FS = CreateObject("Scripting.FileSystemObject")
      on error resume Next
      Set FileStream = FS.OpenTextFile(FileName)
      GetFile = FileStream.ReadAll
  End If
End Function

function WriteFile(FileName, Contents)
  Dim OutStream, FS
  on error resume Next
  Set FS = CreateObject("Scripting.FileSystemObject")
    Set OutStream = FS.OpenTextFile(FileName, 2, True)
    OutStream.Write Contents
End Function

Dim FileName、Find、ReplaceWith、FileContents、dFileContents
Find=WScript.Arguments（0）
ReplaceWith=WScript.Arguments（2）
FileName=WScript.Arguments（1）
FileContents=GetFile（文件名）
dFileContent=replace（文件内容，查找，替换为，1，-1，1）
WriteFile文件名，dFileContent
函数GetFile（文件名）
如果文件名为“”，则
文件流
设置FS=CreateObject（“Scripting.FileSystemObject”）
出错时继续下一步
设置FileStream=FS.OpenTextFile（文件名）
GetFile=FileStream.ReadAll
如果结束
端函数
函数WriteFile（文件名、内容）
暗扩流
出错时继续下一步
设置FS=CreateObject（“Scripting.FileSystemObject”）
设置OutStream=FS.OpenTextFile（文件名，2，True）
扩展。写内容
端函数

现在我将cscript replace.vbs称为“我要搜索的内容”“文件名”“我要替换的内容”

这项工作，但这个脚本取代了“我想搜索的内容”中的所有单词。 在我的“文件名”中，有更多同名条目，我只想保存第一个条目。 我能做什么？

---

谢谢你引用Ansgar的话：当你有疑问的时候，请阅读。请注意count参数。这将解决您的特定问题-仅替换第一次出现的问题

---

一种更好、更通用的方法：使用RegExp，通过指定其键来标识要更改的值。

我为我愚蠢的帖子感到抱歉。。。谢谢你的回答。我将值-1改为1，现在它可以工作了。。。非常感谢，请回答我的问题