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