Предыстория:
Как-то писал обмен между разношерстными конфигурациями на платформе 8.1 на базе XML. Разбор-построение XML-файла обмена делалось по схемам (использовался механизм XDTO). И возникла необходимость при разработке схем иметь под рукой полное описание встроенных типов 1С, которые сериализуются через XDTO, дабы импортировать их в свои схемы. Вот и написал небольшой код для выгрузки встроенных схем в отдельные XSD-файлы. Может кому-то понадобится. XSD-файлы прилагаются.
Собственно код:
Для Каждого Пакет из ФабрикаXDTO.Пакеты Цикл
Если Пакет.URIПространстваИмен = "http://www.w3.org/2001/XMLSchema" Тогда
Продолжить;
КонецЕсли;
НаборСхем = ФабрикаXDTO.ЭкспортСхемыXML(Пакет.URIПространстваИмен);
Для Счетчик = 0 по НаборСхем.Количество() - 1 Цикл
Схема = НаборСхем.Получить(Счетчик);
Схема.ОбновитьЭлементDOM();
ЗаписьDOM = Новый ЗаписьDOM;
ЗаписьXMLСтрока = Новый ЗаписьXML;
ЗаписьXMLСтрока.УстановитьСтроку();
ЗаписьXMLФайл = Новый ЗаписьXML;
ЗаписьDOM.Записать(Схема.ДокументDOM, ЗаписьXMLСтрока);
ЗаписьXMLФайл.ОткрытьФайл(ИмяФайла + "[" + Формат(Счетчик,"ЧЦ=10;ЧГ=0;ЧН=") + "].xsd");
ЗаписьXMLФайл.ЗаписатьБезОбработки(ЗаписьXMLСтрока.Закрыть());
ЗаписьXMLФайл.Закрыть()
КонецЦикла;
КонецЦикла;
Вступайте в нашу телеграмм-группу Инфостарт
