9.1.4. Закрытие файла.

После окончания обработки информации файл необходимо закрыть оператором Close. Например: Close #1.

9.2. Файлы произвольного доступа.

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

записей фиксированной длины, которая должна быть сообщена системе. Переменная, в которую считывается запись из файла, должна иметь тот же тип, что и читаемая запись. При организации произвольного доступа к любой записи в файле нужно указывать место расположения требующейся записи в файле, то есть её позицию в файле. Нумерация записей в файле начинается с единицы.

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

Файл произвольного доступа открывается оператором Open. Его син-

таксис:

Open <имя файла> For Random As <номер файла> Len = <длина

записи>

Здесь <имя файла> это имя файла вместе с путём к нему; <номер файла> это целое число в диапазоне от 1 до 511; <длина записи> это числовое выражение целого типа >= 0. Оно должно совпадать с длиной записи. Len – это сообщаемое системе значение параметра: <длина записи>. Это значение используется системой для разметки файла на равные участки указанной длины, что позволяет обращаться непосредственно к требующейся записи, минуя все лредшествующие ей записи.

Пример: Если объявлен тип Rec, и переменная pred As Rec, то длина записи равна Len(pred) и тогда для открытия файла d.dat, расположен-

ного а папке Kurs на диске A, нужно записать:

Open “A:\Kurs\d.dat” For Randome As #1 Len = Len(pred).

Для чтения информации из файла и записи её в файл он должен быть предварительно открыт оператором Open. Если указанного в операторе файла не существует, он будет предварительно создан, а затем открыт. При этом файловый указатель будет установлен на начало файла.

9.2.2. Запись информации в файл.

Запись информации в файл произвольного доступа осуществляет-

ся оператором Put #. Его синтаксис:

Put [#]<номер файла>, [<позиция >], <переменная>.

Здесь <позиция> это номер той записи в файле, в которую будет помещена информация. Нумерация начинается с единицы. Аргумент <позиция> может быть опущен и тогда вывод информации будет произведён в текущую позицию в файле. Отсутствие аргумента <позиция> не отменяет его запятой: Put #4, ,pred.

9.2.3. Чтение информации из файла.

Чтение информации из файла произвольного доступа осуществляется оператором Get #. Его синтаксис:

Get [#]<номер файла>, [<позиция >], <переменная>

Пример: Get #3, 4, pred

У операторов Put # и Get # аргумент <позиция> может быть числовой переменной, которой перед обращением к этим операторам должно быть присвоено целочисленное значение.

9.2.4. Закрытие файла.

Оператор Close [<список номеров файлов>]

закрывает перечисленные в списке файлы, открытые ранее оператором Open. При этом освобождается используемая для буфера файлов память, освобождаются номера файлов, то есть каналы их ввода / вывода. Если список номеров файлов отсутствует, то закрываются все открытые в этот момент файлы.

9.3. Организация ввода информации в файлы.

Часто при вводе записей в файл произвольного доступа их коли-

чество заранее не определено и пользователь сам решает, когда прекратить ввод. В таких случаях обычно ввод организуется с помощью цикла, выход из которого происходит при выполнении некоторого, задаваемого пользователем в процессе ввода условия. Такое условие удобно организовать с помощью функции MsgBox.

Пример. Пусть pr – переменная, являющаяся записью, содержащей данные о некотором предприятии. Тогда ввод информации в файл может быть организован следующим образом:

Open “A:\Kurs\pred.dat” For Random As #1 Len = Len(pr)

Do

pr.code = InputBox(“Введите код предприятия”)

pr.nazv = InputBox(“Введите название предприятия”)

pr.pl = InputBox(“Введите план выпуска продукции”)

pr.vp = InputBox(“Введите выполнение плана в %”)

Put #1, ,pr

Loop Until MsgBox(“Продолжить ввод?”, 36) = vbNo

Здесь параметр options функции MsgBox является суммой 32 + 4. Следовательно, на окне сообщений будет расположена пиктограмма запроса (options = 32), и две кнопки Yes и No (options = 4). Выход из цикла происходит тогда, когда пользователь щёлкнет на кнопке “Нет”. Если пользователь щёлкнет по кнопке “Да”, то ввод данных будет продолжен.

Если запись имеет большое количество полей, то бывает утомительно при вводе и выводе значений полей записи для каждого поля указывать имя переменной. Его можно не указывать, если воспользоваться оператором присоединения With. Тогда приведенный пример запишется так:

Open “A:\Kurs\pred.dat” For Random As #1 Len = Len(pr)

Do

With pr

.code = InputBox(“Введите код предприятия”)

.nazv = InputBox(“Введите название предприятия”)

.pl = InputBox(“Введите план выпуска продукции”)

.vp = InputBox(“Введите выполнение плана в %”)

End With

Put #1, ,pr

Loop Until MsgBox(“Продолжить ввод?”, 36) = vbNo.

Хотя имя переменной при использовании оператора With не указывается, но точку, разделяющую ее имя и имя поля, указывать нужно.