Private Type DatensatzType
    Nachname As String * 20
    Vorname As String * 20
    Datenfeld(10, 5) As Long
    Beliebig1 As Boolean
    Beliebig2 As Integer
    Beliebig3 As Currency
End Type
 
Private Sub MeinProgramm()
Dim FF1 As Integer
Dim Datensatz As DatensatzType
 
' Datei öffnen
FF1 = FreeFile
Open "Testdatei" For Random As FF1 Len = Len(Datensatz)
 
' 1. Datensatz mit Daten füllen
Datensatz.Vorname = "Fred"
Datensatz.Nachname = "Meier"
Datensatz.Datenfeld(0, 0) = 5
Datensatz.Datenfeld(1, 0) = 536
Datensatz.Datenfeld(3, 4) = 789
' 1. Datensatz speichern
Put FF1, 1, Datensatz
 
' 2. Datensatz mit Daten füllen
Datensatz.Vorname = "Hilde"
Datensatz.Nachname = "Schulz"
Datensatz.Datenfeld(0, 0) = 595
Datensatz.Datenfeld(1, 0) = 1119
Datensatz.Datenfeld(3, 4) = 3
' 2. Datensatz speichern
Put FF1, 2, Datensatz
 
' 1. Datensatz einlesen
Get FF1, 1, Datensatz
 
' 2. Datensatz einlesen
Get FF1, 2, Datensatz
 
' Datei schließen
Close FF1
End Sub

Private Type DatensatzType
    Nachname As String * 20
    Vorname As String * 20
    Datenfeld(10, 5) As Long
    Beliebig1 As Boolean
    Beliebig2 As Integer
    Beliebig3 As Currency
End Type
 
Private Sub MeinProgramm()
Dim FF1 As Integer
Dim i As Long
Dim Datensatz As DatensatzType
 
FF1 = FreeFile
Open "Testdatei" For Random As FF1 Len = Len(Datensatz)
'Es werden alle Datensätze gesucht, die in der 5. Zeile und 3. Spalte
'des zweidimensionalen Arrays den Wert 3775 enthalten
For i = 1 To LOF(FF1) / Len(Datensatz)
    Get FF1, i, Datensatz
    If Datensatz.Datenfeld(5, 3) = 3775 Then
        'diesen Datensatz in eine Liste schreiben
    End If
Next
Close FF1
 
End Sub

Private Type BauarbeiterType
    Nachname As String * 20
    Vorname As String * 20
    Stundensatz As Double
    Gewerk As Long
End Type
 
Private Type BaustelleType
    Bezeichnung As String * 50
    Bauarbeiter(100) As Long
End Type
 
 
Private Sub Programm()
Dim FF1 As Integer
Dim i As Long
Dim Bauarbeiter As BauarbeiterType
Dim Baustelle As BaustelleType
 
' einen (z. B. den 5.) Bauarbeiter speichern
Bauarbeiter.Nachname = "Müller-Lüdenscheidt"
Bauarbeiter.Vorname = "Alfred"
Bauarbeiter.Gewerk = 1
Bauarbeiter.Stundensatz = 17.5
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Put FF1, 5, Bauarbeiter
Close FF1
 
' einen weiteren (z. B. den 23.) Bauarbeiter speichern
Bauarbeiter.Nachname = "Krause"
Bauarbeiter.Vorname = "Peter"
Bauarbeiter.Gewerk = 44
Bauarbeiter.Stundensatz = 25.75
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Put FF1, 23, Bauarbeiter
Close FF1
 
 
' eine (die erste) Baustelle speichern
Baustelle.Bezeichnung = "Berliner Hochseilbahn"
Baustelle.Bauarbeiter(0) = 23 ' der 1. Bauarbeiter dieser Baustelle steht als 
' 23. Bauarbeiter in der Bauarbeiter-Datei
Baustelle.Bauarbeiter(1) = 5 ' der 2. Bauarbeiter dieser Baustelle steht als 5. 
' Bauarbeiter in der Bauarbeiter-Datei
FF1 = FreeFile
Open "Baustellen" For Random As FF1 Len = Len(Baustelle)
Put FF1, 1, Baustelle
Close FF1
 
 
' eine (die erste) Baustelle einlesen
FF1 = FreeFile
Open "Baustellen" For Random As FF1 Len = Len(Baustelle)
Get FF1, 1, Baustelle
Close FF1
' die Bauarbeiter zu dieser Baustelle einlesen
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Liste.Clear
For i = 0 To 100
    If Baustelle.Bauarbeiter(i) > 0 Then
        Get FF1, Baustelle.Bauarbeiter(i), Bauarbeiter
        Liste.Add RTrim$(Bauarbeiter.Nachname)
    End If
Next
Close FF1
 
End Sub