Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 21.01.05 |
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: | Views: 12.722 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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 ...