Ajout de caractéres en fin des lignes d'un fichier texte

Bonjour,

dans mon cas, je cherche à ajouter une chaine à la fin de chaque ligne d'un fichier texte.

je dois trouver comment repérer la fin de ligne.

Est ce que quelqu'un pourra me proposer un script qui le permet ??

Merci d'avance.

Tu trouves plein d'exemples sur ça:

Code:

---

1 2 3 4 5 6 7 8 9 10

Set objFso = CreateObject("Scripting.FileSystemObject") Set F1 = objFso.OpenTextFile (C:\toto.txt, 1) Set F2 = objFso.CreateTextFile (C:\tata.txt, True) Do Until F1.AtEndOfStream Read = F1.ReadLine F2.WriteLine Read & "chaine à ajouter" Loop Set F1 = Nothing Set F2 = Nothing

---

Après si tu veux remplacer toto.txt par tata.txt un Delete puis un Move devrait suffir :)

En espérant que ca puisse aider :)