petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
25 sept. 2004 à 21:44
Ze_Dam
Messages postés340Date d'inscriptionlundi 8 mars 2004StatutMembreDerniè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
Ze_Dam
Messages postés340Date d'inscriptionlundi 8 mars 2004StatutMembreDerniè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)