Const ForReading = 1
Const ForWriting = 2
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer objFile = objFSO.OpenTextFile (« C:\Scripts\123.txt », ForReading)
strText = objFile.ReadAll
objFile.Close
le strNewText = remplacent (strText, « 043487835 », « 04-3487835 »)
le strNewText = remplacent (strText, « 5551234 », « 5551235 »)
objFile réglé = objFSO.OpenTextFile (« C:\Scripts\123.txt », ForWriting)
strNewText d'objFile.WriteLine
le class= >