v8: Список имен параметров табличного документа (2012 год)
ничего лучше не придумали?
чем:
Функция ПолучитьМассивИменПараметров(ОбластьТабДокумента) Экспорт
МассивИменПараметров = Новый Массив;
Для НомерСтроки = 1 По ОбластьТабДокумента.ВысотаТаблицы Цикл
Для НомерКолонки = 1 По ОбластьТабДокумента.ШиринаТаблицы Цикл
Ячейка = ОбластьТабДокумента.Область(НомерСтроки, НомерКолонки, НомерСтроки, НомерКолонки);
Если Ячейка.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр Тогда
//если такого параметра еще нет, то добавим его
Если МассивИменПараметров.Найти(Ячейка.Параметр) = Неопределено тогда
МассивИменПараметров.Добавить(Ячейка.Параметр);
КонецЕсли;
ИначеЕсли Ячейка.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Шаблон Тогда
//выделим все параметры в шаблоне в отдельные строки
ТекстШаблона = Ячейка.Текст;
ТекстШаблона = СтрЗаменить(ТекстШаблона, "[", Символы.ПС + "[");
ТекстШаблона = СтрЗаменить(ТекстШаблона, "]", Символы.ПС);
Для Счетчик = 1 По СтрЧислоСтрок(ТекстШаблона) Цикл
ТекСтрока = СтрПолучитьСтроку(ТекстШаблона, Счетчик);
Если Лев(ТекСтрока, 1) = "[" тогда
ИмяПараметра = Сред(ТекСтрока, 2);
//если такого параметра еще нет, то добавим его
Если МассивИменПараметров.Найти(ИмяПараметра) = Неопределено тогда
МассивИменПараметров.Добавить(ИмяПараметра);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли//конец проверки, что в ячейке - текст, параметр или шаблон
КонецЦикла//конец обхода по колонкам
КонецЦикла//конец обхода по строкам
Возврат МассивИменПараметров;
КонецФункции
