listbox dans fichier tct

Question

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

Zlub · Answer

Salut,

normal, il faut ouvrir le ficher en mode append (ajouter &#224; 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

Zlub · Answer

Salut,

Utiliser max  pour &#233;viter de faire un autant d'appel &#224; ListCount que tu as de tour de boucle...
Ta synthaxe est bonne mais c'est inutile de verifier le nb d'&#233;l&#233;ment dans la liste &#224; chaque tour, puisqu'il est constant...

++

Zlub

Listbox dans fichier tct

2 réponses

Discussions similaires