1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, Msg
Set fso = CreateObject("Scripting.FileSystemObject")
'Ouverture et lecture du fichier pour récupérer la seconde ligne
Set f = fso.OpenTextFile("c:\test\*.gsm", ForReading)
st = f.readAll
f.Close
Resultat = Mid(ReadTextFileTest, 19, 24)
'Ouverture et lecture du fichier à modifier
Set f = fso.OpenTextFile("c:\test\test.txt", ForReading)
st = f.readAll
f.Close
'ecriture du fichier modifier... aprés avoir remplacer "Null" par la variable Resultat
Set f = fso.OpenTextFile("c:\test\test.txt", ForWriting)
f.Write replace(st,"Null",Resultat)
f.close |
Partager