[VBS]Ecrire à la fin d'une ligne

[Mammy Potter]

Bonjour,

Bonne et heureuse année à tous.

Je me permets de vous faire part d'un petit soucis que je n'arrive pas à résoudre même avec maintes recherches sur internet.

J'ai un fichier de 9435 lignes dans lequel je dois ajouter à la fin de chaque ligne 1 caractère. Ne voulant pas le faire ligne par ligne, je voulais faire un petit script qui le ferait à ma place.

Mon problème :
- Je sais écrire à la fin d'un fichier
- Je sais remplacer une chaîne de caractère dans un fichier
- Je sais lire un fichier

Mais je ne sais pas comment écrire à la fin d'une ligne.

Je vous remercie par avance pour votre aide.

[papyxy]

Bonjour
A mon avis il faut lire le fichier ligne par ligne; ajouter le caractère et écrire dans un autre fichier.

[Mammy Potter]

C'est ce qu'il m'avait semblé être la seule solution.

Je vais donc m'orienter vers ça.

Merci d'avoir répondu.

[papyxy]

je vous propose ce qui suit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  const  ficlu    = "ficlu.txt"
  const  ficecrit = "fnouv.txt"
  const  carac    = "*" '       caractère à mettre en bout de ligne
 
 Set        oFso = CreateObject("Scripting.FileSystemObject")
     if not ofso.fileexists(ficlu) then _
            msgbox "fichier non trouvé",, ficlu : wscript.quit
 
Const ForReading    = 1
const ForWriting    = 2
Const TristateTrue  = -1     ' Unicode
 
   Set fs   = oFso.OpenTextFile(ficecrit,ForWriting,true)
 
                 fic= oFSO.GetFile(ficlu).path
  Set fl = oFso.OpenTextFile(fic,ForReading, TristateTrue)
 
  while Not fl.AtEndOfStream
     lig = fl.readline
            fs.writeline (lig & carac)
  Wend
  fl.Close  : fs.close
 
  '     renommer les fichiers
             f= left(ficlu,len(ficlu)-3) & "bak"
             ofso.movefile  ficlu, f
             ofso.movefile  ficecrit, ficlu

à vous de voir

[Mammy Potter]

Merci papyxy,

Pour ça j'avais le code (qui ressemble à peut prêt au tien).

Bonne journée

[papyxy]

faut mettre "résolu" si vous avez eu satisfaction.