Создание дискового файла

Для создания (открытия) файла на магнитном диске используется оператор OPEN

OPEN п. и. ф. [FOR режим] AS # н.ф. [LEN = n]

где п. и. ф. - полн. имя файла, например ''А:\ REZ’’

режим – режим открытия файла:

OUTPUT последовательный вывод в файл из программы

INPUT последовательный ввод в программу из файла

APPEND – последовательная дозапись в конец файла

По умолчании – прямой доступ к файлу (0 / 1)

# н.ф. - номер файла (от 1 до максимально возможного)

n – выражение типа INTEGER, определяющее длину записи (в файле с прямым доступом от 1 до 32 767 байтов, по умолчанию - 128 байтов)

Оператор OPEN открывает (создает) на диске файл данных, открывает для него буфер, определяет режим доступа и связывает с файлом номер (# н.ф), который используется в операторах ввода – вывода.

Например:

Файл последовательного доступа

OPEN ''А:\ REZ’’ FOR OUTPUT AS #1

Здесь оператор открывает на диске А в корневой директории файл под именем REZ и назначает ему № 1 для вывода в него из программы данных в режиме последовательного доступа.

Файл прямого доступа

OPEN ''А:\ ITOG’’ AS #2 LEN=256

Здесь оператор открывает на диске А в корневой директории файл под именем ITOG и назначает ему № 2 для ввода / вывода данных в режиме прямого доступа с длиной записи 256 байт.

Вывод данных в файл

Для вывода данных из программы в дисковый файл используется оператор

WRITE # н.ф. , список

# н.ф – номер открытого файла;

список – перечень имен числовых или строковых переменных, разделенных запятой.

Пример: вывод данных в файл № 1

WRITE # 1, А, С, К

Закрытие дискового файла

Для закрытия используется оператор CLOSE

CLOSE [# н.ф. [ , # н.ф ...]]

Оператор разрывает связи между файлом и его номером.

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

При наличии номера файла оператор закрывает обозначенный файл.

В режиме прямого доступа, кроме оператора CLOSE, открытые файлы закрывают также операторы END, NEW, SYSTEM и RUN.

Пример: программа создания дискового файла последовательного доступа под именем ''список'' состоящий из имен и дат рождения

OPEN ''А:\ SPISOK’’ FOR OUTPUT AS #1

N = 1

DO WHILE N <= 20

INPUT”Имя”; NAME$

IF NAME$=” “ THEN

CLOSE #1

EXIT DO

END IF

N = N + 1

INPUT”Год рождения”; GR

WRITE # 1, NAME$, GR

LOOP

END

Ввод данных из файла в программу

Для ввода данных в программу используется оператор

Input # н.Ф., список

# н.ф – номер открытого файла;

список – перечень имен числовых или строковых переменных, разделенных запятой или точкой с запятой.

Оператор считывает из файла последовательного доступа данные и присваивает их значения переменным из списка.

Пример: программа выборки из дискового файла последовательного доступа под именем ''список'' имен лиц с определенным годом рождения

OPEN ''А:\ SPISOK’’ FOR INPUT AS #1

N = 1

DO WHILE N <= 20

INPUT # 1, NAME$, GR

IF GR >= 1982 AND NOT EOF(1) THEN

PRINT NAME$

END IF

N = N + 1

LOOP

CLOSE #1

END