<code>Type myDatensatz
  myString As String * 20
  myInteger
End Type
 
Dim Daten As myDatensatz
 
Dim F As Integer
F = FreeFile: Open "DeineDatei.dat" For Random As #F Len=Len(Daten)
 
<font color=green>' Satz Nr. 20 lesen</font>
Get #F, 20, Daten
 
<font color=green>' Änderungen vornehmen</font>
Daten.myString = "Änderung"
Daten.Integer = 100
 
<font color=green>' Änderungen speichern</font>
Put #F, 20, myDaten
Close #F</code>