Page 113 - 6735

" Hello world!" + vbNewLine + _
" </el2>" + vbNewLine + _
" </el1>" + vbNewLine + _
"</doc>" + vbNewLine
xmldoc.Save "e:\\my.xml" '*зберегти документ

Dim b As Boolean
b = xmldoc.Load("e:\\my.xml") '*завантажити документ
If b Then 'якщо завантажено, тоді
Set docNode = xmldoc.documentElement 'кореневий
елемент
Set el1Node = docNode.FirstChild 'перший дочірній
вузол вузла docNode
Set el2Node = el1Node.FirstChild 'перший дочірній
вузол вузла el1Node
Set txtNode = el2Node.FirstChild 'перший дочірній
вузол вузла el2Node
Debug.Print txtNode.NodeValue 'вивести текстове
значення вузла

Set el = xmldoc.createElement("el3") 'створити вузол
елемента з іменем el3
el.Text = "hello!!!" '*текстовий вміст вузла і
підвузлів
Set atr = xmldoc.createAttribute("attr") 'створити
атрибут з іменем attr
atr.Value = "10" 'значення атрибута
el.setAttributeNode atr 'установити вузол атрибута atr
в елемент el
docNode.appendChild el 'додати дочірній вузол як
останній

Set node = docNode.LastChild.CloneNode(True)
'клонувати останній дочірній вузол із підвузлами
docNode.InsertBefore node, el1Node 'вставити дочірній
вузол перед el1Node
docNode.RemoveChild node 'видалити дочірній вузол node

113