IBM Lotus Symphony
|
Записывает запись в файл произвольного доступа или последовательность байт в двоичный файл.
См. также Оператор 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