IBM Lotus Symphony
|
Służy do zwracania wielkości (wyrażonej w bajtach) otwartego pliku.
Lof (NumerPliku)
Długa liczba całkowita
NumerPliku: Dowolne wyrażenie liczbowe zawierające numer pliku określony w instrukcji Open.
![]() |
Aby uzyskać długość pliku, który nie został otwarty, należy użyć funkcji FileLen. |
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