listview spalten speichern und laden

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.

    listview spalten speichern und laden

    Hallo,ich arbeite an einem programm....es hat eine listview und 4 texboxen und ein button so mit den 4 textboxen und dem button füge ich der listview die items zu....jetzt will ich die listview in einer datei speichern und bem nächsten start soll die listview die datei lesen und die items wieder hinzufügen.....
    weiss einer wie das geht?ich habe den code dort wird aber immer nur die erste spalte gespeichert...wie bekomme ch das hin das alle spalten gespeichert werden?? + laden?


    Danke im vorraus :)

    eigentlich wollte ich den auch hinzufügen habe aber vergessen :/

    ---------

    VB.NET-Quellcode

    1. Public Class produkt 'Private myFileInfo As New IO.FileInfo("C:\Settings\Productview\ListeN.txt")
    3. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() main.Show() End Sub
    5. Private Sub produkt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click ListView1.Items.Add(New ListViewItem(New String() {(Textname.Text), (Textpreis.Text), (Textanzahl.Text), (Textmindest.Text)})) End Sub Private Sub cmdSave_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles cmdSave.Click
    9. ' ListBox speichern Dim sFile As String
    10. sFile = Application.StartupPath & "\Liste.dat" ListView_Save(ListView1, sFile) End Sub
    11. Private Sub cmdClear_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdClear.Click
    12. ' Inhalt der ListBox löschen ' (dient nur zur besseren Demonstration) ListView1.Items.Clear() End Sub
    13. Private Sub cmdRead_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdRead.Click
    14. ' ListBox einlesen Dim sFile As String
    15. sFile = Application.StartupPath & "\Liste.dat" ListView_Read(ListView1, sFile)
    16. End Sub Public Sub ListView_Save(ByVal Listview As ListView, _ ByVal sFile As String)
    17. ' Inhalt einer ListBox speichern Dim oStream As IO.StreamWriter Dim i As Short
    18. oStream = New IO.StreamWriter(sFile)
    19. For i = 0 To Listview.Items.Count - 1 oStream.WriteLine(Listview.Items(i)) Next oStream.Close() End Sub
    20. Public Sub ListView_Read(ByVal listview As ListView, _ ByVal sFile As String)
    21. ' Inhalt einer ListBox speichern Dim oStream As IO.StreamReader Dim sLine As String
    22. ' ListBox löschen listview.Items.Clear()
    23. ' Existsiert die Datei? Dim oFile As New IO.FileInfo(sFile)
    24. If oFile.Exists() = True Then oStream = New IO.StreamReader(sFile) ' Datei zeilenweise auslesen Do sLine = oStream.ReadLine() If IsNothing(sLine) Then Exit Do listview.Items.Add(sLine) Loop oStream.Close() End If End Sub
    25. Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    26. End Sub
    27. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    28. End SubEnd Class

    --------

    es tut mir leid aber ich weiss nciht wo man diese vb codes macht...
    hier aber ncoh mal das ganze in einer textdatei
    so bitte....
    mfg Niklas
    Dateien

    • listview.txt

      (2,88 kB, 220 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Niklas37Pro“ ()

    Ich möchte dich nicht ärgern.

    Aber jetzt räum bitte den Code so auf das er für jeden leserlcih ist.
    Wenn sich hier jemand die Mühe machen soll dir zu Helfen,
    mach du dir bitte die Mühe es für dein gegenüber so einfach wie möglich zu machen.

    es ist nur eine frage des anstand.

    so wie du in den Wald rufst......


    Ordentliche frage.... schnelle und ordentliche antwort.

    dank dir

    Im Editor hier im Forum ist über deinem Textfeld, wo du die frage eingibst, ein Button mit "VB".
    wenn du dort draufklickst, erscheint im Textfeld [VB VB].
    Genau dazwischen Kopierst du deinen Code rein.

    That's it !

    habe das mal für dich gemacht

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class produkt
    2. 'Private myFileInfo As New IO.FileInfo("C:\Settings\Productview\ListeN.txt")
    5. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    6. Me.Hide()
    7. main.Show()
    8. End Sub
    11. Private Sub produkt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. End Sub
    16. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
    17. ListView1.Items.Add(New ListViewItem(New String() {(Textname.Text), (Textpreis.Text), (Textanzahl.Text), (Textmindest.Text)}))
    18. End Sub
    19. Private Sub cmdSave_Click(ByVal sender As System.Object, _
    20. ByVal e As System.EventArgs) Handles cmdSave.Click
    22. ' ListBox speichern
    23. Dim sFile As String
    25. sFile = Application.StartupPath & "\Liste.dat"
    26. ListView_Save(ListView1, sFile)
    27. End Sub
    29. Private Sub cmdClear_Click(ByVal sender As System.Object, _
    30. ByVal e As System.EventArgs) Handles cmdClear.Click
    32. ' Inhalt der ListBox löschen
    33. ' (dient nur zur besseren Demonstration)
    34. ListView1.Items.Clear()
    35. End Sub
    37. Private Sub cmdRead_Click(ByVal sender As System.Object, _
    38. ByVal e As System.EventArgs) Handles cmdRead.Click
    40. ' ListBox einlesen
    41. Dim sFile As String
    43. sFile = Application.StartupPath & "\Liste.dat"
    44. ListView_Read(ListView1, sFile)
    46. End Sub
    47. Public Sub ListView_Save(ByVal Listview As ListView, _
    48. ByVal sFile As String)
    50. ' Inhalt einer ListBox speichern
    51. Dim oStream As IO.StreamWriter
    52. Dim i As Short
    54. oStream = New IO.StreamWriter(sFile)
    56. For i = 0 To Listview.Items.Count - 1
    57. oStream.WriteLine(Listview.Items(i))
    58. Next
    59. oStream.Close()
    60. End Sub
    62. Public Sub ListView_Read(ByVal listview As ListView, _
    63. ByVal sFile As String)
    65. ' Inhalt einer ListBox speichern
    66. Dim oStream As IO.StreamReader
    67. Dim sLine As String
    69. ' ListBox löschen
    70. listview.Items.Clear()
    72. ' Existsiert die Datei?
    73. Dim oFile As New IO.FileInfo(sFile)
    75. If oFile.Exists() = True Then
    76. oStream = New IO.StreamReader(sFile)
    77. ' Datei zeilenweise auslesen
    78. Do
    79. sLine = oStream.ReadLine()
    80. If IsNothing(sLine) Then Exit Do
    81. listview.Items.Add(sLine)
    82. Loop
    83. oStream.Close()
    84. End If
    85. End Sub
    87. Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    89. End Sub
    91. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    93. End Sub
    94. End Class


    Hier mal ein Beipiel wie man liest:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Sender_Liste_Lesen()
    2. Form_Medien_Player.ListView_Radio.Items.Clear() ' Liste Clear
    3. Dim lines() As String = IO.File.ReadAllLines(My.Application.Info.DirectoryPath.ToString & "\SenderListe.cfg")
    4. Dim Menge As Integer = lines.GetLength(Menge) - 1 ' Anzahl der Zeilen ermitteln
    5. For i = 0 To Menge
    6. Dim Lied As String = lines(i)
    7. Dim parts() As String = Split(Lied, ";")
    8. LfNr = (parts(0)).ToString ' Laufende Nr
    9. Sender_Name = (parts(1)).ToString ' Sender Name
    10. Genre = (parts(2)).ToString ' Genre
    11. www_Name = (parts(3)).ToString ' www_Adresse
    12. Sender_an_Liste_Anfügen()
    13. Next i
    14. End Sub


    und eins wie man schreibt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Sender_Liste_Speichern()
    2. Dim dateiname As String = My.Application.Info.DirectoryPath & "\SenderListe.cfg"
    3. If File.Exists(dateiname) = True Then ' Wenn Datei Exestiert
    4. Try
    5. IO.File.Delete(dateiname)
    6. Catch
    7. End Try
    8. Dim Items_Count As Integer = Form_Medien_Player.ListView_Radio.Items.Count - 1
    9. Dim Alles_Zusammen As String
    10. For i = 0 To Items_Count ' Speichert Zeilenweise getrennt durch ;
    11. LfNr = Form_Medien_Player.ListView_Radio.Items.Item(i).Text
    12. Sender_Name = Form_Medien_Player.ListView_Radio.Items.Item(i).SubItems(1).Text
    13. Genre = Form_Medien_Player.ListView_Radio.Items.Item(i).SubItems(2).Text
    14. www_Name = Form_Medien_Player.ListView_Radio.Items.Item(i).SubItems(3).Text
    15. Alles_Zusammen = LfNr & ";" & Sender_Name & ";" & Genre & ";" & www_Name & vbCrLf
    16. ' Exestiert die Datei nicht wird sie erstellt, am ende auf True fügt Zeilenweise an, überschreibt nicht
    17. My.Computer.FileSystem.WriteAllText _
    18. (My.Application.Info.DirectoryPath.ToString & "\SenderListe.cfg", Alles_Zusammen, True)
    19. Next i
    20. Else : End If
    21. End Sub


    bevor du jetzt wie fragst....
    beschäftige dich mit dem Beispiel:


    danke dir
    Bernd

Facebook