Глава 19. Инструментальные средства пользователя в среде microsoft office

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

После завершения работы с файлом его закрывают с помощью оператора:

Close [<список_номеров_файлов>] Если номер закрываемого файла не указан, закрываются все открытые файлы.

Пример 19.28. Закрытие файлов

Close #1; #2; #4 ' закрытие файлов, ранее открытых под номерами 1, 2, 4 Close ' закрытие всех открытых файлов

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

Существует несколько операторов вывода информации в файл.

1. Печать в последовательный файл

Данный оператор обеспечивает запись форматированного вывода в последовательный файл текстового типа — по аналогии с функцией печати:

Print #номер_файла; [<выходной_список_переменных>] Выходной список печати может содержать:

[{Spc(n) | Tab[(n)]}] [<выражение>] [charpos]

где Spc(n) — длина пустой строки;

Tab(n) — печать с указанной позиции;

<выражение> — выражение числового или символьного типа;

charpos — определяет позицию вставки для следующего символа. Символ ; обеспечивает

переход на другую строку (к другой записи файла).

Если последовательный файл должен затем считываться, не рекомендуется применять оператор Print.

Пример 19.29. Печать в последовательный	файл
Текст программы	Комментарий
Open "FILE" For Output As #1	Открытие файла для печати
Print #1; "Печать любого текста"	Вывод в файл текстовой строки
Print #1;	Вставка пустой строки
Print #1; "Код"; Tab ; "Наименование"	Вывод в две колонки
Print #1; "Код" ; " " ; "Наименование"	Разделение двух слов пробелом
Print #l;Spc(5); "Код"	Вставка 5 отступов перед печатью слова
Print#l;Tab(10);"K<«"	Позиционирование в колонку 10
MyBool = False	Присвоение значений переменным
	различного типа
MyDate = #February 12, 1969#
MyNull = Null
MyError = CVErr(32767)
Print #1; MyBool;	Печать значения переменной в файл
Print #1; MyDate ; " это дата "
Print #1; MyNull; " это пустое значение"
Print #1; MyError ; " код ошибки"
Close #1	Закрытие файла

19.2. Создание приложений на языке visual basic for applications

711

Результаты вывода: Печать любого текста Код Наименование

Код Наименование Код

Код False

February 12, 1969 Null Error 32767

это дата

это пустое значение

это код ошибки

2. Запись в последовательный файл

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

Write #номер_файла; [<выходной_список_переменных>]

Для данных числового типа используется символ точка для десятичной точки. В отличие от оператора Print при записи в файл автоматически вставляются специальные символы-разделители: ■ запятая — между элементами; н двойные кавычки — вокруг символьных данных.

В запись файла вставляется символ возврата каретки (переход на новую стро­ку — запись файла).

Пример 19.30. Запись информации в последовательный файл

Текст программы	Комментарий
Open "FILE" For Output As #1	Открытие файла для вывода
Write #1; "Всем привет!"; 1234567890	Запись символьной строки и числа
Write #1;	Вставка пустой строки
MyBool = False	Присвоение значений переменным
MyDate ="February 12, 1969"
MyNull = Null
MyError = CVErr(32767)
Write #1; MyBool;	Запись значений переменных в файл
Write #1; MyDate;
Write #1; MyNull;
Write #1; MyError;
Close #1	Закрытие файла

Результат вывода:

"Всем приветГ',1234567890

#FALSE#,"February 12, 1969",#NULL#,#ERROR 32767#

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

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

где #записи — номер записи для файла произвольного доступа либо номер байта, с которого начинается запись, для двоичного файла. Если номер не указан, используется следующий за последним использованным в операторах Get, Put, Seek.