Dim Puffer As DatensatzType
Dim Feldlänge() As String
Dim Datensatzlänge As Double
Dim Tmp As String
Dim I As Integer, J As Integer, K As Integer
Dim prmPfad As String, stPfad As String
Dim Position As Integer, FF2 As Integer
 
Sub cmd_Einlesen_Click()
 
    CommonDialog1.FileName = "*.prm"
    CommonDialog1.ShowOpen
    prmPfad = CommonDialog1.FileName
    Open prmPfad For Input As #1
        Line Input #1, Tmp
        ReDim Feldlänge(Val(Tmp))
            For I = 1 To Val(Tmp)
                Input #1, dummy, Feldlänge(I), dummy, dummy, dummy
                Datensatzlänge = Datensatzlänge + Feldlänge(I)
            Next I
        Datensatzlänge = 672
    Close #1
 
    L = Len(prmPfad)
    L = L - 3
    stPfad = Left(prmPfad, L)
    txt_Dateiname.Text = stPfad
    stPfad = stPfad & "st"
 
    txt_Datensatzlänge.Text = Datensatzlänge
 
cmd_Wechseln_Click
 
Private Sub cmd_Löschen_Click()
txt_Dateiname.Text = ""
txt_Datensatzlänge.Text = ""
End Sub
 
Private Sub cmd_Beenden_Click()
End
End Sub
 
Private Sub cmd_Wechseln_Click()
FF2 = FreeFile
    Open stPfad For Random As FF2 Len = Datensatzlänge
        J = InputBox("Bitte Nummer des auzugebenden Datensatzes eingeben.")
        Get FF2, J, Puffer
            txt_Feld(0).Text = Puffer.Feld0
            txt_Feld(1).Text = Puffer.Feld1
            txt_Feld(2).Text = Puffer.Feld2
    Close FF2
End Sub

Public Type DatensatzType
Feld0 As String * 12
Feld1 As String * 5
Feld2 As String * 15
End Type