VBS - Ouvrir et modifier un fichier TXT - VB/VBA/VBS - Programmation
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
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
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)...
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.