Lire une ligne presise dans un txt
cs_Moria
Messages postés
31
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
12 septembre 2002
-
29 juil. 2002 à 18:07
druggedsephiroth Messages postés 71 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 19 juin 2003 - 29 juil. 2002 à 18:50
druggedsephiroth Messages postés 71 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 19 juin 2003 - 29 juil. 2002 à 18:50
1 réponse
druggedsephiroth
Messages postés
71
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
19 juin 2003
29 juil. 2002 à 18:50
29 juil. 2002 à 18:50
Ya surement plus simple mais tu peux faire comme ca:
Private Sub Command1_Click()
Open "fichier.txt" For Input As #1
While Not EOF(1)
Line Input #1, variable
i = i + 1
If i = 3 Then GoTo suite 'remplace le 3 par la ligne que tu veux avoir
Wend
suite:
MsgBox variable
End Sub
Private Sub Form_Load()
i = 1
End Sub
Private Sub Command1_Click()
Open "fichier.txt" For Input As #1
While Not EOF(1)
Line Input #1, variable
i = i + 1
If i = 3 Then GoTo suite 'remplace le 3 par la ligne que tu veux avoir
Wend
suite:
MsgBox variable
End Sub
Private Sub Form_Load()
i = 1
End Sub