из XML в VB

[Santa]

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

<?xml version="1.0" encoding="KOI8-R"?>
<res>
<msg Id="28.11.1980">рТПЧЕТЛБ</msg>
</res>

Как из файла с этим содержимым вытащить данные ч/з xml библиотеку в ВБ?

[tyomitch]

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

Dim x As New DOMDocument
x.Load "test.xml"
Debug.Print x.selectSingleNode("/res/msg[@Id='28.11.1980']").Text


[Santa]

Да, спасибо!
Только пример показывает что внутри тега мсг,
а если у мсг не один параметр ид а есть и др.
Сам ид в мсг тоже не известен, как быть если ид не единственный параметр, то как узнать значение других?
мсг не один, есть и др. у каждого по 2-3 таких как ид и их тоже надо узнать. Я упростил пример, если надо (необходимо) для точности и ясности могу весь XML выложить.
Очень нужна помошь!

[schalexey]

Santa
x.selectNodes("/res/msg")
И потом перебирай коллекцию через Each

PS selectNodes вроде такой метод... сейчас VB под боком нет

[Santa]

Содержимое тега получилось вытащить, а параметр ид нет.

[_ae_]

IXMLDOMNode.attributes("id")

[Santa]

Все получается! Только как теперь узнать что страница загрузилась?readyState всегда 4 когда начинается загрузка 3 а когда кончается опять 4. А как оформить не соображу?

[RayShade]

Поставь .async = false и все

[Santa]

Поставь .async = false и все

ERROR: Attempt to modify a read-only node.

Вставил так, помогло:

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

Do While x.readyState <> 4
  DoEvents
Loop

[Santa]

Еще одна проблемка. Иногда, когда сервер перегружен он ворачивает только одну строку:

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

пЫЙВЛБ УПЕДЙОЕОЙС У ВБЪПК: DB Error: connect failed

Как её вычитать? x.xml и x.text пусто

[Ennor]

Данный текст не будет являться валидным XML. Во-первых, можешь проверять результат, возвращаемый методом LoadXML() (или как ты его загружаешь?..) - это Boolean. Во-вторых, можешь проверять свойство parseError.ErrorCode объекта DOMDocument:

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

Dim xmlDoc As New Msxml2.DOMDocument30
xmlDoc.async = False
xmlDoc.loadXML ("<customer>" & _
                "<first_name>Joe</first_name>" & _
                "<last_name>Smith</last_name></customer>")
If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox("You have error " & myErr.reason)
Else
   MsgBox xmlDoc.xml
End If

В примере, судя по всему, используется VB.NET, но в данном случае разница не должна помешать тебе разобраться.

Ссылка в MSDN 2005:
ms-help://MS.MSDNQTR.v80.en/MS.MSDN.v80/MS.WIN32COM.v10.en/xmlsdk/html/19957329-69cd-456a-876f-7d2b692b0afc.htm

[Santa]

Нет, это VB 5.0.
parseError то самое чего не хватало, спасибо. Только он долго не хотел работать, оказалось нужен был async = false и от моей комбинации пришлось отказаться.