// Пример 12
процедура Выполнить( ) // Связана с кнопкой Пуск обработки Фузеева
 перем ин, числоКонст, син, иден, значен;
 перем текст, имяФайла;
 имяФайла = "Константы.txt";
 текст = СоздатьОбъект("Текст");
 // Формируем текст с данными о константах; константа 
//разделительСтрок обеспечит вставку пустой строки между заголовком списка и
//заголовками столбцов
 текст.ДобавитьСтроку("Список непериодических констант" +
разделительСтрок);
// Вывод заголовков столбцов
// Выведем в каждой строке 3 поля: идентификатор, синоним
// и значение константы, задав длину каждого поля, равной 20 символам
 текст.ДобавитьСтроку(Формат("Идентификатор", "С20") +
" " +
  Формат("Синоним", "С20") + " " +
Формат("Значение", "С20") + разделительСтрок);
 числоКонст = 0; // Число непериодических констант
 для ин = 1 по Метаданные.Константа( ) цикл
  если Метаданные.Константа(ин).Периодический = 1 тогда
  продолжить; // Значения периодических констант не выводятся
  конецЕсли;
  числоКонст = числоКонст + 1;
  // Определяем значения переменных иден, син и значен
  иден = Метаданные.Константа(ин).Идентификатор;
  син = Метаданные.Константа(ин).Синоним;
  значен = сокрЛ(Константа.ПолучитьАтрибут(иден));
  // Вывод очередной строки в формируемый текст
  текст.ДобавитьСтроку(Формат(иден, "С20") + " " +
   Формат(син, "С20") + " " + Формат(значен,
"С20"));
 конецЦикла; 
 текст.ДобавитьСтроку(""); // Выводим пустую строку
// Функция Строка преобразовывает число числоКонст в символьное представление
 текст.ДобавитьСтроку("Всего непериодических констант " +
Строка(числоКонст));
 // Вывод данных о числе непериодических констант
 // Запрещаем редактирование результирующего текста
 текст.ТолькоПросмотр(1);
// Покажем текст, в окне, имеющем заголовок Список непериодических констант
 текст.Показать("Список непериодических констант");
 текст.Записать(имяФайла); // Запишем текст в файл Константы.txt
конецПроцедуры // Выполнить