По сути, это простой пример по следам решения простой конкретной задачи. Но, к своему удивлению, навскидку я не нашёл таких решений, а значит, почему бы и не выложить.
Представленный вариант - для толстого клиента или для сервера. Желающие могут превратить таблицу и дерево значений в коллекции или данные формы, сути это не меняет. Суть очень проста - сериализовать в XDTO, через XML в DOM и прочитать сведения об иерархии по нужным узлам-тегам. Производительность на больших объёмах будет, естественно, не ахти, что надо учитывать; ну и если построитель DOM не потянет, придётся копать последовательным чтением XML. Мысль публикации лишь в том, что, хотя во встроенном языке нет возможности выяснить уровень области, данные об этом любой табличный документ хранит. Я поработал с группировками строк, нечто подобное можно сделать и для группировок колонок - это, к примеру, для любителей курочить выходной таб.документ СКД.
Итак:
// вспомогательная к ПрочитатьТабДокументСГруппировкамиВДерево
Процедура ЗаполнитьДеревоПоТаблицеРекурсивно(рРодитель,тДанных)
Для каждого рВетка Из рРодитель.Строки Цикл
ЗаполнитьДеревоПоТаблицеРекурсивно(рВетка,тДанных);
мстро=тДанных.НайтиСтроки(Новый Структура("НомерПозицииРодителя",рВетка.НомерПозиции));
Для каждого стро Из мстро Цикл
ЗаполнитьЗначенияСвойств(рВетка.Строки.Добавить(),стро);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Функция ПрочитатьТабДокументСГруппировкамиВДерево(ТабДокумент,мИмёнКолонок) Экспорт
Попытка
тДанных=Новый ТаблицаЗначений;
тДанных.Колонки.Добавить("НомерПозицииРодителя",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,0,ДопустимыйЗнак.Любой))); // у старших - 0, у родителей -1
дДанных=Новый ДеревоЗначений;
дДанных.Колонки.Добавить("НомерПозиции",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,0,ДопустимыйЗнак.Неотрицательный))); // у старших - 0
// добавление смысловых колонок
Для каждого знч Из мИмёнКолонок Цикл
// тип у них у всех строковый
тДанных.Колонки.Добавить(знч.Имя);
дДанных.Колонки.Добавить(знч.Имя);
КонецЦикла;
Для й=1 По ТабДокумент.ВысотаТаблицы Цикл
ОбработкаПрерыванияПользователя();
стро=тДанных.Добавить();
Для каждого знч Из мИмёнКолонок Цикл
стро[знч.Имя]=СокрЛП(ТабДокумент.Область(й,знч.Столбец,й,знч.Столбец).Текст);
КонецЦикла;
КонецЦикла;
Если тДанных.Количество()=0 Тогда
Возврат дДанных;
КонецЕсли;
рЗапись=Новый ЗаписьXML;
рЗапись.УстановитьСтроку("UTF-8");
СериализаторXDTO.ЗаписатьXML(рЗапись,ТабДокумент);
рЧтение=Новый ЧтениеXML;
рЧтение.УстановитьСтроку(рЗапись.Закрыть());
пострДом=Новый ПостроительDOM;
докдом=пострДом.Прочитать(рЧтение);
мУзловГрупп=докдом.ПолучитьЭлементыПоИмени("vg");
Для каждого рУзелГруппы Из мУзловГрупп Цикл
ОбработкаПрерыванияПользователя();
рНачало=0; рКонец=0;
Для каждого рПодузел Из рУзелГруппы.ДочерниеУзлы Цикл
ОбработкаПрерыванияПользователя();
Если рПодузел.ИмяУзла="b" Тогда
рНачало=Число(СокрЛП(рПодузел.ТекстовоеСодержимое));
ИначеЕсли рПодузел.ИмяУзла="e" Тогда
рКонец=Число(СокрЛП(рПодузел.ТекстовоеСодержимое));
КонецЕсли;
КонецЦикла;
Если рНачало=0 Тогда Продолжить КонецЕсли;
Если рКонец=0 Тогда рКонец=рНачало КонецЕсли; // одна позиция в подгруппе
рКонец=рКонец+1; // обязательная поправка
// первому не ставим указание, он и есть родитель
рВеткаГруппы=дДанных.Строки.Найти(рНачало-1,"НомерПозиции",Истина); // ищем родителя этого родителя
Если рВеткаГруппы=Неопределено Тогда рВеткаГруппы=дДанных КонецЕсли;
рВеткаДанных=рВеткаГруппы.Строки.Добавить();
ЗаполнитьЗначенияСвойств(рВеткаДанных,тДанных[рНачало-1]);
рВеткаДанных.НомерПозиции=рНачало; // именно так
тДанных[рНачало-1].НомерПозицииРодителя=-1;
// ставим в таблицу
Для й=рНачало+1 По рКонец Цикл
ОбработкаПрерыванияПользователя();
тДанных[й-1].НомерПозицииРодителя=рНачало;
КонецЦикла;
КонецЦикла;
тДанных.Индексы.Добавить("НомерПозицииРодителя");
ЗаполнитьДеревоПоТаблицеРекурсивно(дДанных,тДанных);
дДанных.Колонки.Удалить("НомерПозиции");
Возврат дДанных;
Исключение
Сообщить("ПрочитатьТабДокументСГруппировкамиВДерево, ошибка: "+ОписаниеОшибки(),СтатусСообщения.Важное);
Возврат Неопределено;
КонецПопытки;
КонецФункции
P.S. Если это баян, киньте в меня тапочком ссылкой.
