Frage : Mehrfache Werte finden und ersetzen

O.K., an ihm wieder -
I haben ein sehr einfaches .vbs, zum von einer Schnur zu finden und zu ersetzen; jedoch möchte ich zu den mehrfachen Werten des harten Codes (oder zum Bau in einem Benutzereingang dialouge, zum des Benutzers um folgende Entdeckung zu bitten und der Schnur zu ersetzen) in einen Index.  Dieses ist, was ich z.Z. habe: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

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

I möchte ein anderes Einzelteil Änderung innerhalb der gleichen Akte (123.txt) hinzufügen, aber, wenn ich einfach eine andere Linie für die folgende Suche hinzufüge und Eintragung ersetze, funktioniert es nicht (Beispiel des nicht arbeitenden Indexes unten sehen): 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

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

I morgens eine Schleife möglicherweise denkend oder eine folgende Aussage, aber wieder, erlerne ich noch, also kann hopefull jemand anderes assist.
Related Lösungen: Replace Text nach spezifischer Linie oder text

Antwort : Mehrfache Werte finden und ersetzen

Ich bin ein PowerShell Kerl, aber ich denke bin hier das Problem in Linie 8 (zweiter Index):
strNewText = ersetzen (strNewText, „5551234“, „5551235“)
Weitere Lösungen  
 
programming4us programming4us