Открытие и закрытие файла

ПРАКТИЧЕСКАЯ РАБОТА №7. ПРОГРАММИРОВАНИЕ В БАЗАХ ДАННЫХ.

Задача 1. Использование стандартных функций.

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

Пусть необходимо данные пользовательской формы сохранять в определенный текстовый файл. Также должна быть возможность открытия текстового файла с сохраненными критериями и выполнять отбор записей в форме в соответствии с этими критериями.

Также решим эту задачу путем создания пользовательской панели инструментов и меню.

Решение.

Перейдите на вкладку Модули. Создайте новый модуль.

Создадим две процедуры, одна из которых будет сохранять данные из формы, например Расход. А вторая процедура будет извлекать информацию из текстового файла, и применять в соответствии с этой информацией фильтр для отображения записей в форме.

Для создания первой процедуры (или функции – в нашем случае создание функции будет предпочтительнее, так как потом у нас будет возможность использовать ее для создания макроса) введите ниже объявление вида:

Function SaveFileTextMy()

End Function

Для работы с файлами будем использовать стандартные функции Открытия, Закрытия, Чтения и Записи.

Открытие и закрытие файла

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

Синтаксис процедуры Open следующий:

Open имяФайла For способДоступа [Access доступ] [ограничение] As
[#]номерФайла [Len=длинаЗаписи]

Параметр имяФайла — это строка, содержащая имя открываемого файлам путь к нему. Если указание пути отсутствует, то по умолчанию считается, что файл находится в текущей папке приложения, например «Мои документы». Если указанный файл не существует, то он создается.

После ключевого слова For идет параметр способДоступа, определяющий способ доступа к файлу. Его значением могут быть только следующие константы: Input, Output, Append, Random, Binary.

Следующий необязательный параметр доступ ограничивает набор операций, разрешенных над файлом. Данный параметр может принимать следующие значения:

§ Read (только чтение),

§ Write (только запись),

§ Read Write (и чтение и запись).

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

§ Shared (без ограничений),

§ Lock Read (блокировка чтения),

§ Lock Write (блокировка записи),

§ Lock Read Write (блокировка и чтения, и записи).

Следующий параметр номерФайла — это целое число от 1 до 511, однозначно идентифицирующее файл для других процедур и функций. Для каждой операции открытия этот номер должен быть отличен от уже используемых номеров. Узнать очередной свободный номер можно посредством функции FreeFile.

Необязательный параметр длинаЗаписи — это число не более 32767, задающее длину одной записи в байтах для произвольного доступа; размер буфера для последовательного доступа; параметр игнорируется для бинарного доступа.

После открытия файла и работы с ним необходимо его закрыть. Для закрытия файла используются две функции Close и Reset.

Синтаксис процедуры Close следующий:

Close [ [#] номерФайла] [, [#] номерФайла]...

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

Таким образом, добавим в нашу процедуру код для создания текстового файла с именем FileText.txt.

Open "С:\Мои документы\ FileText.txt " For Output As #1

Close #1

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

"X:\Users\ МТ-451\Иванов\FileText.txt "

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

Не нашли, что искали? Воспользуйтесь поиском: