Главная » 1С Предприятие » ВЫВОД СПИСКА КОНСТАНТ  В ТЕКСТОВЫЙ ФАЙЛ

0

Текстовые  файлы часто  используют  для  обмена  данными  между  программами, например для передачи  из  1С платежных поручений  в банк, где они  воспринимаются установленной там  процедурой. Механизм  вывода  данных   в  текстовый  документ с  последующим его сохранением  в  файле  продемонстрируем на уже решенной нами  задаче формирования  списка  констант,  направляя   его  на  этот  раз  не  в   таблицу  значений (разд.  1.8) или  в табличный  отчет (разд.  1.9), а в текстовый  файл.

Наша  задача  довольно  проста, и  мы  после  создания  объекта  Текст  обойдемся небольшим  числом  методов, применяемых  в   1С  для  объектов  такого  типа,  методами ДобавитьСтроку, ТолькоПросмотр, Показать и  Записать.  Для  форматирования и  преобразования данных  используем встроенные функции Формат и Строка. Необходимые  пояснения  впервые  использованных   методов  и   функций   дадим  в   нижеприводимом тексте  программы.

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

перем ин, числоКонст, син, идеи, значен; перем текст, имяФайла;

имяФайла = "Koнстакты.txt"; текст = СоздатьОбъект("Текст");

// Формируем текст с данными о константах; системная константа

// РазделительСтрок обеспечит вставку пустой  строки между

// заголовком списка и заголовками столбцов

текст.ДобавитьСтроку("Список непериодических констант" + РазделительСтрок);

// Вывод заголовков столбцов

// Как и ранее, выведем  в каждой строке 3 поля: идентификатор, синоним

// и значение  константы, задав длину каждого поля, равной 20 символам текст.ДобавитьСтроку(Формат("Идентификатор", "С20") + " " +

Формат("Синоним", "С20") + "" + Формат("Значение", "С20") + РазделительСтрок); числоКонст = 0;                     //             Число непериодических  констант

для ин = 1 по Метаданные.Константа() цикл

если Метаданные.Константа(ин).Периодический = 1 тогда

продолжить;               //          Значения  периодических констант не выводятся конецЕсли;

числоКонст = числоКонст + 1;

// Определяем  значения переменных  идеи, син и значен

идеи = Метаданные.Константа(ин).Идентификатор; син = Метаданные.Константа(ин).Синоним;

значен = сокрЛ(Константа.ПолучитьАтрибут(иден));

// Вывод очередной строки  в формируемый текст

// Встроенная функция  Формат(пар, "С20") вернет значение

// параметра пар в виде строки длиной в 20 символов текст.ДобавитьСтроку(Формат(иден,  "С20") + " " +

Формат(син, "С20") + " " + Формат(значен, "С20"));

конецЦикла; // для

текст.ДобавитьСтроку("");          //       Выводим пустую строку

// Функция Строка преобразовывает значение переменной числоКонст

// в символьное представление

текст.ДобавитьСтроку("Всего непериодических констант  " + Строка(числоКонст));

// Вывод данных о числе непериодических констант

// Запрещаем редактирование результирующего текста  текст.ТолькоПросмотр(1);

// Покажем текст, в окне, имеющем заголовок  Список непериодических констант текст.Показать("Список непериодических констант");

текст.Записать(имяФайла);         //      Запишем  текст  в файл Константы-txt нецПроцедуры // Выполнить.

Результат приведен  на  рис.   1.38.

Рис.  1.38.  Текст  отображается  с применением  равномерного  шрифта Замечания:

1.    Поля с данным и  будут расположены  равномерно, если  применить  шрифт  с  фикси­

рованной  шириной символа,  например  Fixedsys.  Переход  от  пропорционального  шрифта  к   равномерному   в    результирующем  тексте   осуществляется   в    1С:Пред приятии    в  результате  выбора  пунктов  меню  Текст  Текст   модуля.  Колонка  меню  Текст  появляется  при  просмотре  текста.

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

Источник: Бартеньев О. В. 1С:Предприятие:  программирование для  всех.  Базовые объекты и расчеты на одной дискете. М.: Диалог-МИФИ, 2005. 464 с.

По теме:

  • Комментарии