Чтение = Новый ЧтениеXML;

Чтение.ОткрытьФайл(ПутьКФайлу); //ПутьКФайлу - Путь к загружаемому XML-документу указан в переменной 

//Используется модель последовательного доступа.

Пока Чтение.Прочитать() Цикл // Прочитать «структурные части» элементов.



	// Проверить, какая часть элемента текущая.

	Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

		ИмяУзла = Чтение.Имя;

		

		Сообщить("--" + ИмяУзла);



		// Атрибуты элементов можно читать, только если текущая часть – начало элемента.

		Пока Чтение.ПрочитатьАтрибут() Цикл



			// Прочитать данные узла атрибута.

			ТипУзла = Чтение.ТипУзла;

			Имя = Чтение.Имя;

			Значение = Чтение.Значение;

	

		// Обработать полученные значения.

		//	...

		

		КонецЦикла;

		

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда	



		// В примере просто выводим текст в окно сообщений.	

		Сообщить("Текст:" + Чтение.Значение);

		

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда



		// В примере просто выводим признак конца элемента в окно сообщений.

		Сообщить("--Конец:" + Чтение.Имя);   

 Запись = Новый ЗаписьXML;

//Путь к формируемому XML-документу указан в переменной ПутьКФайлу

Запись.ОткрытьФайл(ПутьКФайлу);



Запись.ЗаписатьОбъявлениеXML();

Запись.ЗаписатьНачалоЭлемента("Корневой");

Запись.ЗаписатьАтрибут("Справочник", "Номенклатура");

Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре");



Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	Если Выборка.ЭтоГруппа Тогда

		Продолжить;

	КонецЕсли;	

	Запись.ЗаписатьНачалоЭлемента("Элемент");

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул));

	Запись.ЗаписатьТекст(Выборка.Наименование);

	Запись.ЗаписатьКонецЭлемента();

КонецЦикла;	



Запись.ЗаписатьКонецЭлемента();

Запись.Закрыть();