Funktion Lof
Liefert die Größe einer geöffneten Datei zurück.
Lof (DateiNummer) As Long
Long
DateiNummer: Jeder numerische Ausdruck, der die Dateinummer enthält, die in der Anweisung Open angegeben ist.
Um die Länge einer nicht geöffneten Datei abzurufen, verwenden Sie die Funktion FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Muss "Variant" sein
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Auf Anfang positionieren
Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
Put #iNumber, , "Dies ist die zweite Zeile Text"
Put #iNumber, , "Dies ist die dritte Zeile Text"
Seek #iNumber,2
Get #iNumber, , sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber, 2, sText
Put #iNumber, , "Dies ist ein neuer Text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Muss "Variant" sein
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Position am Anfang
Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
Put #iNumber, , "Dies ist die zweite Zeile Text"
Put #iNumber, , "Dies ist die dritte Zeile Text"
Seek #iNumber,2
Get #iNumber, , sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber, 2, sText
Put #iNumber, , "Dies ist ein neuer Text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
Print Lof(#iNumber)
Close #iNumber
End Sub