Lecture fichier txt

Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
340
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
7 juillet 2005
-
Salut

comment on fait pour lire un fichier text.txt
et entre en #1 le tout.
et savoir combien il y a de ligne
j'ai essayer sa

Private Sub form_activate()
Open "c:\agenda electronique\agenda_database.txt" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, texte(i)
i = i + 1
Loop
End Sub
Mais comment savoir si il est a la fin du fichier.text

2 réponses

Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005

Lorsque tu es a la fin du fichier la valeur EOF(1) passe a true. EOF = End Of File.

The Pingouin 8-)
Messages postés
340
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
7 juillet 2005

Donc chaque fois qu'il boucle, il récupère la ligne suivante dans le fichier txt et l'isère dans la variable texte(). i étant incrémenter à chaque passage de boucle, c'est lui qui pourra t'indiquer le nombre de lignes qui ont été lues. Par exemple : txtNombreLignes. Text = Str(i)

@+