Problème de lecture de fichier

Question

Bonjour ca fait maintenant de nombreuse heures que je me cogne à ce problème qui je suis sur avec un rien d'objectivité sur la question n en est pas un , je viens donc ici chercher un peu d'aide si ya une bonne ame qui ne sais pas quoi faire :D

J'explique mon cas : 
J'ai un fichier texte generé par un autre programme qui comporte 480 ligne composée de la sorte :
0,0,0,0,0,0 (les 0 peuvent être remplacé par n importe kel chiffre)

Je cherche à le lire et le stocker dans un tableau de type prédéfini , mais arrivé à la ligne 410 il me dit que mon input lit après la fin du fichier

quelqu'un peut il m aider svp ? 

voici l'algo

Private Sub Form_Load()
' charge le fichier par défaut
Dim Nom As String
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim Canal As Integer
Dim index_n As Integer

index_n = 10

Open App.Path & "	est1.txt" For Input As #1
        Do While Not EOF(1)
        Input #1, Nom, n1, n2, n3, n4, Canal
        If Nom <> "0" Then
            naj(index_n).Nom = Nom
        Else
            naj(index_n).Nom = ""
        End If
        naj(index_n).Code(1) = n1
        naj(index_n).Code(2) = n2
        naj(index_n).Code(3) = n3
        naj(index_n).Code(4) = n4
        naj(index_n).Canal = Canal
        naj(index_n).Actif = False
        index_n = index_n + 1
        Loop
Close #1

End Sub

et dans le module : 

Public Type UnType
    Nom As String
    Code(4) As Integer
    Canal As Integer
    Actif As Boolean
End Type
Public naj(500) As UnType

sgtapone · Answer

J'ai finalement trouvé la réponse après toutes c heures de galère , désolé (j'arrive pas à editer mon msg)

Problème de lecture de fichier

1 réponse

Discussions similaires