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 ) qui bien entendu foire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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

Merci d'avance