Раздел 8. Работа с файлами данных

В camac‑basic возможен ввод/вывод данных в/из файлов организованных на дисках. Допускается только последовательный метод доступа при работе с файлами. В текущей момент времени работы программы разрешено присоединение для ввода/вывода не более одного файла. Управление вводом/выводом осуществляется с помощью набора команд языка.

8.1. open ‑ присоединение файла ввода/вывода

Команда open позволяет присоединять (открывать) файл данных для ввода/вывода. Команда должна быть задана в следующем виде:

open р,[[d:]filename[.typ]]

где р ‑ параметр определяющий назначение файла: i ‑ файл для ввода, о – файл для вывода; d ‑ имя устройства (по умолчанию текущий присоединенный диск); filename ‑ имя файла; tур ‑ тип файла (по умолчанию dat)

Если файл не определен, то по умолчанию присоединяется файл data.dat на текущем присоединённом диске. Старый файл с параметрами, определенными командой open, удаляется с диска. Правильное выполнение иных команд для работы с файлом возможно только после исполнения инструкции open.

8.2. dprint ‑ вывод данных в файл

Команда dprint позволяет выводить данные в присоединенный файл. Синтаксис и исполнение команды аналогичны команде print. Полученный файл после закрытия и завершения работы с интерпретатором camac‑basic может быть выведен на любое системное устройство.

8.3. dinput ‑ ввод данных из файла

Команда dinput позволяет вводить данные из присоединенного файла и присваивать значения переменным. Синтаксис, формат вводимых данных, исполнение команды аналогичны команде input (первый необязательный параметр всегда игнорируется).

3.4. close ‑ закрытие файла ввода/вывода

Команда close закрывает присоединенный файл и завершает обращение к данному файлу. Команда не требует задания параметров.

8.5. kill ‑ удаление файла ввода/вывода

Команда kill удаляет (стирает) присоединенный файл с диска и завершает операции ввода/вывода. Команда может быть использована при организации временного хранения данных на диске в процессе работы программы.

Пример:

>10 open o, dat1

>20 for i=1 то 1000

>30 dprint sin(i/2.7)*8.9

>40 next i

>50 close

>60 cdr r, 15, 0

>70 open i, dat1.dat

>80 for i=1 то 1000

>90 dinput v

>100 cfw 16, r, v

>110 next i

>120 kill