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