Основы автоматизированного проектирования химических производств. Миронов В.М - 32 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

32
ПРИМЕР 3.16
TYPE Test
Stud AS STRING*20
Sc AS SINGLE
END TYPE
DIM Class AS Test
OPEN “FIN.DAT” FOR RANDOM AS #1 LEN=LEN(Class)
Class.Stud=”Иванов”
Class.Sc=99
PUT #1, 1, Class
CLOSE #1
OPEN “FIN.DAT” FOR RANDOM AS #1 LEN=LEN(Class)
GET #1, 1, Class
PRINT “STUDENT:”, Class.Stud
PRINT “SCORE: ”, Class.Sc
CLOSE #1
Функция LOC при работе с файлами прямого доступа возвращает номер
записи, только что прочитанной оператором GET из файла или записанной
оператором PUT в файл:
LOC(номер файла)
Чтение данных из файла
Оператор INPUT # обеспечивает чтение данных из файла. Оператор
LINE INPUT # обеспечивает чтение строки длиной до 255 символов из файла
последовательного доступа.
INPUT # номер файла, список переменных
LINE INPUT # номер файла, строка
-
номер файла – номер открытого файла;
-
список переменных – имена переменных, разделенные запятыми, кото-
рым присваиваются значения, выводимые из файла;
-
строка – строковая переменная, которой присваивается последователь-
ность символов, выводимых из файла.
ПРИМЕР 3.17
OPEN “LIST” FOR INPUT AS #1
DO WHILE EOF(1)
LINE INPUT #1, Rec$
PRINT Rec$
LOOP
CLOSE #1
Функция INPUT$ возвращает строку, содержащую заданное количество
символов, из файла последовательного доступа:
INPUT$(n, [#] номер файла)

Страницы