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.
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
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
- Public Sub Open(ByVal Pfad As String)
- If My.Computer.FileSystem.FileExists(Pfad) = False Then
- MsgBox("Datei konnte nicht gefunden werden!", MsgBoxStyle.Exclamation, "Fehler beim Öffnen")
- Exit Sub
- End If
- Dim objReader As New IO.StreamReader(Pfad)
- Dim sLine As String = ""
- Dim arrText As New ArrayList
- Do
- sLine = objReader.ReadLine()
- If Not sLine Is Nothing Then
- arrText.Add(sLine)
- End If
- Loop Until sLine Is Nothing
- objReader.Close()
- ListView1.Clear()
- For Each sLine In arrText
- Dim arr(4) As String
- Dim s As String() = sLine.Split(Convert.ToChar("|"))
- Dim Datum As String = s(0)
- Dim Name As String = s(1)
- Dim Punkte As String = s(2)
- Dim Kommentar As String = s(3)
- arr(0) = Datum
- arr(1) = Name
- arr(2) = Punkte
- arr(3) = Kommentar
- Dim Itm As ListViewItem
- Itm = New ListViewItem(arr)
- Debug.Print(arr.ToString)
- ListView1.Items.Add(Itm)
- Next
- 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