IBM Lotus Symphony


Оператор Get [встроенный]

Считывает в переменную запись из файла или последовательность байтов из двоичного файла.

См. также Оператор PUT

Синтаксис:

Get [#] номер-файла As Integer, [позиция], переменная

Параметры:

номер-файла — произвольное целочисленное выражение, равное номеру файла.

позиция — для файлов в режиме Random позиция — это номер записи, которая будет прочитана.

Для файлов в режиме Binary позиция — это номер байта в файле, с которого начнется операция чтения.

Если позиция не указана, используется текущая позиция или текущая запись данных.

переменная — имя переменной, принимающей считываемые данные. Переменная может быть любого типа, кроме объектного.

Пример:

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


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