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