Enhavo
Indekso 🔎︎

# Lof Function

Liveras la grandon en bajtoj de malferma dosiero.

## Sintakso:

    Lof (FileNumber)

## Liverota valoro:

Longa

## Parametroj:

FileNumber: Numera esprimo kiu enhavas la dosieran numeron specifitan per la komando Open.

Por liveri la longon de dosiero nemalferma, estas uzebla la funkcio FileLen

## Error codes:

5 Nevalida procedurvoko

52 Nevalida dosiera nomo aŭ dosiera numero

## Ekzemplo:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant REM devas esti subtipo
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM Poziciigi ĉe la komenco
        Put #iNumber,, "Jen la unua linio de teksto" REM Plenigu per teksto
        Put #iNumero,, "Jen la dua linio de teksto"
        Put #iNumero,, "Jen la tria linio de teksto"
        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,,"Jen nova linio da teksto"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumero,20,"Jen la teksto en rikordo 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub