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![:(](https://www.vb-paradise.de/wcf/images/smilies/sad.png)
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
![:(](https://www.vb-paradise.de/wcf/images/smilies/sad.png)
mfg
gfc