Problème de fichier
Résolu
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
5 mai 2005 à 09:33
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 5 mai 2005 à 09:56
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 5 mai 2005 à 09:56
1 réponse
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
5 mai 2005 à 09:56
5 mai 2005 à 09:56
Private Sub cmdChercherCode_Click()
Dim vNom, vNuméro
Open "C:\Code\France.txt" For Input As #1
Do While Not EOF(1)
Input #1, vNom, vNuméro
If txtCommune.Text = vNom Then
txtCode.Text = vNuméro
exit do
End If
Loop
Close #1
End Sub
pas tester, mais je pense que c'est bon. En fait dans ton code, tu lisais tout le fichier pour le garder que le dernier code.
Maintenant, tu ne lis pas tout le fichier, tu arrete dès que tu as trouver le code qui t'interresse.
<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.
Dim vNom, vNuméro
Open "C:\Code\France.txt" For Input As #1
Do While Not EOF(1)
Input #1, vNom, vNuméro
If txtCommune.Text = vNom Then
txtCode.Text = vNuméro
exit do
End If
Loop
Close #1
End Sub
pas tester, mais je pense que c'est bon. En fait dans ton code, tu lisais tout le fichier pour le garder que le dernier code.
Maintenant, tu ne lis pas tout le fichier, tu arrete dès que tu as trouver le code qui t'interresse.
<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.