IBM Lotus Symphony


Funkcja Lof [środowisko wykonawcze]

Służy do zwracania wielkości (wyrażonej w bajtach) otwartego pliku.

Składnia

Lof (NumerPliku)

Zwracana wartość

Długa liczba całkowita

Parametry

NumerPliku: Dowolne wyrażenie liczbowe zawierające numer pliku określony w instrukcji Open.

Ikona Wskazówka Aby uzyskać długość pliku, który nie został otwarty, należy użyć funkcji FileLen.

Kody błędów

5 Nieprawidłowe wywołanie procedury

52 Nieprawidłowa nazwa lub numer pliku

Przykład

Sub PrzykladDostepuBezposredniego

Dim iNumer As Integer

Dim sTekst As Variant REM musi być typu Variant

Dim aPlik As String

aPlik = "c:\data.txt"

iNumer = Freefile

Open aPlik For Random As #iNumer Len=32

Seek #iNumer,1 REM Pozycja na początku

Put #iNumer,, "To jest pierwszy wiersz tekstu" REM Wypełnianie tekstem

Put #iNumer,, "To jest drugi wiersz tekstu"

Put #iNumer,, "To jest trzeci wiersz tekstu"

Seek #iNumer,2

Get #iNumer,,sTekst

Print sTekst

Close #iNumer

iNumer = Freefile

Open aPlik For Random As #iNumer Len=32

Get #iNumer,2,sTekst

Put #iNumer,,"To jest nowy wiersz tekstu"

Get #iNumer,1,sTekst

Get #iNumer,2,sTekst

Put #iNumer,20,"To jest tekst w rekordzie 20"

Print Lof(#iNumer)

Close #iNumer

end sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe