Чтение XML файла

стек=новый массив;
чтение=Новый ЧтениеXML ;
чтение.ОткрытьФайл(сокрЛП(вхИмяФайла));
мДокументДОМ=мДОМ.Прочитать(чтение);

мФильтр=новый ФильтрУзловDOM(,                                           
ПараметрыОтбораУзловDOM.ОтображатьЭлемент,                              
ПараметрыОтбораУзловDOM.ОтображатьАтрибут,
			,
			,
			,
			,
			ПараметрыОтбораУзловDOM.ОтображатьИнструкциюОбработки,,,,);
мОбходДерева=новый ОбходДереваDOM(мДокументДОМ,мРодитель,мФильтр);
тУзел=мОбходДерева.NextNode();
РекурсияXML(мОбходДерева,стек,мДокументДОМ);

Функция РекурсияXML(вхОбход,выхДЗ,вхДокумент)
	тУзел=вхОбход.ТекущийУзел;
	если тУзел=Неопределено тогда
		возврат Ложь;
	конецесли;            
	мФильтр=новый ФильтрУзловDOM(,
	             ПараметрыОтбораУзловDOM.ОтображатьЭлемент,
	             ПараметрыОтбораУзловDOM.ОтображатьАтрибут,
	             ПараметрыОтбораУзловDOM.ОтображатьИнструкциюОбработки,,,,);

	пока тУзел<>неопределено цикл
		попытка
			мИмя=тУзел.ИмяЭлемента;
			если выхДЗ.Найти(мИмя)=Неопределено тогда                     ;
	            выхДЗ.Добавить(мИмя);
			конецесли;

			для каждого атрибут из тУзел.Атрибуты цикл
				мИмя=атрибут.Имя;
				если выхДЗ.Найти(мИмя)=Неопределено тогда
	                выхДЗ.Добавить(мИмя);
				конецесли;
			конеццикла;

		исключение
	        сообщить(ОписаниеОшибки());
		конецпопытки;



		мВложенноеДерево=новый    ОбходДереваDOM(вхДокумент,тУзел,мФильтр);

		Если мВложенноеДерево.FirstChild()<>Неопределено  тогда

			РекурсияXML(мВложенноеДерево,приемник,вхДокумент);

		конецесли;

		тУзел=вхОбход.NextSibling();

	конеццикла;        
	возврат Истина;

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