Public Class frmListViewDemo
 
    Dim lv As New ListView With _
        {.Parent = Me, .Width = 400, .Height = 400, .View = View.Details}
 
 
    Private Sub frmListViewDemo_Load(sender As System.Object, _
                             e As System.EventArgs) Handles MyBase.Load
 
        'Spalten erstellen
        With lv.Columns
            .Add("Index", 100)
            .Add("Durchmesser", 100)
            .Add("XSoll", 100)
            '............
        End With
 
        Dim fo As New Font("Arial", 10)
 
        'Item erstellen 
        Dim lvi As ListViewItem = lv.Items.Add("1")
        lvi.UseItemStyleForSubItems = False 
        With lvi.SubItems
            'Subitems füllen
            .Add("Durchmesser = 10.5", Color.Blue, Color.White, fo)
            .Add("XSOLL = 12", Color.Black, Color.LightGray, fo)
            '.............
        End With
 
        lvi = lv.Items.Add("2")
        With lvi.SubItems
            .Add("Durchmesser = 20.7", Color.Blue, Color.White, fo)
            .Add("XSOLL = 18", Color.Black, Color.LightGray, fo)
            '...............
        End With
 
        '...................
    End Sub
End Class

Imports System.IO
 
Public Class Form1
    Private pfad As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.View = System.Windows.Forms.View.Details
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
        Then
            pfad = OpenFileDialog1.FileName
            TextBox1.Text = String.Empty
            Try
                TextBox5.Text = File.ReadAllText(pfad)
            Catch
            End Try
            ' Dateipfad in der Titelleiste des Formulars anzeigen:
            Me.Text = pfad
        End If
 
    End Sub
 
 
End Class

