Hilfe für Collabora Office 24.04

Funktion Lof

Liefert die Größe einer geöffneten Datei zurück.

Syntax:

Lof (DateiNummer) As Long

Rückgabewert:

Long

Parameter:

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.

Fehlercodes:

5 Ungültiger Prozeduraufruf

52 Dateiname oder -nummer falsch

Beispiel:

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

Bitte unterstützen Sie uns!