[VBScript]Récupérer chaîne txt et remplacer dans fichier txt
Bonjour les ami(e)s,
je me tourne vers le VBScript, car je n'arrive pas à résoudre mon problème avec des fichiers batch (normal me diriez vous).
Mon soucis est que je voudrais récupérer dans une variable la seconde ligne d'un fihier plat, puis remplacer dans un fichier texte la valeur Null par cette variable (à savoir la seconde ligne).
voici mon code (et on ne se moque pas :oops: ) qui bien entendu foire :
Code:
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 |
Si quelqu'un a une idée peut-il m'en faire part, car comme vous pouvez le constater je débute avec VBScript :aie:
Merci d'avance
