Dateiende im Random-Access-Mode ermitteln Wie man ganz schnell die Anzahl der Datensätze einer Random-Access-Datei ermittelt, das erfahren Sie hier.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  6.328
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Beim Arbeiten mit Random-Access-Dateien stellt sich für viele User immer wieder die Frage: "Wie kann ich im Vorfeld die Anzahl der in der Datei enthaltenen Datensätze ermitteln?"

Die Lösung ist mehr als einfach - wenn man weiß, wie

Da die einzelnen Datensätze in einer Random-Access-Datei immer die gleiche Datensatzlänge aufweisen, braucht man hierzu lediglich die Dateigröße durch die Datensatzlänge zu dividieren und schon kennt man die exakte Anzahl der Datensätze!

Option Explicit
 
' Datensatz-Struktur
Private Type tAdresse
  KundenNr As String * 10
  Anrede   As String * 20
  Name     As String * 50
  Zusatz   As String * 50
  Straße   As String * 40
  PLZ      As String * 8
  Ort      As String * 40
  Info     As Boolean
End Type

Dim tDaten As tAdresse
Dim nCount As Long
Dim F As Integer
 
' Datei öffnen
F = FreeFile
Open "ADRESS.DAT" For Random As #F Len = Len(tDaten)
 
' Anzahl Datensätze ermitteln
nCount = Int(LOF(F) / Len(tDaten))
 
' alle Datensätze durchlaufen und Name in ComboBox anzeigen
For i = 1 To nCount
  Get #F, i, tDaten
  Combo1.AddItem RTrim$(tDaten.Name)
  Combo1.ItemData(Combo1.NewIndex) = i
Next i
...