Listbox dans fichier tct

cs_simon0000 Messages postés 90 Date d'inscription lundi 25 juillet 2005 Statut Membre Dernière intervention 18 janvier 2006 - 26 juil. 2005 à 23:21
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 26 juil. 2005 à 23:34
salut tous le monde
je ve enregistrer le contenu d'un listbox dans un fichier text j'ai ce code

Dim MonFichier As String, Ligne As String, i As Integer
MonFichier = "D:\list.txt"
Open MonFichier For Output As #1
For i = 0 To (List1.ListCount - 1)
Ligne = List1.List(i)
Print #1, Ligne
Next i
Close #1

mais il suprime tous ce que il yavait avant alord que moi je ve ajouter des linge
merci

2 réponses

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
26 juil. 2005 à 23:32
Salut,

normal, il faut ouvrir le ficher en mode append (ajouter à la fin)



Dim MonFichier As String, Ligne As String, i As Integer



MonFichier = "D:\list.txt"

Open MonFichier For Append As #1

Dim max as Integer

max = (List1.ListCount - 1)


For i = 0 To max

Write #1, List1.List(i)


Next i

Close #1


++

Zlub
0
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
26 juil. 2005 à 23:34
Salut,

Utiliser max pour éviter de faire un autant d'appel à ListCount que tu as de tour de boucle...
Ta synthaxe est bonne mais c'est inutile de verifier le nb d'élément dans la liste à chaque tour, puisqu'il est constant...

++

Zlub
0