Schlangan
Messages postés47Date d'inscriptionsamedi 21 août 2004StatutMembreDernière intervention11 décembre 2007 29 juil. 2005 à 10:23
Pour ajouter des éléments les uns à la suite des autres, il suffit de rajouter un point virgule juste après le XXXXXXXXXXX.
Exemple : Print #1, XXXXXXXXXXX; Tu dois aussi ajouter la virgule manuellement pour en avoir une il me semble.
Ton code devrait alors ressembler à ça :
For i = 0 to lst.Listcount -1
Print #1, lst.List(i) & ",";
Next
Schlangan
Messages postés47Date d'inscriptionsamedi 21 août 2004StatutMembreDernière intervention11 décembre 2007 30 juil. 2005 à 11:07
Si tu veux ensuite pouvoir lire à nouveau les données entrées, tu procèdes comme ça :
For i = 0 to lst.Listcount -1
Print #1, lst.List(i);
If Not i = lst.Listcount - 1 Then Print #1, "," ;
Next
Ainsi le programme rajoutera automatiquement une virgule entre chaque élement
dans le fichier (car c'est comme ça que les données pourront être récupérées ensuite), sans en mettre une à la fin, afin d'éviter toute erreur.
Ensuite tu n'auras plus qu'à faire un code pour lire les données du style :
Do While Not EOF(1)
Input #1,a
lst.AddItem a
Loop