Probleme fin de fichier texte

Question

Bonjour,

J'ai fait une macro sous excel pour lire un fichier texte et en extraire des informations.
J'ai presque tout le temps une erreur car je pense que dans ma boucle while not, la fin du fichier est mal/pas detectee...

    Dim strline As String
    i=1

    Open file For Input As #1

    While Not EOF(1)
        If Left(strline, 1) = "A" Then
            Fleet = Mid(strline, 27, 1)
            Line Input #1, strline
            Point = Mid(strline, 5, 4)
        End If


        i = i + 1
        Cells(i, 3) = Point
        Cells(I, 5) = Fleet

    Line Input #1, strline


    Wend

Merci d'avance pour votre aide...

Renfield · Answer

tu lis deux lignes par deux lignes...

si tu as un nombre pair, ca va... sinon, boum !

Jeremy014 · Answer

Oui car j'ai toujours un nombre de ligne pair dans ce fichier...
Tu vois un autre probleme?
J'ai lu sur un autre post du forum auquel je crois que tu as participe, qu'il peut y avoir un soucis avec la commande Line Input si le fichier n'est pas binaire...

Probleme fin de fichier texte

2 réponses

Votre réponse

Discussions similaires