nicht angemeldet
Hallo Thomas,
danke für deine schnelle Antwort. Offensichtlich kann er jetzt den richtigen Knoten ansprechen, aber so ganz geht's noch nicht. Das komische ist auch, dass er als Länge dieser Node-List nur eine 0 hat.
Ich hab's auf folgende zwei Wege versucht:
1:
-----------------
sFilePath = "D:\lib_export.dtx"
sXPath = "dataList/numSection/num[@name='Dicke']/valueNum"
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
oXMLDoc.async = False
oXMLDoc.resolveExternals = False
oXMLDoc.load sFilePath
oXMLDoc.setProperty "SelectionLanguage", "XPath"
Set dApps = CreateObject("Scripting.Dictionary")
dApps.CompareMode = vbTextCompare
Set oApps = oXMLDoc.documentElement.selectNodes(sXPath)
For Each oApp In oApps
dApps.Add oApp.getAttribute("index"), oApp.getAttribute("value")
' Ausgabe ....
Next
--------------
2.
----------------------
Set objNodeList = oXMLDoc.documentElement.selectNodes(sXPath)
For i = 1 To (objNodeList.length - 1)
Set objNode = objNodeList.nextNode
' Ausgabe ....
Next
-----------------
Es ist so, dass ich das in einer WinCC-Umgebung programmieren muss, wo eben die verschiedenen Skripte aufgerufen werden. Aber leider funktioniert das noch nicht so ganz. Wo liegt mein Fehler??
Grüße
Nik