Hallo zusammen,
ich möchte aus einer XML-Datei eine Zellen einer Spalte auslesen und in eine Textliste schreiben.
Das auslesen funktioniert soweit schon, jetzt möchte ich die Daten entweder beim auslesen oder
in der Textliste sortiert ausgeben.
Hier fehlt mir allerdings jeglicher Ansatz, hat jemand eine Idee / einen Vorschlag?
Hier mal das bisher laufende Skript:
ich möchte aus einer XML-Datei eine Zellen einer Spalte auslesen und in eine Textliste schreiben.
Das auslesen funktioniert soweit schon, jetzt möchte ich die Daten entweder beim auslesen oder
in der Textliste sortiert ausgeben.
Hier fehlt mir allerdings jeglicher Ansatz, hat jemand eine Idee / einen Vorschlag?
Hier mal das bisher laufende Skript:
Code:
Sub Werkzeugliste()
SmartTags("DataBase") = "\Storage Card SD\Werkzeugdaten.xml"
Dim xmlDoc, Result, colNodes, objectNode, dataNodes, lfd_Nummer
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.async = "False"
lfd_Nummer = 0
If xmlDoc.load(CStr(SmartTags("DataBase"))) Then
Set colNodes= xmlDoc.selectSingleNode("root")
For Each objectNode In colNodes.childNodes
lfd_Nummer = lfd_Nummer + 1
SmartTags("Werkzeug_" & lfd_Nummer) = objectNode.getAttribute("Nummer")
Next
End If
Set xmlDoc = Nothing
End Sub