Public Class Form1
 
    Dim lv As New ListView With _
        {.Parent = Me, .Width = 441, .Height = 700, .Top = 40, .View = _
        View.Details}
 
 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles _
          MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim col() As String = _
     {"Bearbeitungsindex", "Durchmesser", "XSoll", "YSoll", "TiefeSoll", _
     "Aggregat", "Werkzeugnummer"}
 
        For i As Integer = 0 To col.Length - 1
            lv.Columns.Add(col(i))
        Next i
 
        With OpenFileDialog1
            .InitialDirectory = "C:\txt"
            .CheckFileExists = True
            .Filter = "Datendatei |*.txt"
 
        End With
 
        If OpenFileDialog1.ShowDialog = _
           Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        'Zeilen der gewählten Datei lesen 
        Dim flines() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
 
 
 
        Dim lvi As ListViewItem
 
        For i As Integer = 0 To flines.Count - 1
            Dim parts() As String = flines(i).Split("="c)
 
            If flines(i).Trim.StartsWith(col(0)) Then
                lvi = lv.Items.Add(parts(1))
                For k As Integer = 1 To col.Length - 1
                    lvi.SubItems.Add("")
                Next
            End If
 
            Dim id As Integer = Array.IndexOf(col, parts(0))
 
            If lvi IsNot Nothing AndAlso id > 0 Then
                lvi.SubItems(id).Text = parts(1)
            End If
        Next i
 
        For i As Integer = 0 To flines.Count - 1
            Dim Parts() As String = flines(i).Split("="c)
            If Parts(0) = "Breite" Then tbob.Text = Parts(1)
            If Parts(0) = "Laenge" Then tbol.Text = Parts(1)
        Next
 
    End Sub
 
 
End Class