Discussion :

[Darkhin]

Salut,

Je dispose de deux listbox (ListeDossiers et ListeFichiers) que je peuple.

j'enregistre leur contenu (et quelques options en plus) avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub EnregistrementProfil()
        Dim FluxEcriture As StreamWriter = New StreamWriter("Config.ini")
        ' Enregistrement des options
        FluxEcriture.WriteLine(Options.TexteIPFTP.Text) 'Ecriture de l'adresse du serveur Ftp
        FluxEcriture.WriteLine(Options.TextePortFTP.Text) 'Ecriture du port du serveur Ftp
        FluxEcriture.WriteLine(Options.TexteLoginFTP.Text) 'Ecriture du login du compte Ftp
        FluxEcriture.WriteLine(Encode(Options.TextePasseFTP.Text)) 'Encodage et Ecriture du mot de passe du compte Ftp
        FluxEcriture.WriteLine("[Dossiers]") 'Ecriture du séparateur de section "[Dossiers]"
 
        'Ecriture des n entrées de ListeDossiers
        For n = 0 To Principal.ListeDossiers.Items.Count - 1
            FluxEcriture.WriteLine(Principal.ListeDossiers.Items(n))
        Next
 
        FluxEcriture.WriteLine("[Fichiers]") 'Ecriture du séparateur de section "[Fichiers]"
 
        'Ecriture des n entrées de Listefichiers
        For n = 0 To Principal.ListeFichiers.Items.Count - 1
            FluxEcriture.WriteLine(Principal.ListeFichiers.Items(n))
        Next
        FluxEcriture.Close()
    End Sub

Mon soucis ?

Lorsqu'il y'a du contenu dans ListeFichiers et bien rien n'est enregistré dans le fichier et je ne sais pas pourquoi.

Si je laisse ListeFichiers vide, l'enregistrement des options et du contenu de ListeDossiers se fait.

Je nage...

(PS: je viens tout juste de me remettre à dev un peu alors un peu d'indulgence , Merci)

[tomlev]

tu as essayé d'exécuter ton code pas-à-pas avec le debugger ?

[Darkhin]

tu as essayé d'exécuter ton code pas-à-pas avec le debugger ?

Salut,

Je l'ai fait, chaque ligne est bien interprêtée (les for s'executent normalement et les valeurs retournées par les listes sont bonnes(pour pas être fou j'ai même mis des msgbox qui me retournent bien chaque élément de liste)) mais rien ne s'écrit

[Pol63]

à part peut etre un .ToString qui serait éventuellement nécessaire derrière Principal.ListeFichiers.Items(n)
je ne vois pas ce qui pourrait clocher dans votre code ...

sinon un conseil, prefixer les objets graphiques par leur type
genre BTNmachin pour les boutons, CMBbidule, OPTtruc, TXTresultat ou autre PCTmonImage
ca rend le code plus lisible meme pour soi

[Darkhin]

à part peut etre un .ToString qui serait éventuellement nécessaire derrière Principal.ListeFichiers.Items(n)
je ne vois pas ce qui pourrait clocher dans votre code ...

sinon un conseil, prefixer les objets graphiques par leur type
genre BTNmachin pour les boutons, CMBbidule, OPTtruc, TXTresultat ou autre PCTmonImage
ca rend le code plus lisible meme pour soi

Salut,

.ToString n'y change rien

[Pol63]

essaye d'enregistrer tout dans une string avec des vbcrlf pour aller à la ligne
puis mets ce string en une seule fois dans le streamwriter
comme ca tu verras peut etre mieux dans le string ce qu'il y a au fur et à mesure

[Darkhin]

essaye d'enregistrer tout dans une string avec des vbcrlf pour aller à la ligne
puis mets ce string en une seule fois dans le streamwriter
comme ca tu verras peut etre mieux dans le string ce qu'il y a au fur et à mesure

Salut,

Je crois avoir saisi ce que tu peux proposes mais je ne sais pas ce qu'est un vbcrlf

Merci

Edit: Yep c'est bon google est mon ami (c'est bien un retour charriot hein ?)

[Pol63]

oui oui
cr + lf (ou chr10 + chr13) va à la ligne
vb a une constante nommée VbCrLf dans microsoft.visualbasic.