pb avec EOF dans un fichier texte VB6

Question

Slt à tous,

Voila, j'ai un fichier *.txt de 1976 lignes sans ligne vide.

Pour une raison que j'ignore, mon programme trouve le EOF à la ligne 763.
Or quand je copie le contenu de mon fichier texte sous excel, il trouve cette ligne blanche ainsi qu'en 694 (sans raison apparante).

Mon programme est le suivant:
Do While Not EOF(1)
    Line Input #1, row1
        CalcArray(Nrow, 0) = Left(row1, 44)
        CalcArray(Nrow, 1) = Mid(row1, 45, 40)
        Nrow = Nrow + 1
Loop
Close #1

CalcArray est un tableau de 3000 lignes sur 2 colones
Nrow le N° de la ligne dans ce tableau.

Merci du coup de pouce,

Saucisson

cs_dragon · Answer

passe en mode binairy, ça règle souvent le problème
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

Pb avec EOF dans un fichier texte VB6

1 réponse

Discussions similaires