ListView Einträge speichern als textdatei

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Darkronight.

    ListView Einträge speichern als textdatei

    hi,

    ich will was in der ListView steht in einer textdatei speichern die beim programm gespeichert wird leider geht es nicht so wie
    ich will habe auch schon etwas herrumgesucht aber ging wirgent wie nicht

    code ausschnitt
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
    2. If IO.File.Exists(".\LogDaten.ini") Then
    3. With ListView1.Items
    4. With .Add("Oagme")
    5. .SubItems.Add(INI_ReadValueFromFile("Ogame", "User", "", ".\LogDaten.ini"))
    6. .SubItems.Add(INI_ReadValueFromFile("Ogame", "Password", "", ".\LogDaten.ini"))
    7. .SubItems.Add(INI_ReadValueFromFile("Ogame", "Uni", ComboBox1.Text, ".\LogDaten.ini"))
    8. End With
    9. End With
    11. With ListView1.Items
    12. With .Add("DDL-Board")
    13. .SubItems.Add(INI_ReadValueFromFile("ddl", "User", "", ".\LogDaten.ini"))
    14. .SubItems.Add(INI_ReadValueFromFile("ddl", "Password", "", ".\LogDaten.ini"))
    15. End With
    16. End With
    17. With ListView1.Items
    18. With .Add("Jappy")
    19. .SubItems.Add(INI_ReadValueFromFile("japy", "User", "", ".\LogDaten.ini"))
    20. .SubItems.Add(INI_ReadValueFromFile("japy", "Password", "", ".\LogDaten.ini"))
    21. End With
    22. End With
    24. With ListView1.Items
    25. With .Add("F1delity")
    26. .SubItems.Add(INI_ReadValueFromFile("f1", "User", "", ".\LogDaten.ini"))
    27. .SubItems.Add(INI_ReadValueFromFile("f1", "Password", "", ".\LogDaten.ini"))
    28. End With
    29. End With
    30. End If
    31. End Sub
    33. Private Sub TabPage5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage5.Enter
    34. With ListView1.Columns
    35. .Add("Seite", 120)
    36. .Add("User", 90)
    37. .Add("Password", 90)
    38. .Add("Anderes", 90)
    39. End With
    40. End Sub


    Thx

    was für ein error kommt bei dem code?:

    VB.NET-Quellcode

    1. Private Sub SaveListViewContent(ByVal ltv As ListView, ByVal filename As String, ByVal colDelimeter As Char)
    2. Dim sb As New System.Text.StringBuilder
    4. For Each itm As ListViewItem In ltv.Items
    5. Dim colsOfLine As New List(Of String)
    6. For Each colItm As ListViewItem.ListViewSubItem In itm.SubItems
    7. colsOfLine.Add(colItm.Text)
    8. Next
    9. sb.AppendLine(String.Join(colDelimeter, colsOfLine.ToArray))
    10. Next
    12. IO.File.WriteAllText(filename, sb.ToString)
    13. End Sub
    15. Private Sub LoadToListView(ByVal filename As String, ByVal ltv As ListView, ByVal colDelimeter As Char)
    16. If Not IO.File.Exists(filename) Then Throw New IO.FileNotFoundException
    17. For Each line As String In IO.File.ReadAllLines(filename)
    18. Dim colsOfLine() As String = line.Split(colDelimeter)
    19. While colsOfLine.Length > ltv.Columns.Count
    20. ltv.Columns.Add("Column " & ltv.Columns.Count)
    21. End While
    22. ltv.Items.Add(New ListViewItem(colsOfLine))
    23. Next
    24. End Sub


    lg Gugi

    so und dein Code vom Speichern wäre?
    SaveListViewContent(ListView,Dateiname,Trennzeichen)
    bsp.:
    SaveListViewContent(ListView1,"test.datei",";"c)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende