Comment réduire des lignes de codes

zazsze Messages postés 54 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 15 août 2007 - 13 mars 2003 à 00:23
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 13 mars 2003 à 00:54
En appuyant sur un bouton de commande le contenu d un fichier TXT se copie dans 6 textbox. J'ai été obligé d'écrire le code suivant :
Open "C:\Carte.txt" For Input As #1
Line Input #1, tmp
Text1 = tmp
Line Input #1, tmp
Text2 = tmp
Line Input #1, tmp
Text3 = tmp
Line Input #1, tmp
Text4 = tmp
Line Input #1, tmp
Text5 = tmp
Line Input #1, tmp
Text6 = tmp
Line Input #1, tmp
----------------------------------------------------------------
On m'a proposé la solution suivante :
Fait un groupe de contrôle avec tes TextBox (même nom, mais propriété Index différentes pour chacun), et tu récupère le texte avec une boucle for...
----------------------------------------------------------------
Mais étant débutant, j'aimerai avoir plus d'explications concernant l'utilisation de la boucle for. Pour ce qui est du reste c'est bon. Si on pouvait me dire quelles lignes de codes il fallait que j'écrire ce serait encore mieux
merci

3 réponses

fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 3
13 mars 2003 à 00:40
Open "C:\Carte.txt" For Input As #1
for boucle =0 to 5
Line Input #1, tmp
Text(0).text = tmp
next
closed #1

Voilà l'idée avec un groupe de control text de 0 à 5

<center>http://www.fredlynx.com
</center>
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
13 mars 2003 à 00:53
Rectification :

Open "C:\Carte.txt" For Input As #1
For boucle =0 to 5
Line Input #1, tmp
Text(boucle).Text = tmp
Next boucle
Close 1
0
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 3
13 mars 2003 à 00:54
Oups Désolé...

<center>http://www.fredlynx.com
</center>
0
Rejoignez-nous