VBS - Ouvrir et modifier un fichier TXT

VBS - Ouvrir et modifier un fichier TXT - VB/VBA/VBS - Programmation

Marsh Posté le 10-10-2006 à 13:05:40    

Bonjour,
 
Je ne connais rien à VBScrip et je dois écrire un script qui modifie un .txt (je ne sais pas s'il est necessaire de l'ouvrir avant) du type : je recherche telle ligne et si elle existe, j'insère une ligne.
Je ne connais pas du tout la syntaxe et je n'ai rien trouvé sur le net.
 
Merci pour votre aide.

Reply

Marsh Posté le 10-10-2006 à 13:05:40   

Reply

Marsh Posté le 10-10-2006 à 14:08:21    

Set MyObject = CreateObject("Scripting.FileSystemObject" )
Set MyFile = MyObject.GetFile(Path & "fichier.txt" )
Set OpenFile = MyFile.OpenAsTextStream(1)
'Recherche de ta ligne
Do While OpenFile.AtEndOfStream = False
 CurrentLine = OpenFile.ReadLine
 If Instr(CurrentLine,"chaine_a_chercher" ) <> 0 Then  OpenFile.WriteLine "ce_que_tu_veux_rajouter"
Loop
OpenFile.Close


---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 10-10-2006 à 14:24:09    

Merci beaucoup.

Reply

Marsh Posté le 10-10-2006 à 14:26:59    

Gaffe quand même à la boucle infinie :  
Si tu cherches une occurrence de "test" et que si le résultat est positif, tu ajoutes "Le test a marché" à la fin, ça me parait un bon cas de boucle infinie.
Sinon, un site de référence pour le VBS, très complet et indispensable à mon avis : http://www.bellamyjc.org/fr/vbscript.html


---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 08-10-2008 à 11:29:21    

Bonjour à tous,
 
Je cherche à faire a peu près ça, mais je veux juste ajouter une ligne à la fin d'un fichier TXT.
 
C'est plus simple non ?
 
Je viens de trouver... For Appenning (8)...


Message édité par unisev le 08-10-2008 à 11:37:30
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed