- •If xmlParser.ParseError.ErrorCode Then
- •If Not nodeNode.Attributes Is Nothing Then
- •XmlParser.AppendChild(xmlParser.CreateComment("Текст комментария"))
- •VbCrLf & _
- •VbCrLf & _
- •VbCrLf & _
- •XmlParser.TransformNodeToObject objStylesheet, objResult
- •If xmlParser.DocumentElement.HasChildNodes Then
- •If nodeProduct.Attributes(0).Specified Then
VbCrLf & _
"<xsl:template match='/'>" & _
"<PRODUCTS>" & _
"<xsl:apply-templates select='PRODUCTS/PRODUCT' order-by='-TITLE' />" & _
"</PRODUCTS>" & _
"</xsl:template>" & _
VbCrLf & _
"<xsl:template match='PRODUCT'>" & _
"<PRODUCT>" & _
"<xsl:value-of select='TITLE' />" & _
"</PRODUCT>" & _
"</xsl:template>" & _
VbCrLf & _
"</xsl:stylesheet>"
'Применяем стилевую таблицу к документу
Set objResult = CreateObject("Msxml2.DOMDocument")
objResult.async = False
XmlParser.TransformNodeToObject objStylesheet, objResult
'Выводим результаты
For Each nodeNode In objResult.documentElement.childNodes
WScript.Echo nodeNode.text
Next
Прочие свойства и методы
Перечень свойств и методов:
|
Описание |
doctype |
Содержит объект XMLDOMDocumentType (узел DTD XML-документа). Только чтение. Если DTD в документе отсутствует, свойство содержит null. Только чтение. |
url |
Содержит URL документа. Только чтение. |
nodeFromID(idString) |
Возвращает узел по значению его атрибута типа ID(т.е. осуществляет поиск узла по ID) или Nothing, если узел не найден. |
hasChildNodes() |
Возвращает True, если текущий узел имеет дочерние узлы, и False в противном случае. |
specified |
Возвращает True, если текущий узел атрибута явно определён в тексте документа, и False в противном случае (если атрибут опущен и имеет значение по умолчанию, взятое из DTD). |
normalize() |
Нормализует все текстовые узлы элемента (на любой глубине), объединяя два или больше смежных текстовых узла в один текстовый узел. |
Примеры использования некоторых свойств и методов:
Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.async = False
xmlParser.load "C:\Sample.xml"
'Отображаем DTD документа
WScript.Echo xmlParser.doctype.xml
'Отображаем URL документа
WScript.Echo xmlParser.url
'Проверяем, имеет ли корневой узел документа дочерние узлы
If xmlParser.DocumentElement.HasChildNodes Then
WScript.Echo "Узел " & xmlParser.documentElement.nodeName & " имеет дочерние узлы."
End If
'Проверяем, у каких товаров (элементов "PRODUCTS") явно задан атрибут "import"
For Each nodePRODUCT In xmlParser.documentElement.childNodes
strTitle = nodePRODUCT.getElementsByTagName("TITLE")(0).text
If nodeProduct.Attributes(0).Specified Then
WScript.Echo "У товара '" & strTitle & "' атрибут 'import' задан явно - " & _
nodePRODUCT.getAttribute("import")
Else
WScript.Echo "У товара '" & strTitle & "' атрибут 'import' опущен - " & _
nodePRODUCT.getAttribute("import")
End If
Next