Vraag : Vind en vervang Veelvoudige Waarden

O.k., bij het opnieuw -
I heeft zeer eenvoudige .vbs om één koord te vinden en te vervangen; nochtans, zou ik veelvoudige waarden (of die een gebruiker inbouwen dialouge wordt ingevoerd om gebruiker om volgende vondst te vragen en koord te vervangen) in één manuscript willen hard coderen.  Dit is wat ik momenteel heb: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Const ForReading = 1
Const ForWriting = 2
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objFile = objFSO.OpenTextFile („C:\Scripts\123.txt“, ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = vervang (strText, „043487835“, „04-3487835“)
Plaats objFile = objFSO.OpenTextFile („C:\Scripts\123.txt“, ForWriting)
objFile.WriteLine strNewText
objFile.Close

I zou een ander punt aan verandering binnen het zelfde dossier (123.txt) willen toevoegen, maar als ik eenvoudig een andere lijn voor het volgende onderzoek toevoeg en ingang vervang, werkt het niet (zie voorbeeld hieronder van non-working manuscript): 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Const ForReading = 1
Const ForWriting = 2
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objFile = objFSO.OpenTextFile („C:\Scripts\123.txt“, ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = vervang (strText, „043487835“, „04-3487835“)
strNewText = vervang (strText, „5551234“, „5551235“)
Plaats objFile = objFSO.OpenTextFile („C:\Scripts\123.txt“, ForWriting)
objFile.WriteLine strNewText
objFile.Close

I am misschien een lijn denken, of een volgende verklaring die, maar opnieuw, leer ik nog zo hopefull iemand anders assist. kan
Related Oplossingen: Replacetekst na specifieke lijn of text

Antwoord : Vind en vervang Veelvoudige Waarden

Ik ben een kerel PowerShell, maar ik denk hier het probleem in lijn 8 (tweede manuscript) is:
strNewText = vervang (strNewText, „5551234“, „5551235“)
Andere oplossingen  
 
programming4us programming4us