Собсно не отрабатывает код перехода на более нисший уровень
По структуре
<1>
<2>
<3>..</3>
</2>
</3>
Проходит функция
Процедура ПрочитатьТеги(ТипТега, Ф)
Ур = Ф.СвойстваТекущегоУзла.Уровень;
ТипТега = Ф.Спуститься();
Пока ТипТега = 1 Цикл
Объект = Ф.ТекущийЭлементВВидеОбъекта();
Значение = СокрЛП(Объект.Значение);
Сообщить(Ф.СвойстваТекущегоУзла.Имя + " " + Объект.Значение);
Если Объект.КоличествоПодчиненных() > 1 Тогда
ТипТега = Ф.Спуститься();
ПрочитатьТеги(ТипТега, Ф);
КонецЕсли;
ТипТега = ф.Следующий();
КонецЦикла;
КонецПроцедуры
Код не переходит на нижний уровень по команде Спуститься()
Всему виной функция текущийЭлементВВидеОбъекта() Если ее не использовать то все работает. Но как тогда понять, что у узла есть подчиненные.
Просто хотел все в таблицу значений запихать, а тут такая засада.
(1) Беда заключается в том, что в 77 нет возможности прочитать значение элемента не выбрав текущийЭлементВВидеОбъекта. А при применении этой функции программа перестает идти по структуре файла... И было бы все ничего...Как определить, что есть подчиненные уровни без того чтобы применять функцию ТекущийЭлементВВидеОбъекта
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший