Задача:
Как обойти только узлы второго уровня? Или найти узел по наименованию? И вообще, кроме как обходить построчно весь документ XML что еще может 8.2.
Пользовался инструментом: "ЧтениеXML".
Пробывал подключать v7plus.dll - не удалось.
Как просто и удобно можно перебрать XML в 8.2? (желательно так же удобно как v7plus.dll)
Рез=1;
Попытка
ТипУзла=ДОМ.ТипУзла;
Если (ТипУзла=ТипУзлаDOM.Документ) Тогда
;
ИначеЕсли (ТипУзла=ТипУзлаDOM.Элемент) Тогда
Смещ=Смещ+" ";
Сообщить(Смещ+"Элемент "+ДОМ.ИмяУзла+":",СтатусСообщения.Важное);
Для каждого ТекАтр из ДОМ.Атрибуты Цикл
Сообщить(Смещ+"Атрибут: "+ТекАтр.ИмяУзла+", значение: <"+ТекАтр.ЗначениеУзла+">");
КонецЦикла;
ИначеЕсли (ТипУзла=ТипУзлаDOM.Текст) Тогда
Сообщить(Смещ+"Текст элемента: <"+ДОМ.ЗначениеУзла+">");
ИначеЕсли (ТипУзла=ТипУзлаDOM.СекцияCDATA) Тогда
Сообщить(Смещ+"CDATA: <"+ДОМ.ЗначениеУзла+">");
ИначеЕсли (ТипУзла=ТипУзлаDOM.Комментарий) Тогда
Сообщить(Смещ+"Комментарий: <"+ДОМ.ЗначениеУзла+">",СтатусСообщения.Информация);
Иначе
Сообщить(Смещ+"Элемент "+ДОМ.ИмяУзла+":");
Сообщить(Смещ+"Тип: "+ДОМ.ЗначениеУзла);
КонецЕсли;
Для каждого ТекУзел из ДОМ.ДочерниеУзлы Цикл
ВывестиЭлем_ДОМ(ТекУзел,Смещ);
КонецЦикла;
Исключение
Сообщить(ОписаниеОшибки());
Рез=0;
КонецПопытки;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс