So bin nun soweit:
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New System.IO.StreamReader("C:\Users\PCFX\Desktop\test.txt")
Dim Buffer As String = sr.ReadToEnd
sr.Close()
Dim Daten As String() = Buffer.Split(ControlChars.CrLf)
Dim AlleDaten As String()
Dim Var1 As Boolean
Dim Var2 As Boolean
Dim Var3 As Boolean
Dim Item As New ListViewItem
For Each i As String In Daten
AlleDaten = i.Split("~")
For Each x As String In AlleDaten
MsgBox(x)
If Var1 = True Then
Var1 = False
Item.Text = x
Var2 = True
End If
If Var2 = True Then
Var2 = False
Item.SubItems.Add(x)
Var3 = True
End If
If Var3 = True Then
Var3 = False
Item.SubItems.Add(x)
ListView1.Items.Add(Item)
Var1 = True
End If
Next
Next
End Sub
Inhalt der Textdatei:
Code:
www.google.de~12~45
www.wii.com~tralala~muh
Hab mir mal x in einer MsgBox ausgeben lassen (s.o. fett markiert), kommt auch alles hintereinander und zum Schluss eine leere. Aber in die ListView1 wird trotzdem nichts eingetragen. Was mache ich falsch ?