Доброе.. уважаемые..

У меня простой и наверное банальный вопрос. Как получить все данные из дерева значений неограниченной вложенности?

В поиск прошу не посылать. Сразу туда ходил.. Но ничего не нашел кроме как использовать поиск.

Помогите построить такую рекурсивную выборку (обход) дерева значений

Процедура ВывестиСтрокуИПодчиненные(Стр,Отступ = "")
  Сообщить(Отступ+Стр.«что-нибудь»);
  Для каждого Подч из Стр Цикл
      ВывестиСтрокуИПодчиненные(Подч, Отступ+"  ");
  КонецЦикла
КонецПроцедуры
ну, или что-то типа того.
Чтобы понять рекурсию, надо понять рекурсию!

Это справочник?

Функция ПрочитатьЗначениеСтрокиДерева(пСтрокаДерева, пТабличко)

  Для Каждого цСтрока Из пСтрокаДерева Цикл

     НовСтр = пТабличко.Добавить();
     НовСтр.Значение = цСтрока.Значение;
     ПрочитатьЗначениеСтрокиДерева(цСтрока, пТабличко);

  КонецЦикла;

КонецФункции

Обход в ширину сам пиши =)

нет. не справочник. Это маршрутная карта, составленная как дерево значений.

+ (3) вместо Для Каждого цСтрока Из пСтрокаДерева Цикл  
читать
Для Каждого цСтрока Из пСтрокаДерева.Строки Цикл

к (1) это тоже относится ;)

(6) о, точно, «.строки»

(0) для вас принципиальна рекурсия - или итерация тоже пойдёт??

(9)ограничена вложенность. Поэтому итерация врядли здесь уместна.

но если не сложно выложите. интересно как это делает итерационно

если организовать стек родителей, то теоретически можно в цикле обработать... но это будет долго, и потом хрен отладишь, а через пол года когда туда взглянешь, воскликнешь: какого хухя я это не через рекурсию сделал?!?!?

добавляешь в дерево недоступную колонку типа булево и МоеДерево.Строки.НайтиСтроки(Новый Структура("СпецКоллонка", Ложь), Истина) вернет массив всех строк

А через Построитель, а потом выгрузить в таблицу?

а разве построитель деревья не курит?

была у меня такая проблема - надо было посмотреть что находится в ветке дерева значений. само дерево доступно не было, а у ветки нету метода ВыбратьСтроку(). В итоге пришлось написать выгрузку ветки в дерево.


Процедура ДобавитьСтрокуВДерево(СтрокаРодитель1, СтрокаДерева)
    СтрокаРодитель2 = СтрокаРодитель1.Строки.Добавить();
    ТекИндекс = 0;
    Для Каждого Знч Из СтрокаДерева Цикл
         СтрокаРодитель2.Установить(ТекИндекс, Знч);
         ТекИндекс =  ТекИндекс + 1;
    КонецЦикла;
   
    КоллекцияСтрок = СтрокаДерева.Строки;
    Для Каждого СтрокаПодчиненная Из СтрокаДерева.Строки Цикл
         ДобавитьСтрокуВДерево(СтрокаРодитель2, СтрокаПодчиненная);
    КонецЦикла;
   
КонецПРоцедуры

//Вывод на экран структуры строки дерева
Процедура ВСД(СтрокаДерева)
    Дерево = Новый ДеревоЗначений;
    Для Каждого Знч Из СтрокаДерева Цикл
         Дерево.Колонки.Добавить();
    КонецЦикла;
   
    ДобавитьСтрокуВДерево(Дерево, СтрокаДерева);
   
    Дерево.ВыбратьСтроку();
КонецПроцедуры


пусть ГлавныйРодитель  - корневой элемент
тогда  напишем кривой итерационный код который мне в силу  глубокого нежелания грузить стэк нравится больше

МассивГотовых = Новый массив;
Пока истина цикл
МассивПотомков = главныйРодитель.ПолучитьПотомков();
Для каждого Элемент из массивпотомков цикл

МассивГотовых.Добавить(Элем);

ПромежуточныйМассивПотомков = Загрузить(Элем.получитьПотомков());

конецЦикла
МассивПотомков = промежуточныйМассивПотомков;
Если Массивпотомков.количество() = 0 тогда
Прервать
конецЕсли
конецЦикла

что то вроде такого. Писал навскидку багов не исключаю, но вроде бы существует теорема о том что любой рекурсивный метод можно реализовать итерационно

ой))) надо чуть чуть по другому
МассивГотовых = Новый массив;
МассивПотомков = главныйРодитель.ПолучитьПотомков();
Пока истина цикл

Для каждого Элемент из массивпотомков цикл
МассивГотовых.Добавить(Элем);

ПромежуточныйМассивПотомков = Загрузить(Элем.получитьПотомков());

конецЦикла
МассивПотомков = промежуточныйМассивПотомков;
Если Массивпотомков.количество() = 0 тогда
Прервать
конецЕсли
конецЦикла