VB6 работа с XML данными

[Belkin]

Подскажите!
Есть на входе XML мне нужно найти в нем 4 строки
<pa_from>246300875642</pa_from>
<dif_from>1.8324</dif_from>
<pa_to>246300875662</pa_to>
<dif_to>1.8324</dif_to>
После чего проанализировать эти данные и дальше производить действия.
Я никогда не работал плотно с XML. единственное что знаю это разметка по аналогии с HTML (его знаю).
Точнее я получаю XML из очереди MSMQ потом это сообщение нужно проанализировать
Так вот как мне работать с XML? Записать в файл и потом работать с помощью каких-то специальных функций или просто как с текстом (тогда без проблем).
Какой вариант более правелен и быстрый?

[ACiD]

Нужно обязательно VB6?. B Visual Studio намного проще.

[tyomitch]

При помощи MSXML, и в VB6 всё очень просто.

[Belkin]

Нужно обязательно VB6?. B Visual Studio намного проще.

Да именно и VB6 делаю.

[Belkin]

При помощи MSXML, и в VB6 всё очень просто.

Уже немного нашел инфы, сижу разбираюсь.
Если будут примеры и информация, не откажусь.

Заранее благодарен.

[Belkin]

Если я правильно разобрался, то получить значение любого уровня вложения можно так .childNodes.Item(3).childNodes.Item(1).Text
Фактически мне нужно знать этот уровень.
А если этот уровень 9, то длинное выражение получится.
Не проще поиск осуществить с помощью поиска по тексту и указать теги, а потом выделить значение.
Как вы считаете?
Разъясните пожалуйста, первый раз столкнулся с XML.

[alibek]

Почитай про XPath.

[tyomitch]

.selectSingleNode("//pa_from").text

// означает "на любом уровне вложенности"

[Belkin]

Почитай про XPath.

Читал про это. Вот только не получалось.
Спасибо tyomitch помогло!!!

Остается один вопрос:
Дело в том что я беру xml из оччере MSMQ/ Тоесть xml это тело сообщения.
Как мне произвести xmlDoc.Load (????)
Что писать вместо ????
Можно конечно сохранить значение строковой константы во времкнный файл, но это мне кажется не рационально.
Можете что подсказать?

[Belkin]

Спасибо за помощь!
Добился:

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

...
Dim qMessage As MSMQ.MSMQMessage
...
Set qMessage = qQueue.PeekCurrent(ReceiveTimeout:=300
xmlDoc.Load (qMessage)

Теперь можно перреходить от экспериментов к делу
Еще раз спасибо за подсказки!
Будут вопросы напишу.

[RayShade]

Выражение .selectSingleNode("//pa_from").text лишено смысла - выбирать 1 произвольный нод по имени из всего документа, странное занятие
Если нет четкого адреса ноды, проще сделать .selectNodes("//pa_from") и потом уже перебрать полученный список.