7.7 Из 1С 7.7 в XML по схемам.

Всем добрый день, в связи с переходом (попытки только) с 1с на другую программу, "внедренцы" дали xml-схемы, хотят, чтобы я выгрузила в их формате. Что посоветуете?
схема выглядит вот так

За подсказку библиотечки, спасибо. Как бы еще сделать так, чтобы выгружалось в UTF8

Код:

Функция ВыгрузитьВКодировкеUTF8(Текст, Каталог)

ТекстВыгрузки = СоздатьОбъект("Текст");

XmlcUtf = СоздатьОбъект("Текст");

XmlcWin = СоздатьОбъект("Текст");

// ** - Представление списка - символ в кодировке win1251, значение элемента списка - 
//		представление символа в кодировке utf-8
СписокСимволов = СоздатьОбъект("СписокЗначений");

XmlcWin.Открыть(КаталогИБ()+"ExtForms\"+Каталог+".grp\xmlc.win");
XmlcUtf.Открыть(КаталогИБ()+"ExtForms\"+Каталог+".grp\xmlc.utf");

Если ПустоеЗначение(XmlcWin) + ПустоеЗначение(XmlcUtf) > 0 Тогда
Предупреждение("Невозможно загрузить файлы кодировки. Выгрузка прекращена!");
Возврат "";
КонецЕсли;

Если (XmlcWin.КоличествоСтрок() > 0) и (XmlcUtf.КоличествоСтрок() > 0) Тогда
СтрокаWin = XmlcWin.ПолучитьСтроку(1); СтрокаUtf = XmlcUtf.ПолучитьСтроку(1);
Для i = 0 по СтрДлина(СтрокаWin) - 1 Цикл
СписокСимволов.ДобавитьЗначение(Сред(СтрокаUtf,(i*2)+1,2), Сред(СтрокаWin,i+1,1));
КонецЦикла;
КонецЕсли;

Для i = 1 по Текст.КоличествоСтрок() Цикл
СтрокаТекстВыгрузки = "";
СтрокаТекст = Текст.ПолучитьСтроку(i);
Для j = 1 по СтрДлина(СтрокаТекст) Цикл
СимволСтроки = Сред(СтрокаТекст, j, 1);			
СимволСпискаКодировки = СписокСимволов.Получить(СимволСтроки);
Если ПустоеЗначение(СимволСпискаКодировки) = 0 Тогда
СтрокаТекстВыгрузки = СтрокаТекстВыгрузки + СимволСпискаКодировки;
Иначе
СтрокаТекстВыгрузки = СтрокаТекстВыгрузки + СимволСтроки;
КонецЕсли;
КонецЦикла;
ТекстВыгрузки.ДобавитьСтроку(СтрокаТекстВыгрузки);
КонецЦикла;

Возврат ТекстВыгрузки;

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

Посмотреть вложение 8831