Turinys
Rodyklė 🔎︎

# Lof funkcija

Grąžina atverto failo dydį baitais.

## Sintaksė:

    Lof (failo numeris)

## Grąžinama reikšmė:

Ilgas

## Parametrai:

FileNumber: Bet kuri skaitinė išraiška, kurioje yra failo numeris, nurodytas atvėrimo sakinyje.

Norėdami gauti neatverto failo ilgį, naudokite funkciją FileLen.

### Klaidos kodai:

5 Neteisingas procedūros iškvietimas

52 neteisingas failo pavadinimas arba failo numeris

## Pavyzdys:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant ' REM turi būti variantas
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM pradžios pozicija
        Put #iNumber,, "Tai yra pirmoji teksto eilutė" REM užpildykite tekstu
        Put #iNumber,, "Tai yra antroji teksto eilutė"
        Put #iNumber,, "Tai yra trečioji teksto eilutė"
        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,, "Tai yra naujoji teksto eilutė"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"Tai yra tekstas 20-ajame įraše"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub