hi,
wie die Überschrift schon sagt, möchte ich daten die ich vorher in mehreren Textboxen eingebe, in einer Listview speichern ohne die daten in einer separaten text datei abspeichere und beim nächsten start wieder laden muss.
das befüllen der Listview klappt ganz gut nur wie speichere ich diese Daten direkt in der Listview sodass ich beim näschten start die Daten wieder angezeigt bekomme in der Listview.
code zum einfügen der daten in die Listview.
zum speichern in eine datei hatte ich das in früheren projekten wie folgt realisiert.
wie die Überschrift schon sagt, möchte ich daten die ich vorher in mehreren Textboxen eingebe, in einer Listview speichern ohne die daten in einer separaten text datei abspeichere und beim nächsten start wieder laden muss.
das befüllen der Listview klappt ganz gut nur wie speichere ich diese Daten direkt in der Listview sodass ich beim näschten start die Daten wieder angezeigt bekomme in der Listview.
code zum einfügen der daten in die Listview.
zum speichern in eine datei hatte ich das in früheren projekten wie folgt realisiert.
VB.NET-Quellcode
- Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
- With sfdListSpeichern
- .AddExtension = True 'Dateierweiterung anfügen
- .DefaultExt = ".sl" ' Standarderweiterung
- .Filter = "Saved List (*.sl) | *.sl| Text Document (*.txt) |*.txt| Richtext Format (*.rtf) |*.rtf| Alle Daateien (*.*)|*.*"
- .OverwritePrompt = True 'Nachfrage bei Überschreiben
- End With
- sfdListSpeichern.ShowDialog()
- Dim Path As String = sfdListSpeichern.FileName
- Dim AllItems As String = ""
- Try
- For Each item As ListViewItem In ListView1.Items
- AllItems = AllItems & item.Text & "#" & item.SubItems(1).Text & "#" & item.SubItems(2).Text & "#" & item.SubItems(3).Text & "#" & item.SubItems(4).Text & vbNewLine
- Next
- AllItems = AllItems.Trim
- Catch ex As Exception
- End Try
- Try
- If My.Computer.FileSystem.FileExists(Path) Then
- My.Computer.FileSystem.DeleteFile(Path)
- End If
- My.Computer.FileSystem.WriteAllText(Path, AllItems, False)
- Catch ex As Exception
- MsgBox("Fehler" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler")
- End Try
- End Sub