Discussion :

[guigui11]

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

[pc75]

Bonjour,

Au lieu d'utiliser st = f.readAll, tu t'en sortiras mieux avec st = f.ReadLine qui lira ligne par ligne

[guigui11]

Merci,

mais en fait je m'en suis sorti avec un bon vieux batch, en insérant directement le texte et ma variable dans un fichier (le texte dans mon fichier est toujours le même, seul la variable change).
Cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
@echo off
cls
PATHDIR=C:\SMS\
for /f "tokens=1 delims=SMS_FILE" %%i in ('type "*.gsm"') do (
         set num=%%i
         goto end
         )
:end
 
echo TBClient,U,"(CreditUtilise )","","",Y,"(%num%)">>import.txt

Le fichier d'import me permet ensuite de l'injecter dans une base afin de mettre à jour les crédits SMS des clients.

Mais je pense que je vais me tourner vers le VBScript maintenant afin de réaliser ce genre de manipulation, car cela semble moins lourd.

Encore merci

[pc75]

Pense au tag RESOLU