Salvare e caricare dati da una listbox in un file txt

di il
11 risposte

Salvare e caricare dati da una listbox in un file txt

Buonasera a tutti...sono nuovo della programmazione in visual basic e del forum.
Volevo sapere se mi potevate aiutare nella scrittura di un piccolo programma.
Vi descrivo il codice e il form.
Ho una listbox2 dove carico dei dati da un altra listbox1 e con un button salvo i dati in un file txt
volevo sapere come poter salvare i dati della listbox2 in un unico rigo "es. ciao, sono, cassel" e allo stesso modo come poterli caricare nel listbox2 senza la virgola ed in colonna.

'SALVO I DATI NEL FILE TXT
Private Sub salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salva.Click
        Dim nome_del_file As String = nome.Text & " - " & cognome.Text
        Dim scrivi As New IO.StreamWriter("D:\dati\" & nome_del_file + ".txt")

        'estremi contratto
        scrivi.WriteLine(nome.Text)
        scrivi.WriteLine(cognome.Text)
       
        'prova sulla listbox
        For n = 0 To listaaltro1.Items.Count - 1
            scrivi.WriteLine(listaaltro1.Items.Item(n) & "," & vbLf)
        Next n

        scrivi.Close()

        dati.Items.Add(nome_del_file)

        Dim aggiorna_file As IO.StreamWriter
        aggiorna_file = IO.File.AppendText("D:\dati\log_dati.txt")
        aggiorna_file.WriteLine(nome_del_file)
        aggiorna_file.Close()

        MsgBox("Il file è stato salvato correttamente", MsgBoxStyle.OkOnly, Me.Text)

    End Sub

'LEGGO I DATI DAL FILE TXT
Private Sub dati_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dati.SelectedIndexChanged
        Dim nome_del_file As String = dati.SelectedItem.ToString()
        Dim leggi As New IO.StreamReader("D:\dati\" & nome_del_file + ".txt")


        While leggi.Peek > -1

            'estremi contratto
            nome.Text = leggi.ReadLine()
            cognome.Text = leggi.ReadLine()
            listaaltro1.SelectedItem = leggi.ReadToEnd()  ' CODICE ERRATO
        End While
        leggi.Close()
    End Sub

11 Risposte

Devi accedere o registrarti per scrivere nel forum
11 risposte