Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Последовательный доступ к файлу




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

Синтаксис процедуры Print:

Print #номерФайла, [списокВывода]

Параметр номерФайла — это номер файла, открытого со способами доступа: Append или Output.

Параметр списокВывода — это выражение или список выражений следующего вида:

[{Spc(n) | Tab[(n)]}] [выражение] [позицияСимвола]

Где Spc(n) задает количество вставляемых пробелов, a Tab(n) задает номер столбца, в котором будет начинаться текст, выражение — это строковое или числовое выражение, параметр позицияСимвола задает точку вхождения следующего за выражением символа.

Синтаксис процедуры Write:

Write #номерФайла, [списокВывода]

Здесь смысл параметра номерФайла тот же, а списокВывода — это одно или несколько выражений, разделенных пробелами, запятыми или точками с запятой.

Для некоторых значений (таких как Null, True и т. д.) есть ряд соглашений, однозначно определяющих форму их вывода. Например, значение Null выводится строкой символов #Null#.

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

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

Dim K1 As String

Dim K2 As String

Dim K3 As String

Dim K4 As String

Dim K5 As String

K1 = Forms![Расход]![Код_расхода].Value

K2 = Forms![Расход]![Код_клиента].Value

K3 = Forms![Расход]![Дата_накладной].Value

K4 = Forms![Расход]![Идентифик№клиента].Value

K5 = Forms![Расход]![ФИОклиента].Value

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

Write #1, K1, K2, K3, K4, K5

Close #1

Работа с процедурой SaveFileTextMy() закончена, сохраните ее. Выполнить мы ее пока не можем, так как ее нужно прикреплять либо к макросу, либо к обработчику события.

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






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

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных