Вопрос : Находите и замените множественные значения

О'кейо, на ем снова -
I имеет очень просто .vbs для того чтобы найти и заменить один шнур; однако, я хотел был бы к значениям трудного Кодего множественным (или строению в dialouge входного сигнала потребителя для того чтобы попросить потребитель следующая находка и заменить шнур) в один сценарий.  Это я имею в настоящее время: class= " lineNumbers " >

1 >
Const ForReading = 1
Const ForWriting = 2
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objFile = objFSO.OpenTextFile («C:\Scripts\123.txt», ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = заменяет ть (strText, «043487835», «04-3487835»)
Установленное objFile = objFSO.OpenTextFile («C:\Scripts\123.txt», ForWriting)
strNewText objFile.WriteLine
class= " ясное " >
I objFile.Close
1 >
Const ForReading = 1
Const ForWriting = 2
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objFile = objFSO.OpenTextFile («C:\Scripts\123.txt», ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = заменяет ть (strText, «043487835», «04-3487835»)
strNewText = заменяет ть (strText, «5551234», «5551235»)
Установленное objFile = objFSO.OpenTextFile («C:\Scripts\123.txt», ForWriting)
strNewText objFile.WriteLine
class= " ясное " >
I am objFile.Close


class= " ясное " > 

Related: 

title= " href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26419932.html Replace специфически " class= " линии или текста qRelatedParent " после специфически линии или text

Ответ : Находите и замените множественные значения

Я буду вантой PowerShell, но я думаю здесь буду проблемой в линии 8 (второй сценарий):
strNewText = заменяет ть (strNewText, «5551234», «5551235»)