Cuestión : Encontrar y substituir los valores múltiples

Autorización, en ella otra vez - el
I tiene un .vbs muy simple para encontrar y para substituir una secuencia; sin embargo, quisiera a los valores múltiples del código duro (o a la estructura en un dialouge de la entrada del usuario a pedir a usuario el hallazgo siguiente y para substituir la secuencia) en una escritura.  Esto es lo que tengo actual: class= " lineNumbers " >

1 del >
Const ForReading = 1
Const ForWriting = 2
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar objFile = objFSO.OpenTextFile (“C:\Scripts\123.txt”, ForReading)
strText = objFile.ReadAll
objFile.Close
el strNewText = substituye (el strText, “043487835”, “04-3487835”)
objFile determinado = objFSO.OpenTextFile (“C:\Scripts\123.txt”, ForWriting)
strNewText de objFile.WriteLine
el class= >
I de objFile.Close
1 del >
Const ForReading = 1
Const ForWriting = 2
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar objFile = objFSO.OpenTextFile (“C:\Scripts\123.txt”, ForReading)
strText = objFile.ReadAll
objFile.Close
el strNewText = substituye (el strText, “043487835”, “04-3487835”)
el strNewText = substituye (el strText, “5551234”, “5551235”)
objFile determinado = objFSO.OpenTextFile (“C:\Scripts\123.txt”, ForWriting)
strNewText de objFile.WriteLine
el class= >
I de objFile.Close


  
  class= > " claro " del 

    soluciones >Related 
    class= 
el title= " del href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26419932.html del Replace " del class= específico " de la línea o del texto " después de línea específica o de text
  

Respuesta : Encontrar y substituir los valores múltiples

Soy un individuo de PowerShell, pero pienso aquí soy el problema en la línea 8 (segunda escritura):
el strNewText = substituye (el strNewText, “5551234”, “5551235”)