Произвольный (Random) доступ

Date: 2015-10-07; view: 373.

Этот вид доступа предполагает, что файл имеет постоянную структуру. В начале работы используется инструкция Open:

Open имя_файла For Random [Access - дост][Lock] As [#]ном_файла [Len = длина записи]

· имя_файла - имя файла,

· Access - доступ задаeт права доступа к файлу. Ниже даны типы доступа и соответствующие примеры:

· чтение - Open "file1.dat" For Random Access Read As #1,

· запись - Open "file1.dat" For Random Access Write As #1,

· чтение и запись -

Open "file1.dat" For Random Access Read Write As #1,

· без указания - Open "file1.dat" For Random As #1,

· Lock определяет права доступа к открытому файлу пользователя/процесса при коллективном использовании:

· Shared - все процессы могут писать в файл и считывать из файла,

· Lock Read Write - запрет записи в файл и считывания из файла,

· Lock Read - запрет считывания из файла,

· Lock Write - запрет записи в файл,

· As [#]номер_файла - номер файла,

· Len определяет длину записи; если значение Len меньше реальной длины записи, то возникает ошибка.

Инструкция Close [[[#]номер_файла][, [#]номер_файла] :] используется для закрытия файла.

Для записи/чтения используются инструкции Put/Get:

Put [#]номер_файла, [номер записи] имя_переменной

· номер_файла - номер открытого файла,

· номер записи - номер записи, в которую начинается запись данных (записи нумеруются с 1. Если "номер записи" отсутствует, то подразумевается номер следующей записи; его пропуск указывается наличием вместо него запятой, например: Put #2,,),

· имя_переменной - имя переменной, содержащей данные, которые будут записаны в файл,

Get [#]номер_файла, [номер записи] имя_переменной

· номер_файла - номер открытого файла,

· номер записи - номер записи, с которой начнeтся считывание данных,

· имя_переменной - имя переменной, в которую проводится считывание.