Set xmlDoc = CreateObject("microsoft.xmlDOM")
xmlDoc.async = False
xmlDoc.load("sample1.xml")
If xmlDoc.parseError.errorcode <> 0 Then
MsgBox xmlDoc.parseError.reason
Else
MsgBox xmlDoc.documentElement.xml
End If
Метод parseError используется для проверки документа. В случае возникновения ошибки документ не будет загружен.
Слайд 11Базовые объекты XML DOM
Базовые объекты XML DOM: эти объекты используются
для поддержки пространств имён, типов данных, схем XML, операций XSL,
асинхронной загрузки и для сохранения документов
Объекты DOM: Эти объекты используются для представления реализаций интерфейсов XML DOM
Слайд 13Объект DOMDocument
Представляет самый верхний уровень исходного кода XML
Включает методы и
свойства, используемые для получения или создания всех других объектов XML
Создаёт
только один объект: document
Некоторые свойства объекта DOMDocument:
async
attributes
baseName
childNodes
documentElement
Некоторые методы объекта DOMDocument:
createNode
appendChild
Слайд 18Свойство documentElement
Это корневой элемент документа
Это свойство предназначено для чтения/записи
Возвращает объект
‘XMLDOMElement’, который представляет корень дерева документа XML
Пример:
Dim root
Dim xmlDoc
Set
xmlDoc = CreateObject("microsoft.xmldom")
xmlDoc.async = False
xmlDoc.load("candidate.xml")
Set root = xmlDoc.documentElement
For i = 0 To (root.childNodes.length -1)
document.write(root.childNodes.item(i).childNodes.item(0)
.text + "
")
Next
Слайд 19Пример использования методов объекта DOMdocument
language="vbs">
Dim xmlDoc
Dim
root
Dim newNode
Set xmlDoc = CreateObject("microsoft.xmldom")
xmlDoc.async = False
xmlDoc.load("candidate.xml")
Set root = xmlDoc.documentElement
MsgBox root.xml
Set newNode = xmlDoc.createNode (1, "SampleNode", "")
root.appendChild(newNode)
MsgBox root.xml