Parcour liste et ecriture à l'horizontale (j'ai besoin d'aide)

cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012 - 7 juil. 2005 à 18:12
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012 - 30 juil. 2005 à 21:42
Bonjours à tous, je souhaiterai ecrire dans un fichier mais:

-Parcourir une listbox:

For i = 0 to lst.Listcount -1

Print #1, XXXXXXXXXXX

Next



-XXXXXXXXXXX doit s'écrire à la suite c'est a dire :



j'aimerai que la liste soit parcourue et que dans le fichier l'ecriture se face de cette facon :

--- ciel, arbre, banc ...



et non comme cela (ma boucle ci-dessus):

--- ciel

arbre

banc



Merci d'avance

4 réponses

Schlangan Messages postés 47 Date d'inscription samedi 21 août 2004 Statut Membre Dernière intervention 11 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
0
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012
30 juil. 2005 à 10:57
Salut et merci, je vais essayer cela tous de suite.

En réalité, c'était pour :

- l'utilisateur entre des données dans une listbox

- le prog écrit automatiquement le contenu de la listbox et en ligne

Pour cela (savoir si le prog mais ou non les ";") comment je dois faire ?

Merci encore & bonne journée
0
Schlangan Messages postés 47 Date d'inscription samedi 21 août 2004 Statut Membre Dernière intervention 11 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
0
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012
30 juil. 2005 à 21:42
Merci je vais essayer tous cela. passe une bonne soirée.

ABF
0