Private Sub readFile(srcFile As String, destFile As String)
 
    On Error GoTo err_handler
 
    Dim F, cnt As Byte
    Dim t, s, newString, newName, newMachine, newParameters As String
 
    F = FreeFile()
    newString = ""
    newParameters = ""
 
    Open srcFile For Input As #F
        Do 'While Not EOF(F)
            Line Input #F, t
 
            If LCase$(Left(t, 4)) = "name" Then
                cnt = 3
                Do
                    cnt = cnt + 1
                    s = Mid(t, cnt, 2)
                Loop Until s = ":;"
                newName = Trim(Right(t, Len(t) - cnt - 1))
            ElseIf LCase(Left(t, 8)) = "maschine" Then
                cnt = 7
                Do
                    cnt = cnt + 1
                    s = Mid(t, cnt, 2)
                Loop Until s = ":;"
                newMachine = Trim(Right(t, Len(t) - cnt - 1))
            ElseIf LCase(Left(t, 12)) = "meßparameter" Then
                cnt = 11
                Do
                    cnt = cnt + 1
                    s = Mid(t, cnt, 2)
                Loop Until s = ":;"
                newParameters = Trim(Right(t, Len(t) - cnt - 1))
            End If
 
        Loop Until Len(newParameters) > 0
 
        Line Input #F, t
 
        Do While IsNumeric(Left(t, 1)) = True
            newString = newString & newName & Chr$(59) & newMachine & Chr$(59) _
              & newParameters & Chr$(59) & t & Chr$(13) & Chr$(10)
            Line Input #F, t
        Loop
    Close #F
 
    F = FreeFile()
 
    Open destFile For Output As #F
        Print #F, newString
    Close #F
 
    Exit Sub
 
err_handler:
    F = MsgBox("Es sind Fehler aufgetreten!", vbOKOnly + vbCritical, _
      "Fehler...")
    Exit Sub
 
End Sub