Modulua
Edukiak
Aurkibidea 🔎︎

# Lof funtzioa

Irekitako fitxategiaren tamaina itzultzen du bytetan.

## Sintaxia:

    Lof (FitxategiZenbakia)

## Itzulera-balioa:

Long

## Parametroak:

FitxategiZenbakia: Open instrukzioan zehaztutako fitxategi-zenbakia duen zenbakizko adierazpen oro.

Ireki gabeko fitxategi baten luzera lortzeko, erabili FileLen funtzioa.

## Errore-kodeak:

5 Prozedura-deia ez baliozkoa

52 Okerreko fitxategi-izena edo zenbakia

## Adibidea:

    Sub ExampleRandomAccess

    Dim iNumber As Integer

    Dim sTestua As Variant REM Aldagaia izan behar du

    Dim aFile As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Random As #iNumber Len=32

        Seek #iZenbakia,1 REM Hasieran kokatzen du

        Put #iZenbakia,, "Hau testuaren lehen lerroa da" REM Bete lerroa testuarekin

        Put #iZenbakia,, "Hau testuaren bigarren lerroa da"

        Put #iZenbakia,, "Hau testuaren hirugarren lerroa da"

        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 #iZenbakia,,"Hau testuko lerro berria da"

        Get #iNumber,1,sText

        Get #iNumber,2,sText

        Put #iZenbakia,20,"Hau 20. erregistroko testua da"

        Print Lof(#iNumber)

        Close #iNumber

    End Sub