ListView Daten hinzufügen geht nicht.

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    ListView Daten hinzufügen geht nicht.

    Hi,

    Ich möchte gern Dateien auslesen, diese splitten und in die ListView einfügen.
    Leider funktioniert es nicht ganz so wie gewollt.
    Die Zeile (Wo die Kategorieren/Spalten beschrieben werden) verschwindet einfach.

    VB.NET-Quellcode

    1. Public Sub Open(ByVal Pfad As String)
    2. If My.Computer.FileSystem.FileExists(Pfad) = False Then
    3. MsgBox("Datei konnte nicht gefunden werden!", MsgBoxStyle.Exclamation, "Fehler beim Öffnen")
    4. Exit Sub
    5. End If
    6. Dim objReader As New IO.StreamReader(Pfad)
    7. Dim sLine As String = ""
    8. Dim arrText As New ArrayList
    9. Do
    10. sLine = objReader.ReadLine()
    11. If Not sLine Is Nothing Then
    12. arrText.Add(sLine)
    13. End If
    14. Loop Until sLine Is Nothing
    15. objReader.Close()
    16. ListView1.Clear()
    17. For Each sLine In arrText
    18. Dim arr(4) As String
    19. Dim s As String() = sLine.Split(Convert.ToChar("|"))
    20. Dim Datum As String = s(0)
    21. Dim Name As String = s(1)
    22. Dim Punkte As String = s(2)
    23. Dim Kommentar As String = s(3)
    24. arr(0) = Datum
    25. arr(1) = Name
    26. arr(2) = Punkte
    27. arr(3) = Kommentar
    28. Dim Itm As ListViewItem
    29. Itm = New ListViewItem(arr)
    30. Debug.Print(arr.ToString)
    31. ListView1.Items.Add(Itm)
    32. Next
    33. End Sub


    Ein text würde z.B. so aussehen (in ner .txt gespeichert)
    29.12.2012|Test|12:23|Dies ist ein Test
    ...Hier nächste Zeile, usw halt...

    Ich sehe den Fehler einfach nicht :(

    mfg

    gfc

    gfcwfzkm schrieb:

    Ich sehe den Fehler einfach nicht
    Das ganze funktioniert natürlich nur, wenn Dein ListView bereits über 4 Spalten verfügt, füge sie ihm im Designer hinzu.
    Dies funktioniert:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim arr() As String = {"11", "22", "33", "44"}
    3. Dim Itm As ListViewItem
    4. Itm = New ListViewItem(arr)
    5. ListView1.Items.Add(Itm)
    6. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Dim arr() As String = {"11", "22", "33", "44"}
    2. listview1.items.add(arr(0))
    3. for i = 1 to arr.length-1
    4. listview1.items.item(listview1.items.count-2).subitems.add(arr(i))
    5. next
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise
    InvalidArgument=Value mit dem Wert -1 ist für index ungültig.
    Parametername: index

    :( geht nicht

    VB.NET-Quellcode

    1. Me.ListView1.View = System.Windows.Forms.View.Details
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!