Komplexes XML auslesen, wie

[Thomas J.S.]

Hallo,

Auslesen muß ich den tag <string> beim tag <var name="id">.
Bislang schaffe ich es nur, den ersten der fünf anzusprechen mit VBScript, alle weiteren erreiche ich nicht.
Hat jemand eine Idee?

Dim xmlDoc As New Msxml2.DOMDocument40
Dim objNodeList As IXMLDOMNodeList
xmlDoc.async = False
xmlDoc.resolveExternals = False
xmlDoc.Load "foo.xml"
If (xmlDoc.parseError.errorCode != 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox("You have error " & myErr.reason)
Else
   xmlDoc.setProperty "SelectionLanguage", "XPath"
   Set objNodeList = xmlDoc.documentElement.selectNodes("//string[parent::var[@name = 'id']]")
   MsgBox objNodeList.length
End If

Grüße
Thomas