Discussion :

[loubna04]

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.

[Mocodo]

Tu trouves plein d'exemples sur ça:

Code :

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

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