Discussion :

[karimspace]

Bonjour,

j'ai un fichier texte produit par un systeme unix et reporté sur windows (automatiquement).

quand j'essaie de lire ce fichier ligne par ligne, il me lit l'ensemble des lignes en une seule fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim fichier As String
Dim ligne As String
 
Open fichier For Input As #2
 
While Not EOF(2)
   Line Input #2, ligne
   debug.print ligne
Wend
 
Close #2

Ce meme fichier quand je l'ouvre avec Notepad, il est sur une seule ligne, par contre si je l'ouvre avec ultra edit ou meme wordpad, il est bien sur plusieurs lignes.

avez vous une idée svp pour pouvoir le lire ligne par ligne ?

[Phifi]

Bonjour,

Si tu n'as qu'une ligne en l'ouvrant dans le bloc note, c'est à priori le format standard du fichier. Il ne doit pas y avoir de retour à la ligne (CrLf).

Tu as peut-être dans tes autres éditeurs une option du style "Retour automatique à la ligne"

[Delbeke]

Les fichiers texte unix ont la particularité d'avoir un unique LineFeed là ou le monde Windows/Dos utilise un CarriageReturn+LineFeed

Donc un VbLf au lieu d'un VbCrLf
Le mieux est de lire completement ton fichier en mode binaire et de faire un split sur le VbLf

[karimspace]

Les fichiers texte unix ont la particularité d'avoir un unique LineFeed là ou le monde Windows/Dos utilise un CarriageReturn+LineFeed

Donc un VbLf au lieu d'un VbCrLf
Le mieux est de lire completement ton fichier en mode binaire et de faire un split sur le VbLf

merci beaucoup pour la réponse, mais peux-tu expliquer un peut plus en donnant du pseudo code pour le découpage.

merci.

[Delbeke]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim fichier As String
Dim ligne As String
Dim Buffer as String
Dim Lignes as Variant
Dim lPnt as string
 
Open fichier For Binary  As #2
   Buffer = String(Lof(2),0)    'on dimensinne buffer à la taille du fichier
   Get #2, ,Buffer               'on lit le fichier en entier
Close #2
 
Lignes=Split(Buffer,VbLf)    'on decoupe le buffer dans un tableau
For lPnt = 0 to Ubound(Lignes)
   Ligne = Lignes(lPnt)
   Debug.Print Ligne
Next

[karimspace]

Cool, ça marche très bien.

merci beaucoup pour votre aide )