IBM Lotus Symphony


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

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

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

Синтаксис:

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

Параметры:

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

позиция — для файлов произвольного доступа это номер записываемой записи.

Для двоичных файлов (режим Binary) это позиция байта в файле, с которого начнется запись.

переменная — имя переменной, данные которой будут записаны в файл.

Примечание для файлов произвольного доступа: если размер данных переменной не равен длине записи, указанной в секции Len оператора Open, зазор между концом записываемой записи и началом следующей записи заполняется данными файла, в который ведется запись.

Примечание для двоичных файлов: данные переменных записываются в указанную позицию, указатель файла устанавливается на следующий байт после последнего записанного байта. Зазор между записями не оставляется.

Пример:

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


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