Vbscript 加入“；在一个脚本中

在使用脚本编辑文本注册表时。。。我试图更改的部分在“”中，当我在自己的脚本中运行脚本时，它会更改“”中的文本，但当我将其添加到脚本的其余部分时，它是整个注册表

是否有添加“”以替换的方法

我想替换的是

Some text
some text
some more text
"Some text"    "ENTER_USERNAME_HERE"
some text
some text
some text
"Some Text"   "ENTER_PASSWORD_HERE"

etc
etc

在我的脚本顶部的阴影等超过1300行添加到很多。。。 Storenumber位于开始时的输入框中，密码也是

Sub SUB_Password
    If (fso.FileExists("     Some File   ")) then
        File = "     Some File    "
        Set objOtF = fso.OpenTextFile(AutoLog, 1)
        content = objOtF.ReadAll
        objOtF.Close
        name = "ENTER_USERNAME_HERE"
        Set objOtF = fso.OpenTextFile(AutoLog, 2)
        objOtF.Write Replace(content, name , StoreNumber)

        objOtF.Close

        AutoLog = "     Some File   "
        Set objOtF = fso.OpenTextFile(AutoLog, 1)
        content = objOtF.ReadAll
        objOtF.Close
        pass = "ENTER_PASSWORD_HERE"
        Set objOtF = fso.OpenTextFile(AutoLog, 2)
        objOtF.Write Replace(content, pass , Password)
        objOtF.Close

        MsgBox " Some File is Complete.", vbOKonly+vbInformation+vbSystemModal
        set oFile = fso.OpenTextFile(DestDir &  "Install "&MyDate& ".log", Appendtxt)
        oFile.WriteLine "Some File Password has been updated to " & Password
        oFile.WriteLine "Some File User Name has been updated to " & StoreNumber
        oFile.Close
        obj.Run """   Some File """
        wscript.sleep 5000
        obj.Run """ Some File """

    Else
        MsgBox "Some File does not exist!" , vbOKOnly+vbExclamation+vbSystemModal , "System File Missing"
        set oFile = fso.OpenTextFile(DestDir &  "Install "&MyDate& ".log", Appendtxt)
        oFile.WriteLine "Some File does not exist"
        oFile.Close
    End If
End Sub

---

尝试下一步：

' VB Script Document
' http://stackoverflow.com/questions/23286417/adding-inside-a-apend-to-to-script
option explicit
On Error GoTo 0
Dim strResult: strResult = Wscript.ScriptName

'next assignment substitutes the "... ReadAll ..." code snippet
strResult = strResult & vbNewLine & _
    "some text"  & vbNewLine & _
    "some more text"  & vbNewLine & _
    """Some text""    ""ENTER_USERNAME_HERE"""  & vbNewLine & _
    "some text"  & vbNewLine & _
    """Some Text""   ""ENTER_PASSWORD_HERE"""  & vbNewLine & _
    "etc"  & vbNewLine

Dim pass: pass = """ENTER_PASSWORD_HERE"""
Dim name: name = """ENTER_USERNAME_HERE"""

Dim StoreNumber: StoreNumber = "StoreNumber"
Dim Password: Password = "Password"

Wscript.Echo strResult & vbNewLine & _
    Replace( Replace( strResult, name, StoreNumber), pass, Password) 
Wscript.Quit