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.
Publicité
Posté le 10-10-2006 à 13:05:40
agkklr
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."
aprilthe5ith
Posté le 10-10-2006 à 14:24:09
Merci beaucoup.
agkklr
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."
unisev
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.