Главная » Basic » ФАЙЛЫ ПРЯМОГО ДОСТУПА В СИСТЕМЕ ICL 2904

0

Для создания такого файла и описания формата записи используется команда OPEN. Все  записи файла будут иметь одинаковый формат и одинаковую длину. Команда OPEN имеет следующий вид: OPEN имя файла (формат записи), число записей Например, команда

OPEN DAFL (N, S10, 2N), 100

инициирует работу с файлом DAFL, содержащим 100 записей, в которых информация расположена следующим образом: "число, строка из 10 символов, два числа". Формат состоит из дескрипторов S и N:

N    соответствует одному числовому значению, Sm соответствует строке из m символов. Перед дескриптором можно указать коэффициент кратности, так что (N,N) эквивалентно (2N). После того как файл открыт по команде OPEN, можно использовать следующие операторы:

10   FILE #N: "имя файла" 10   READ#N,L: 10   WRITE #N,L: 10   #N:"*"

Операторы  прямого  доступа  READ  и  WRITE  содержат  номер  записи  (L  в  приведенном  выше примере), указывающий, с какой именно записью они должны работать. Например, оператор

100   WRITE #2,1 :А,В,С$ 270

запишет  два  числовых  значения  и  одну  строку  символов  (при  условии,  что  это  соответствует формату записи) в запись 1 файла с логическим номером 2 Чтение информации из файла и запись ее в файл осуществляются в произвольном порядке, что позволяет выполнять  любые модификации содержания записей. В принципе способом доступа к своим компонентам  файл прямого доступа напоминает массив, но возможности применения файлов намного богаче, поскольку каждая запись может обладать сложной структурой, составленной из чисел и строк символов.

Номер текущей записи можно определить с помощью функции LOC (#N). Например, оператор

10   READ#2, LOC(#2)+1:A,B,C$

прочтет следующую запись файла.

Операторы IF END и IF MORE можно применять в сочетании с оператором RESET #N,L, описанным в подразд. 8.5.1.

Источник: Уолш Б.    Программирование на Бейсике: Пер. с англ. М.: Радио и связь, 1988. 336 с: ил.

По теме:

  • Комментарии