Collabora Office 24.04 Help

Functie Lof

Geeft de grootte van een open bestand in bytes terug.

Syntaxis:

Lof (BestandsNummer) As Long

Geretourneerde waarde:

Long

Parameters:

BestandsNummer: Een numerieke expressie die het bestandsnummer bevat dat bepaald is met de instructie Open voor het betreffende bestand.

Om de grootte van een ongeopend bestand te bepalen, gebruik de functie FileLen.

Foutcodes:

5 Ongeldige aanroep van procedure

52 Ongeldige bestandsnaam/ongeldig bestandsnummer

Voorbeeld:

Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sTekst As Variant ' Moet een variant zijn
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Zoek #iGetal,1 REM Positie bij het begin
    Put #iGetal,, "Dit is de eerste tekstregel" ' Vul de regel met tekst
    Put #iGetal,, "Dit is de tweede tekstregel"
    Put #iGetal,, "Dit is de derde tekstregel"
    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 #iGetal,, "Dit is een nieuwe tekst"
    Get #iNumber, 1, sText
    Get #iNumber, 2, sText
    Put #iGetal, 20, "Dit is de tekst in record 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub

Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant ' Moet een variant zijn
    Dim aFile As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Seek #iGetal,1 ' Beginpositie voor het zoeken
    Put #iGetal, "Dit is de eerste tekstregel" 'Vul de regel met tekst
    Put #iGetal,, "Dit is de tweede tekstregel"
    Put #iGetal,, "Dit is de derde tekstregel"
    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 #iGetal,, "Dit is een nieuwe tekst"
    Get #iNumber, 1, sText
    Get #iNumber, 2, sText
    Put #iGetal, 20, "Dit is de tekst in record 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub

Help ons, alstublieft!