XMLDocument - Нужна помощь!

[kibernetics]

Есть важные вопросы связанные с XMLDocument.
Есть XML, примерно такого плана:

Код: Выделить всё

...
<tag1>
  <prop>
    <style val="Header"/>
  </prop>
  <data>
    <text>EXAMPLE HEADER TEXT</text>
  </data>
</tag1>
  <tag1>
    <prop>
      <style val="Main"/>
    </prop>
    <data>
      <text>EXAMPLE MAIN TEXT</text>
    </data>
  </tag1>
  <tag1>
    <prop>
      <style val="Content"/>
    </prop>
    <data>
      <text>EXAMPLE CONTENT TEXT</text>
    </data>
  </tag1>
  ...

Подскажите, как перебрать все теги, чтобы найти в них тег style с атрибутом val="Main"?
И затем, в случае нахождения этого тега, то под ним добавить ещё один тег со значением <align val="center">,
и плюс ко всему изменить текст в теге <text> общего узла.
В итоге XML должен получится в таком виде:

Код: Выделить всё

  ...
  <tag1>
  <prop>
    <style val="Header"/>
  </prop>
  <data>
    <text>EXAMPLE HEADER TEXT</text>
  </data>
</tag1>
  <tag1>
    <prop>
      <style val="Main"/>
      <align val="center"/>   '<--- ДОБАВИЛИ ТЕГ
    </prop>
    <data>
      <text>!EDITED TEXT!</text>   '<--- ОТРЕДАКТИРОВАЛИ ЗНАЧЕНИЕ
    </data>
  </tag1>
  <tag1>
    <prop>
      <style val="Content"/>
    </prop>
    <data>
      <text>EXAMPLE CONTENT TEXT</text>
    </data>
  </tag1>
  ...

Подскажите, кто чем может. Очень нужно решить. Хочу использовать через объект XMLDocument. Но, не выходит ничего. Не могу разобраться.

[BION]

Примерно так:

Код: Выделить всё

dim node as MSXML2.IXMLDOMElement
dim new_node as MSXML2.IXMLDOMElement

xmlDoc.setProperty "SelectionLanguage", "XPath"

' по заданному пути находим тэг "style" где атрибут "val" имеет значение "Main"
Set node = xmlDoc.selectSingleNode("//root/tag1/prop/style[@val='Main']")

' поднимаемся на уровень выше
set node = node.parentNode

' создаем и добавляем новый элемент
set new_node = node.appendChild(xmlDoc.createElement("align"))

' добавляем атрибут со значением
new_node.setAttribute "val", "center"

А вообще:
http://ru.wikipedia.org/wiki/XPath
http://xml.nsu.ru/dom/dom_home.xml

[kibernetics]

Тэк-с, спасибо друг, уже кое-что начинает прояснятся.
Пока алгоритм таков:
1. нашёл тег style val='Main'
2. определил родителя
3. определил родителя
4. получил значение тега text

А как можно отредактировать текст в теге?

[BION]

А как можно отредактировать текст в теге?

Код: Выделить всё

node.text = "abc"

[RayShade]

А можно сделать оптимальнее

Код: Выделить всё

Dim nodeList As IXMLDomNodeList
Set nodeList = xmlDoc.selectNodes("//root/tag1/prop[./style[@val='Main']]")
' Более понятный синтаксис
Set nodeList = xmlDoc.selectNodes("//root/tag1/prop[child::style[attribute::val='Main']]")

Dim node As IXMLDomNode
For Each node in nodeList
' Ну тут уже создаем новые ноды и добавляем их прямо в node :)
Next node