Public dbFile As String
Public Datensatzlänge(1 To 10) As Double, AnzahlSätze(1 To 10) As Long
Public Puffer As DatensatzType
Public TableName(1 To 3) As String
Public stPfad(1 To 3) As String, prmPfad(1 To 3) As String, Pfad(1 To 3) As _
  String
 
Public Type DatensatzType
Feld0 As String * 9
Feld1 As String * 10
Feld2 As String * 6
Feld3 As String * 5
Feld4 As String * 3
Feld5 As String * 15
Feld6 As String * 15
Feld7 As String * 30
Feld8 As String * 30
Feld9 As String * 30
Feld10 As String * 30
Feld11 As String * 30
Feld12 As String * 5
Feld13 As String * 7
Feld14 As String * 30
Feld15 As String * 20
Feld16 As String * 3
Feld17 As String * 1
Feld18 As String * 1
Feld19 As String * 1
 
Feld21 As String * 9
Feld22 As String * 8
Feld23 As String * 10
Feld24 As String * 20
Feld25 As String * 20
 
Feld27 As String * 2
Feld28 As String * 30
Feld29 As String * 30
Feld30 As String * 30
Feld31 As String * 2
Feld32 As String * 30
Feld33 As String * 30
Feld34 As String * 30
Feld35 As String * 11
Feld36 As String * 6
Feld37 As String * 30
Feld38 As String * 11
Feld39 As String * 30
Feld40 As String * 11
Feld41 As String * 30
Feld42 As String * 11
Feld43 As String * 11
Feld44 As String * 3
Feld45 As String * 11
Feld46 As String * 1
Feld47 As String * 5
Feld48 As String * 11
Feld49 As String * 1
Feld50 As String * 5
Feld51 As String * 11
Feld52 As String * 11
Feld53 As String * 15
Feld54 As String * 11
Feld55 As String * 11
Feld56 As String * 4
Feld57 As String * 3
Feld58 As String * 11
Feld59 As String * 3
Feld60 As String * 1
Feld61 As String * 1
Feld62 As String * 2
Feld63 As String * 1
Feld64 As String * 1
Feld65 As String * 1
Feld66 As String * 60
Feld67 As String * 60
Feld68 As String * 1
Feld69 As String * 1
Feld70 As String * 1
Feld71 As String * 11
Feld72 As String * 11
Feld73 As String * 1
Feld74 As String * 15
Feld75 As String * 30
Feld76 As String * 30
Feld77 As String * 30
Feld78 As String * 30
Feld79 As String * 30
Feld80 As String * 5
Feld81 As String * 7
Feld82 As String * 30
Feld83 As String * 11
Feld84 As String * 7
 
Feld86 As String * 10
Feld87 As String * 11
Feld88 As String * 11
Feld89 As String * 11
Feld90 As String * 11
Feld91 As String * 11
Feld92 As String * 11
Feld93 As String * 11
Feld94 As String * 11
Feld95 As String * 11
Feld96 As String * 11
Feld97 As String * 11
Feld98 As String * 11
Feld99 As String * 11
Feld100 As String * 11
Feld101 As String * 11
Feld102 As String * 1
End Type
 
'-----------------------------------
 
Public Type NebensatzType
Nummer As String * 9
NFeld0 As String * 3
NFeld1 As String * 5
NFeld2 As String * 6
NFeld3 As String * 2
NFeld4 As String * 12
NFeld5 As String * 30
NFeld6 As String * 8
NFeld7 As String * 11
NFeld8 As String * 10
NFeld9 As String * 5
NFeld10 As String * 1
NFeld11 As String * 5
NFeld12 As String * 1
NFeld13 As String * 10
NFeld14 As String * 8
NFeld15 As String * 9
NFeld16 As String * 7
NFeld17 As String * 1
NFeld18 As String * 1
NFeld19 As String * 1
NFeld20 As String * 1
NFeld21 As String * 1
NFeld22 As String * 1
NFeld23 As String * 1
NFeld24 As String * 11
NFeld25 As String * 10
NFeld26 As String * 10
End Type
 
Public Sub Satzlänge_berechnen(Dateipfad As String)
For I = 1 To 10
Datensatzlänge(I) = 0
Next I
On Error GoTo Fehler
No = FreeFile
Open Dateipfad For Input As #No
    If Dateipfad = prmPfad(1) Then
        Line Input #No, Tmp
        ReDim Feldlänge(Val(Tmp))
            For I = 1 To Val(Tmp)
                Input #1, Dummy, Feldlänge(I), Dummy, Dummy, Dummy
                Datensatzlänge(1) = Datensatzlänge(1) + Feldlänge(I)
            Next I
            Datensatzlänge(1) = Datensatzlänge(1) + 2
    ElseIf Dateipfad = poprmPfad Then
        Line Input #No, Tmp
        ReDim Feldlänge(Val(Tmp))
            For I = 1 To Val(Tmp)
                Input #1, Dummy, Feldlänge(I), Dummy, Dummy, Dummy
                Datensatzlänge(2) = Datensatzlänge(2) + Feldlänge(I)
            Next I
            'AnzahlSätze(2) = LOF(No) / Datensatzlänge(2)
    End If
Close #No
No = 0
Fehler:
If No <> 0 Then Close #No
End Sub