IBM Lotus Symphony


Функция Lof [встроенная]

Возвращает размер открытого файла (в байтах).

Синтаксис:

Lof(номер-файла)

Возвращаемое значение:

Long

Параметры:

номер-файла — любое числовое выражение, равное номеру файла, указанному в операторе Open.

Значок Совет Для получения длины неоткрытого файла следует использовать функцию FileLen.

Коды ошибок

5 Недопустимый вызов процедуры

52 Неправильное имя или номер файла

Пример:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM обязательно типа Variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Установка текущей позиции на начало файла.

Put #iNumber,, "Это первая строка текста" REM Добавление текста

Put #iNumber,, "Это вторая строка текста"

Put #iNumber,, "Это третья строка текста"

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,, "Это новая строка текста"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Это текст в записи 20"

Print Lof(#iNumber)

Close #iNumber

end sub


Комментарии по продукту | Дополнительная документация | Товарные знаки