Enregistrer/ouvrir plusieurs listbox dans un seul fichier texte

Messages postés
4
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
8 avril 2008
- - Dernière réponse : Logileman
Messages postés
30
Date d'inscription
mardi 27 mars 2012
Statut
Membre
Dernière intervention
4 juillet 2012
- 4 juil. 2012 à 09:47
Bonjour,
je suis nouveaux sur le forum et très  "novice" en programmation,
excusez ma question qui paraitra  peut-être trop facile pour certain...
Comment fait on pour enregistrer puis ouvrir les données contenues dans 3 listbox dans un fichier texte à partir de savefiledialogue et openfiledialogue?
j'ai trouver sur le forum comment enregistrer une listbox en fichier texte mais je n'ai pas trouver comment faire pour enregistrer les trois...
voici mon code :
Private

Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles CmdEnregistrer.Click

If EnregistrerFichier.ShowDialog() = Windows.Forms.DialogResult.OK
Then
      Using File
As
New System.IO.StreamWriter(EnregistrerFichier.FileName)
            
For
Each Item
As
String
In LstTemps.Items
            File.WriteLine(Item)

            Next
            File.Close()

      End
Using
End
If
End
Sub
Afficher la suite 

3 réponses

Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEnregistrer.Click
If EnregistrerFichier.ShowDialog() = Windows.Forms.DialogResult.OK Then
Using File AsNew System.IO.StreamWriter(EnregistrerFichier.FileName)
File.WriteLine(TextBox1.Text)
File.WriteLine(TextBox2.Text)
File.WriteLine(TextBox3.Text)
File.Close()
EndUsing
EndIf
EndSub
Commenter la réponse de Renfield
Messages postés
4
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
8 avril 2008
0
Merci
Salut, d'abord merci pr cette réponse rapide, j'ai utilisé ce que tu ma dis en appropriant les textbox utilisé par mon programme, le code n'a aucune erreur...
Cependant, au moment de l'enregistrement tous marche bien sauf que quand je vais lire le fichier texte rien n'est écrit dedans...
je ne trouve pas la commande, peut tu me ladire si tu l'a connais?
Merci d'avance
Commenter la réponse de maxpruv
Messages postés
30
Date d'inscription
mardi 27 mars 2012
Statut
Membre
Dernière intervention
4 juillet 2012
0
Merci
Essaye :
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sfd As New SaveFileDialog
        sfd.Title = "Enregistrer une playsit"
        sfd.Filter = "Fichier texte (*.txt)|*.txt"
        If sfd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Using File As New System.IO.StreamWriter(sfd.FileName)
                For Each Item As String In ListBox1.Items
                    File.WriteLine(Item)
                Next
                File.Close()
            End Using
        End If
    End Sub 


et répète le 3 fois : 3 bouttons = 3 listbox
Commenter la réponse de Logileman