прямая работа с xml через msxml-парсер даёт дополнительные бонусы по сравнению с v7plus.dll:
1. меньше глюков и проблем, больше управляемости и возможностей (v7plus.dll представляет собой лишь обёртку, которая так же в итоге обращается к парсеру msxml, но при этом имеет кучу ограничений: не все версии парсера подхватывает, не работает с комментариями и CDATA, и т.п.)
2. привычный набор свойств и методов для тех, кто уже знаком с объектной моделью msxml, и наоборот: одинесник, привыкнув к ней, уже не будет в ступоре при необходимости использования данной технологии в каком-нибудь скрипте на vbs
3. возможность выбирать версию парсера (в примере ниже выбирается версия 6)
Функция ВывестиЭлем(ТекЭлем,Знач Смещ); Рез=1; Попытка Если (ТекЭлем.nodeType=1) Тогда Сообщить(Смещ+"Элемент "+ТекЭлем.nodeName+":","!"); ИначеЕсли (ТекЭлем.nodeType=3) Тогда Сообщить(Смещ+"Текст элемента: "+ТекЭлем.nodeValue); ИначеЕсли (ТекЭлем.nodeType=4) Тогда Сообщить(Смещ+"CDATA: "+ТекЭлем.nodeValue); ИначеЕсли (ТекЭлем.nodeType=8) Тогда Сообщить(Смещ+"Комментарий: "+ТекЭлем.nodeValue,"I"); Иначе Сообщить(Смещ+"Элемент "+ТекЭлем.nodeName+":"); Сообщить(Смещ+"Тип: "+ТекЭлем.nodeType); КонецЕсли; Для ном=0 По ТекЭлем.attributes.length-1 Цикл ТекАтр=ТекЭлем.attributes(ном); Сообщить(Смещ+"Атрибут: "+ТекАтр.nodeName+", значение: "+ТекАтр.nodeValue); КонецЦикла; Исключение Рез=0; КонецПопытки; Смещ=Смещ+" "; Для ном=0 По ТекЭлем.childNodes.length-1 Цикл ДочЭлем=ТекЭлем.childNodes(ном); Рез=Рез*ВывестиЭлем(ДочЭлем,Смещ); КонецЦикла; Возврат Рез; КонецФункции //******************************************* Функция Сформировать() ИмяФайла="D:\1.xml"; Попытка ДОМ=СоздатьОбъект("MSXML2.DOMDocument.6.0"); Узел=ДОМ.CreateProcessingInstruction("xml","version=""1.0"" encoding=""windows-1251"""); Исключение Сообщить("Не удалось создать объект DOMDocument","!"); Возврат 0; КонецПопытки; ДОМ.insertBefore(Узел,); ТекЭлем=ДОМ.appendChild(ДОМ.createElement("Файл")); Текст=ДОМ.createTextNode("Здесь содержимое Файл"); ТекЭлем.appendChild(Текст); ТекЭлем.setAttribute("Атрибут_Файл_1","Здесь содержимое Атрибут_Файл_1"); Комм=ДОМ.createComment("Далее следует содержимое файла"); ТекЭлем.appendChild(Комм); ТекЭлем=ТекЭлем.appendChild(ДОМ.createElement("СодержимоеФайла")); Текст=ДОМ.createTextNode("Здесь содержимое СодержимоеФайла"); ТекЭлем.appendChild(Текст); ТекЭлем.setAttribute("Атрибут_СодержимоеФайла_1","Здесь содержимое Атрибут_СодержимоеФайла_1"); Текст=ДОМ.createCDATASection("Это секция CDATA"); ТекЭлем.appendChild(Текст); ДОМ.save(ИмяФайла); Попытка ДОМ=СоздатьОбъект("MSXML2.DOMDocument.6.0"); Исключение Сообщить("Не удалось создать объект DOMDocument","!"); Возврат 0; КонецПопытки; ДОМ.async=0; ДОМ.validateOnParse=-1; ДОМ.resolveExternals=-1; ДОМ.load(ИмяФайла); Если (ДОМ.parseError.errorCode<>0) Тогда // ошибки при проверке валидности Сообщить("При проверке валидности файла "+ИмяФайла+" выявлены ошибки!","!"); Возврат 0; КонецЕсли; Рут=ДОМ.documentElement(); Смещ=""; Рез=ВывестиЭлем(Рут,Смещ); Возврат Рез; КонецФункции
Ответы: (1)
