ТОР 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() закончена, сохраните ее. Выполнить мы ее пока не можем, так как ее нужно прикреплять либо к макросу, либо к обработчику события. Создайте ниже под первой процедурой новую процедуру для чтения данных из текстового файла и применения фильтра для отбора записей. Не нашли, что искали? Воспользуйтесь поиском:
|