Sub cmd_Einlesen_Click()
Datensatzlänge = 0
 
    'Dateinr = 1
    CommonDialog1.FileName = "EP*.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 = Datensatzlänge + 2
    Close #1
 
L = Len(prmPfad)
L = L - 4
Pfad = Left(prmPfad, L)
stPfad = Pfad & ".ST"
 
Call cmd_Wechseln_Click
End Sub
 
 
Private Sub cmd_Wechseln_Click()
For J = 0 To 34
txt_Feld(J).Text = ""
Next J
 
FF2 = FreeFile
    Open stPfad For Random As FF2 Len = Datensatzlänge
        AnzahlSätze = LOF(FF2) / Datensatzlänge
 
        SatzNr = InputBox("Bitte Nummer des auzugebenden Datensatzes" & _
          "eingeben.", "Datensatz laden.")
        If StrPtr(SatzNr) = 0 Or SatzNr = "" Then GoTo Ende
 
        Get FF2, SatzNr, Puffer
 
            txt_Feld(0).Text = Puffer.Feld0
            txt_Feld(1).Text = Puffer.Feld1
            txt_Feld(2).Text = Puffer.Feld2
            txt_Feld(3).Text = Puffer.Feld3
            txt_Feld(4).Text = Puffer.Feld4
            Rem usw...
 
                        Belegnr = Puffer.Feld0
            Datum = Puffer.Feld1
            KundenNr = Puffer.Feld3
            Kundenname = Puffer.Feld7
 
    Close FF2
 
Ende:
Exit Sub
End Sub