Parse XML-Datei mit VBA

Ich habe eine XML-Datei mit einer Struktur ähnlich zu diesem:

<egh_eval>
<eval_set>
    <eval_id>FLOAT</eval_id>
    <eval_d>
        <height>INT</height>
        <weight>INT</weight>
    </eval_d>
    <eval_e>
        <height>INT</height>
        <weight>INT</weight>
    </eval_e>
    <eval_cred>
        <credit>FLOAT</credit>
    </eval_cred>
</eval_set>

Muss ich analysieren, die komplette Datei und legen Sie es in eine Tabelle. (Hinweis: eval_d und eval_e tatsächlich haben mehr als hundert Parametern). Ich habe versucht, mit MSXML2 aber ich stecken, wenn ich versuche, analysieren der Datei. Mithilfe der Antworten auf Wie pase XML in VBA und Analysieren von XML in VBA ich war in der Lage, es zu erhalten :

Dim fSuccess As Boolean
Dim oDoc As MSXML2.DOMDocument
Dim oRoot As MSXML2.IXMLDOMNode ' Level 0 egh_eval
Dim oChild As MSXML2.IXMLDOMNode ' Level 1 eval_set
Dim oChildren As MSXML2.IXMLDOMNode ' Level 2 eval_id, eval_d, eval_e, eval_cred


Dim domList As MSXML2.IXMLDOMNodeList

Set oDoc = New MSXML2.DOMDocument
oDoc.async = False
oDoc.validateOnParse = False

fSuccess = oDoc.Load(Application.CurrentProject.Path & "\file.xml")

Set oRoot = oDoc.documentElement
Set oChild = oRoot.childNodes(0)
Set oChildren = oChild.childNodes(0)

For i = 0 To oChild.childNodes.length - 1
    For y = 0 To oChildren.childNodes.length - 1
        MsgBox oChildren.nodeName & " : " & oChildren.nodeTypedValue
        oChildren.childNodes.nextNode
    Next
    oChild.childNodes.nextNode
Next

Jedoch, anstatt mir die richtigen Werte, es gibt mir die Schwimmer in eval_id 4 mal...

Dank !

EDIT: ich bin mit Microsoft Access 2002 SP3

Welche version von MS Access sind Sie mit ( msdn.microsoft.com/en-us/library/ff823157.aspx ) ?
Ich bin mit microsoft access 2002 SP3. Ich habe versucht, die importXML-Methode, allerdings I wirklich mochte, wie es wäre, eine separate Tabelle für jeden meiner level-2-Daten. Alle Daten werden in derselben Tabelle. Auch ich habe zur Kontrolle die Namen der Spalten, in denen die Daten geht, die irgendwann in der Zukunft.
Können Sie zeigen die erwartete Ausgabe?

InformationsquelleAutor Estarius | 2012-07-16

  1. 5

    Ihre Schleife ist alles falsch. Verwenden Sie nicht eine gezählte Schleife. Es ist For Each denen wird genau das tun, was Sie brauchen, und es ist sehr viel besser lesbar, auch.

    Dim egh_eval As MSXML2.IXMLDOMNode
Dim eval_set As MSXML2.IXMLDOMNode
Dim eval_prop As MSXML2.IXMLDOMNode

Set egh_eval = oDoc.documentElement.childNodes(0)

For Each eval_set In egh_eval.childNodes
  If eval_set.nodeType = NODE_ELEMENT Then
    For Each eval_prop In eval_set.childNodes
      If eval_prop.nodeType = NODE_ELEMENT Then
        MsgBox eval_prop.nodeName & " : " & eval_prop.childNodes.length
      End If
    Next eval_prop
  End If
Next eval_set

    Wenn Sie childNodes müssen Sie prüfen, die nodeType Eigenschaft. Kommentare, text-Knoten und so weiter werden alle in der Liste der Kind-Knoten, nicht nur element-Knoten.

    Ist es wahrscheinlich eine gute Idee, sich in die Verwendung von XPath-wählen Sie Ihre Elemente. Sie tun dies mit DOM-Methoden sind fehleranfällig und umständlich. Lesen Sie auf IXMLDOMNode::selectNodes und IXMLDOMNode::selectSingleNode.

    For Each eval_set In oDoc.selectNodes("/egh_eval/eval_set")
  Set eval_id = eval_set.selectSingleNode("eval_id")

  ' always check for empty search result!
  If Not eval_id Is Nothing Then
    MsgBox eval_id.text
    ' ...
  End If
Next eval_set

    Auch auf eine Allgemeine Anmerkung. Diese:

    fSuccess = oDoc.Load(Application.CurrentProject.Path & "\file.xml")

    ist eigentlich beides nicht nötig und eine schlechte Idee, da Sie nie scheinen, überprüfen Sie den Wert der fSuccess). Besser:

    Sub LoadAndProcessXml(path As String)
  Dim oDoc As MSXML2.DOMDocument

  If oDoc.Load(path) Then
    ProcessXmlFile oDoc
  Else
    ' error handling
  End If
End Sub

Sub ProcessXml(doc As MSXML2.DOMDocument) 
  ' Process the contents like shown above
End Sub

    Erstellen mehrerer subs/Funktionen hat mehrere Vorteile

    • Macht Fehler-handling wesentlich erleichtern, da jede Funktion hat nur einen Zweck.
    • Sie brauchen weniger Variablen, da können Sie definieren einige Variablen in der Funktion Argumente
    • Code wartbarer, da es mehr offensichtlich, was 3 kurze Funktionen tun als das, was eine lange Funktion hat.
    Die Lösung scheint zu funktionieren, aber es liest nur eine eval_set und das erste element wird nicht angezeigt (eval_id). Es zeigt ": 1156687.44" statt "eval_id : 1156687.44". Ersetzt habe ich den 2. Teil der Zeichenfolge .NodeTypedValue, um den Wert des Elements
    nur verwenden, wenn Sie liefern ein XML-Schema definiert die Datentypen. Verwenden Sie nicht, wenn Sie kein schema. Bevor wir gehen, bitte bestätigen Sie, dass Sie nicht haben On Error Goto 0 in Kraft.
    Ich glaube nicht, haben eine On Error Goto-aber... Was sollte ich verwenden, anstatt nodeTypedValue ? Weil die .Länge der code ist nicht wirklich die Informationen, die ich Suche, da es nur wieder gut ... die Länge des Wertes
    Gut. - Ich würde empfehlen, mit .text. Die .length ist natürlich die Anzahl der Kind-Knoten und gemeint war, um zu dienen als Platzhalter für was auch immer du wirklich machen wollte. Es ist eine gute Idee, legen Sie einen Haltepunkt im code und durch den Schritt Zeile für Zeile im debugger. Überprüfen Sie alle Objekte, Ihre Eigenschaften, und so weiter. Auch, Sie haben eingeschaltet, um die XPath-oder sind Sie immer noch das hantieren mit childNodes?
    Ich bin immer noch mit den childNodes, wenn man bedenkt es gibt Hunderte von Parametern und XPath zu verlangen scheint mir zu geben jedes Attribut... Es wäre toll, um den realen Tisch, aber sehr schwer zu bekommen einfach alle Daten von der XML-Datei in eine Tabelle

    InformationsquelleAutor Tomalak

Schreibe einen Kommentar