Lecture fichier txt

petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 - 25 sept. 2004 à 21:44
Ze_Dam Messages postés 340 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 7 juillet 2005 - 25 sept. 2004 à 22:04
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

cs_Pingouin Messages postés 262 Date d'inscription lundi 26 août 2002 Statut Membre Dernière intervention 24 août 2005
25 sept. 2004 à 21:57
Lorsque tu es a la fin du fichier la valeur EOF(1) passe a true. EOF = End Of File.

The Pingouin 8-)
0
Ze_Dam Messages postés 340 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 7 juillet 2005
25 sept. 2004 à 22:04
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)

@+
0
Rejoignez-nous