vbscript 替换文本 - 一有效二破坏整个事情

Question

我希望此脚本替换同一文本文件中的两个值而不是一个。但是，如果我取消注释第 12 行，则会破坏脚本。我是否必须将其放入循环中，或者我可以进行多次替换吗？

Sub ReplaceTxt()
'Writes values we got earlier to our unattend file       '
Const ForReading = 1
Const ForWriting = 2

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

   strText = objFile.ReadAll
   objFile.Close
   strNewText = Replace(strText, "***COMPNAME***", strCompname)
 '  strNewText = Replace(strText, "***Winkey***", strPoductkey)    '

   Set objFile = objFSO.OpenTextFile("C:\$WIN_NT$.~BT\winnt.sif", ForWriting)
   objFile.WriteLine strNewText
   objFile.Close
End Sub

Answer 1

我认为您需要对第一个返回的字符串进行第二次替换:

strNewText = Replace(strText, "***COMPNAME***", strCompname)
strNewText = Replace(strNewText , "***Winkey***", strPoductkey)

否则您将丢失第一个替换，并且只有第二个替换会出现在结果中。