Public Class frmListViewDemo
 
    Dim lv As New ListView With _
        {.Parent = Me, .Width = 400, .Height = 400, .View = View.Details}
 
 
    Private Sub frmListViewDemo_Load(sender As System.Object, _
                                 e As System.EventArgs) Handles MyBase.Load
 
        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
 
        Dim lines() As String = _
           IO.File.ReadAllLines("C:\downloads\001030777965L.txt")
 
        Dim lvi As ListViewItem
 
        For i As Integer = 0 To lines.Count - 1
            Dim parts() As String = lines(i).Split("="c)
 
            If lines(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
 
    End Sub
End Class

Imports System.IO
 
Public Class Form1
    Private pfad As String
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.View = System.Windows.Forms.View.Details
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
        Then
            pfad = OpenFileDialog1.FileName
            Try
                TextBox5.Text = File.ReadAllText(pfad)
            Catch
            End Try
        End If
 
        Label5.Text = SearchtextCount( _
        TextBox5.Text, searchtext).ToString & " Bohrungen vorhanden"
 
 
        Dim TestString As String = TextBox5.Text
        Dim Teile() As String = TestString.Split(vbNewLine)
 
        TextBox1.Text = (Teile(0))
        TextBox2.Text = (Teile(1))
        TextBox3.Text = (Teile(2))
        TextBox4.Text = (Teile(3))
 
    End Sub
 
    Dim searchtext As String = "Bearbeitungsindex"
    Private Sub Button2_Click(sender As Object, e As EventArgs)
        Label5.Text = SearchtextCount( _
        TextBox5.Text, searchtext).ToString & " Bohrungen vorhanden"
    End Sub
 
    Function SearchtextCount(ByVal txt As String, ByVal searchtext As String) _
      As Int32
        Return System.Text.RegularExpressions.Regex.Matches(txt, _
        searchtext).Count()
    End Function
End Class

 
  With openfiledialog1
      .InitialDirectory = "C:\daten"
      .CheckFileExists = True
      .Filter = "Datendatei |*.txt"
 
      If .ShowDialog = _
         Windows.Forms.DialogResult.Cancel Then Exit Sub
 
      'Zeilen der gewählten Datei lesen 
      Dim flines() As String = IO.File.ReadAllLines(.FileName)
 
      'Zeilen durchlaufen
      For i As Integer = 0 To flines.Count - 1
         'Zeile zerlegen 
         Dim parts() As String = flines(i).Split("="c)
         If parts(0) = "Breite" Then tboBreite.Text = parts(1)
         If parts(0) = "Laenge" Then tboLänge.Text = parts(1)
      Next i
  End With

Dim ind As Integer = _
   Array.FindIndex(flines, Function(x As String) x.StartsWith("Laenge"))

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

Dim col() As String 'formular-weit gültige Deklaration
 
Private Sub frmListViewDemo_Load(sender As System.Object, _
                       e As System.EventArgs) Handles MyBase.Load
 
   col =
     {"Bearbeitungsindex", "Durchmesser", "XSoll", "YSoll", _
      "TiefeSoll", "Aggregat", "Werkzeugnummer"}
 
   For i As Integer = 0 To col.Length - 1
      lv.Columns.Add(col(i))
      If i > 0 Then
         lv.Columns(i).TextAlign = HorizontalAlignment.Right
      End If
   Next i
End Sub

lv.Items.Clear()
 
Dim lvi As ListViewItem = Nothing
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 k
   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
 
   If parts(0) = "Breite" Then tboB.Text = parts(1)
   If parts(0) = "Laenge" Then tboL.Text = parts(1)
Next i

Label5.Text = (New IO.FileInfo(OpenFileDialog1.FileName).CreationTime.ToString)

Private Sub pd_PrintPage(sender As System.Object, _
   e As System.Drawing.Printing.PrintPageEventArgs) _
   Handles pd.PrintPage
 
   Static itemindex As Integer = 0  'fortlaufender lv-ItemIndex
 
   Dim pf As New Font("Arial", 6) 'Druckfont
 
   Dim linesperpage As Integer = _
       CInt(e.MarginBounds.Height / pf.GetHeight(e.Graphics)) - 1
   Dim fw As Integer = 80 'Spaltenbreite
 
   Dim lineindex As Integer = 0
   Dim ypos As Integer = e.MarginBounds.Top
 
   With e.Graphics
      Using br As New SolidBrush(Color.Black)
         'LV-Überschrift: Spaltenbezeichner
         For i As Integer = 0 To lv.Columns.Count - 1
            .DrawString(lv.Columns(i).Text, pf, br, _
                  e.MarginBounds.Left + i * fw, ypos)
         Next i
 
         'LV-Items in die aktuelle Druckseite eintragen
         While itemindex < lv.Items.Count And _
               lineindex < linesperpage
 
            ypos += CInt(pf.GetHeight(e.Graphics))
 
            For i As Integer = 0 To lv.Columns.Count - 1
               'auszugebender Text im Feld
               Dim text As String = _
                  lv.Items(itemindex).SubItems(i).Text
 
               'ggf. Formatierung der Nachkomma-Stellen
               If i = 2 Or i = 3 Then
                  text = Microsoft.VisualBasic.Format(CDbl(text), "0.0")
               End If
 
               Dim tl As Integer = 0
               'Text im Feld rechtsbündig ausrichten
               While tl < fw - 5
                  text = " " & text
                  tl = CInt(.MeasureString(text, pf).Width)
               End While
 
               .DrawString(text, pf, br, _
                       e.MarginBounds.Left + i * fw, ypos)
            Next i
 
            itemindex += 1
            lineindex += 1
         End While
 
         e.HasMorePages = itemindex < lv.Items.Count
      End Using
   End With
 
End Sub

Public Class frmListViewDemo2
 
    'Panel mit Scrollbalken
    Dim pl As New Panel With _
      {.Parent = Me, .Width = 400, .Height = 400, _
       .AutoScroll = True}
 
    'Picturebox für die Anzeige
    Dim pbox As New PictureBox With _
        {.Parent = pl, _
         .SizeMode = PictureBoxSizeMode.AutoSize}
 
    Dim col() As String 'Spaltenüberschriften
    Dim bmp As Bitmap   'Bitmap für Datenaufbereitung
 
 
    Private Sub frmListViewDemo2_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.ClientSize = pl.Size
 
        col =
        {"Bearbeitungsindex", "Durchmesser", "XSoll", "YSoll", _
         "TiefeSoll", "Aggregat", "Werkzeugnummer"}
 
        'Zeilen lesen
        Dim lines() As String = _
           IO.File.ReadAllLines("C:\daten\001030777965L.txt")
        Dim fields As New List(Of String)
 
        'Zahl der Ausgabezeilen ermitteln
        Dim linecounter As Integer
        For l As Integer = 0 To lines.Count - 1
            If lines(l).Trim.StartsWith(col(0)) Then linecounter += 1
        Next l
 
        Dim fo As New Font("Arial", 10) 'Font der Ausgabe
        Dim fieldwidth As Integer = 80  'Feldgröße (an Font anzupassen)
        Dim fieldheight As Integer = 15
        Dim margin As Integer = 20      'Randbreite
 
        'Ausgabe-Bitmap erstellen
        Dim bmp_width As Integer = _
             fieldwidth * col.Length + 2 * margin
        Dim bmp_height As Integer = _
             fieldheight * (linecounter + 1) + 2 * margin
        bmp = New Bitmap(bmp_width, bmp_height)
 
        linecounter = 0
        Dim text As String
        'Texte in die Bitmap eintragen
        Using g As Graphics = Graphics.FromImage(bmp), _
            b As New SolidBrush(Color.Black)
 
            'Hintergrundfarbe
            g.Clear(Color.White)
 
            'Überschriften ausgeben
            For i As Integer = 0 To col.Length - 1
                text = AdjustLength(g, fo, col(i), fieldwidth)
                g.DrawString(text, fo, b, _
                  New Point(margin + i * fieldwidth, margin))
            Next i
 
            For l As Integer = 0 To lines.Count - 1
                Dim parts() As String = lines(l).Split("="c)
                If lines(l).Trim.StartsWith(col(0)) Then
                    For k As Integer = 0 To col.Length - 1
                        fields.Add("")
                    Next k
                End If
 
                Dim id As Integer = Array.IndexOf(col, parts(0))
 
                If id >= 0 AndAlso fields.Count > id Then
                    fields(id) = parts(1)
 
                    'Ausgabe-Zeile vollständig aufbereitet ?
                    Dim ok As Boolean = True
                    For i As Integer = 0 To fields.Count - 1
                        If fields(i) = "" Then ok = False
                    Next i
                    If ok Then
                        'Felder in einer Zeile ausgeben
                        linecounter += 1
                        For i As Integer = 0 To fields.Count - 1
                            text = AdjustLength(g, fo, fields(i), fieldwidth)
                            g.DrawString(text, fo, b, _
                            New Point(margin + i * fieldwidth, _
                                      margin + linecounter * fieldheight))
                        Next i
                        fields.Clear()
                    End If
                End If
            Next l
        End Using
 
        pbox.Image = bmp 'Bitmap anzeigen
    End Sub
 
 
    Private Function AdjustLength(g As Graphics, fo As Font, _
        text As String, length As Integer) As String
 
        Dim l As Integer = text.Length + 1
        Do
            l -= 1
            text = text.Substring(0, l)
        Loop While g.MeasureString(text, fo).Width > length
        While g.MeasureString(text, fo).Width < length
            text = " " & text
        End While
        Return text
    End Function
 
End Class

Dim ch As New System.Windows.Forms.DataVisualization.Charting.Chart _
  With {.Parent = Me, .Height = 400, .Width = 400}

  Private Sub CreateChart(ByVal Columnname As String)
 
      'Datatable für Spaltendaten
      Dim dt As New DataTable
      dt.Columns.Add("ID", GetType(Integer))
      dt.Columns.Add(Columnname, GetType(Double))
 
      'Ermittlung des Spaltenindex
      Dim columnindex As Integer = -1
      For i As Integer = 0 To lv.Columns.Count - 1
            If lv.Columns(i).Text.ToLower = Columnname.ToLower Then _
               columnindex = i
      Next i
      If columnindex = -1 Then Exit Sub
 
      'Übertragung der Listview-Spalte in die Table
      For i As Integer = 0 To lv.Items.Count - 1
         dt.Rows.Add _
          ({i + 1, CDbl(lv.Items(i).SubItems(columnindex).Text)})
      Next i
 
      With ch
        .DataSource = dt
        .Titles.Clear()
        .Titles.Add(Columnname)
 
        .ChartAreas.Clear()
        .ChartAreas.Add("Base")
 
        With .ChartAreas(0)
           .AxisX.MajorGrid.LineDashStyle = _
                DataVisualization.Charting.ChartDashStyle.Dot
           .AxisY.MajorGrid.LineDashStyle = _
                DataVisualization.Charting.ChartDashStyle.Dash
        End With
 
        With .Series
           .Clear()
           .Add(Columnname)
        End With
 
        With .Series(0)
           .ChartArea = "Base"
 
           'Datenbindung an Datatable
           .XValueMember = dt.Columns(0).ColumnName
           .YValueMembers = dt.Columns(1).ColumnName
 
           .ChartType = DataVisualization.Charting.SeriesChartType.Point
           .Palette = DataVisualization.Charting.ChartColorPalette.Grayscale
        End With
      End With
  End Sub

Label17.Text = tbol.Text / xr
        Dim q As String = Label17.Text
 
 
        Dim g As Graphics = GroupBox1.CreateGraphics()
        For i = 0 To lv.Items.Count - 1
            Dim d, r, t As Integer
            d = lv.Items(i).SubItems(1).Text / q
            r = (x1 - (d / 2)) + lv.Items(i).SubItems(2).Text / q
            t = y1 + lv.Items(i).SubItems(3).Text / q
            g.DrawEllipse(Pens.Black, r, t, d, d)
 
        Next

''' <summary>String-Einträge im Listview in CSV-Datei schreiben</summary>
''' <param name="lv">Listview-Control</param>
''' <param name="filename">Pfad und Name der Ausgabedatei</param>
''' <param name="AllowOverwrite">Darf die Ausgabedatei ggf. überschrieben 
' werden</param>
''' <returns>Alles OK?</returns>
Private Function ListViewToCsv(ByVal lv As ListView, ByVal filename As String, _
                  Optional ByVal AllowOverwrite As Boolean = False) As Boolean
 
   Const tz As Char = ";"c 'Feld-Trennzeichen
   Const rp As Char = ","c 'Ersatzzeichen 
 
   If lv Is Nothing OrElse lv.Items.Count = 0 Then Return Nothing
 
   Try
      filename = _
        IO.Path.ChangeExtension(filename, ".csv") 'Extension sicherstellen
 
      If IO.File.Exists(filename) Then
         If AllowOverwrite = False Then
            Return False
         Else
            IO.File.Delete(filename)
         End If
      End If
 
 
      Using sw As New IO.StreamWriter(filename) 'Ausgabestream
 
         'Maximale Anzahl von Subitems im Listview bestimmen
         Dim sic As Integer = 0
         For i As Integer = 0 To lv.Items.Count - 1
            sic = Math.Max(lv.Items(i).SubItems.Count, sic)
         Next i
 
         Dim line As New System.Text.StringBuilder 'Ausgabezeile, Item
 
         'Itemschleife
         For i As Integer = 0 To lv.Items.Count - 1
            line.Clear()
 
            'Item und ggf. Subitems
            For si As Integer = 0 To lv.Items(i).SubItems.Count - 1
               line.Append(lv.Items(i).SubItems(si).Text.Replace(tz, rp))
               line.Append(tz)
            Next si
 
            For si As Integer = lv.Items(i).SubItems.Count To sic - 1
                line.Append(tz) 'ggf. Zeile mit Leerfeldern auffüllen
            Next si
 
            'sw.WriteLine(line.ToString.TrimEnd(tz)) 'Zeile schreiben
            sw.WriteLine(line.ToString)
         Next i
      End Using
 
      'Alles OK
      Return True
   Catch
      'OOOPs
      Return False
   End Try
 
End Function

Public Class frmFillGrid
 
    Dim dgv As New DataGridView With {.Parent = Me}
 
 
    Private Sub frmFillGrid_Load(sender As System.Object, _
                              e As System.EventArgs) Handles MyBase.Load
 
 
        Dim lines() As String = _
            IO.File.ReadAllLines("C:\Daten\001030777965L (2).txt")
 
        Dim dt As New DataTable
        Dim i As Integer
        'Spalten erstellen
        For i = 0 To lines.Length - 1
            If lines(i).ToUpper.StartsWith("BEARBEITUNGSINDEX") Then
                dt.Columns.Add(lines(i).ToUpper.Split("="c)(0))
                For k As Integer = 1 To 16
                    dt.Columns.Add(lines(k + i).ToUpper.Split("="c)(0))
                Next k
                Exit For
            End If
        Next i
 
        'Zeilen füllen
        Try
            i = 0
 
            Do
                If lines(i).ToUpper.StartsWith("BEARBEITUNGSINDEX") Then
                    Dim r As DataRow = dt.NewRow
                    r(0) = lines(i).ToUpper.Split("="c)(1)
                    For k As Integer = 1 To 16
                        i += 1
 
                        r(k) = lines(i).ToUpper.Split("="c)(1)
                    Next k
                    dt.Rows.Add(r)
                End If
                i += 1
            Loop While i < lines.Count
        Catch
            Stop
        End Try
 
        dgv.DataSource = dt
    End Sub
End Class

EALA FREYA FRESENA

dgv.DataSource = dt
 
dgv.Columns(0).Width = 200 'Breite der Spalte 0
 
'andere Parameter für die "Erscheinung" der Spalte 
können im "DefaultCellstyle" festgelegt werden
dgv.Columns(0).DefaultCellStyle.BackColor = Color.LightGray

Private Sub BearbeitungsindexToolStripMenuItem_Click(sender As Object, e As _
  EventArgs) Handles BearbeitungsindexToolStripMenuItem.Click
        My.Settings.Bearbeitungsindex = _
        BearbeitungsindexToolStripMenuItem.Checked
        My.Settings.Save()
        My.Settings.Reload()
        If BearbeitungsindexToolStripMenuItem.Checked Then
            dgv.Columns(0).Visible = True
        Else
            dgv.Columns(0).Visible = False
        End If
    End Sub