Hallo,
Ich habe seit ca. 2 Monaten das Problem das ich meine Listview Items und Subitems nicht richtig abgespeichert bekomme.
Und ich weiß es gibt massenweise von Beiträgen zu diesem Thema aber das ist alles nicht das was ich möchte. Ich möchte die Items gerne in eine Textdatei speichern Jedes Rezept in einer neuen Zeile. Bei Meinen bisheriegen Versuchen habe ich die einzelnen Angaben(Rezeptname, Kategorie, Kalorien, Autor, Beschreibung) mit einem Doppelpunkt(":") Von einander getrennt und sie damit ausgelesen :
Ich würde mich Über viele Informationsreiche Antworten freuen
ps. Im Anhang findet ihr 2 Bilder meiner Windows Form Anwendung
Lg Jan
*Topic verschoben, da das wohl kaum VBA ist...*
Ich habe seit ca. 2 Monaten das Problem das ich meine Listview Items und Subitems nicht richtig abgespeichert bekomme.
Und ich weiß es gibt massenweise von Beiträgen zu diesem Thema aber das ist alles nicht das was ich möchte. Ich möchte die Items gerne in eine Textdatei speichern Jedes Rezept in einer neuen Zeile. Bei Meinen bisheriegen Versuchen habe ich die einzelnen Angaben(Rezeptname, Kategorie, Kalorien, Autor, Beschreibung) mit einem Doppelpunkt(":") Von einander getrennt und sie damit ausgelesen :
VB.NET-Quellcode
- Public Sub FillListFromFile()
- Dim srReader As StreamReader
- Dim bla As String
- Dim Einzelteile() As String
- Dim X As Integer = 0
- Dim OFD As New OpenFileDialog
- Try
- OFD.RestoreDirectory = True
- If (OFD.ShowDialog() = DialogResult.OK) Then
- srReader = My.Computer.FileSystem.OpenTextFileReader(OFD.FileName)
- Do Until srReader.EndOfStream ' Bis Dateiende erreicht
- bla = srReader.ReadLine ' Eine Zeile lesen
- Einzelteile = bla.Split(":")
- ' In Einzelteile zerlegen
- ListView1.Items.Add(Einzelteile(1)) 'RezeptName
- ListView1.Items(X).SubItems.Add(Einzelteile(3)) 'Kategorie
- ListView1.Items(X).SubItems.Add(Einzelteile(5)) 'Kalorien
- ListView1.Items(X).SubItems.Add(Einzelteile(7)) 'Autor
- 'Beschreibung 9
- X = X + 1
- Loop
- srReader.Close()
- srReader.Dispose()
- End If
- Catch ex As Exception
- 'MessageBox.Show(ex.Message)
- Finally
- ListView1.OwnerDraw = False
- ListView1.View = View.Details
- End Try
- End Sub
Ich würde mich Über viele Informationsreiche Antworten freuen
ps. Im Anhang findet ihr 2 Bilder meiner Windows Form Anwendung
Lg Jan
*Topic verschoben, da das wohl kaum VBA ist...*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()