Discussion :

[horzy]

Bonjour,

J'explique mon pb :
J'ai un fichier texte du type :

123434343 994384938 0000000298392 00000000
989485887 878437387 0000000298393 20050327
etc...

et je voudrais remplacer les fins de lignes par des blancs lorsqu'elle finissent par des 00000000

pour dans l'exemple donner ca :

123434343 994384938 0000000298392
989485887 878437387 0000000298393 20050327


voila le code que j'ai écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
Open mon_fichier For Input As #num
 
Line Input #num, Ligne
 
While Not Eof(num)
replace(Ligne, " 00000000" & VbCr, "         " & vbCr")
Print #num, Ligne
Wend
 
Close #num

mais ca marche pas !
Comment faire pour lui faire comprendre que ce sont les fins de lignes avec des zéro que je veux remplacer par des blancs et pas les milieux de lignes avec zeros? est-ce la bonne démarche ?
Merci de votre aide

[SfJ5Rpw8]

non l'écriture/lecture simultanée dans un même fichier texte n'est pas possible ...

soit tu utilise 2 fichiers ...... (un temporaire .. que tu efface ensuite...)

sinon si ton fichier n'as pas une taille excessive tu peu tout lire dans un buffer... faire ton remplacement.. puis tout ré-écrire....

[zazaraignée]

En testant ce qu'il y a à droite de la linge (fonction Right dans un If ... Then) et en remplaçant la ligne par une nouvelle chaîne fait de la partie de gauche (fonction Left) et ta chaîne de blancs (fonction String).