Einzelnen Beitrag anzeigen

news2swen

Registriert seit: 7. Nov 2008
36 Beiträge
 
Delphi XE4 Enterprise
 
#1

XML geschachteltes selectNodes liefert falsches Ergebnis zurück

  Alt 28. Mär 2017, 09:23
Hallo zusammen

irgendwie komme ich nicht weiter und weiß nicht, wo mein Fehler liegt.
Ich habe eine XML-Datei:
Code:
<?xml version="1.0" encoding="utf-8"?>
<STL date="2017-02-24">
   <Ebene0 id="id4" primaryRef="id7">
      <Ebene1 id="id7">
         <Ebene2 id="id6">
            <Ebene3 title="A" value="0815"/>
            <Ebene3 title="B" value="747"/>
         </Ebene2>
         <Ebene2 id="id8" type="ADD">
            <Ebene3 title="NO" value="-"/>
            <Ebene3 title="AM" value="-"/>
         </Ebene2>
      </Ebene1>
      <Ebene1 id="id11" parentRef="id7">
         <Ebene2 id="id10">
            <Ebene3 title="A" value="0819"/>
            <Ebene3 title="B" value="A.001"/>
         </Ebene2>
         <Ebene2 id="id12" type="ADD">
            <Ebene3 title="NO" value="25"/>
            <Ebene3 title="AM" value="40"/>
         </Ebene2>
      </Ebene1>
      <Ebene1 id="id71" parentRef="id8">
         <Ebene2 id="id78">
            <Ebene3 title="A" value="0816"/>
            <Ebene3 title="B" value="A.001"/>
         </Ebene2>
         <Ebene2 id="id79" type="ADD">
            <Ebene3 title="NO" value="8825"/>
            <Ebene3 title="AM" value="4054"/>
         </Ebene2>
      </Ebene1>
      <Ebene1 id="id81" parentRef="id7">
         <Ebene2 id="id89">
            <Ebene3 title="A" value="0817"/>
            <Ebene3 title="B" value="A.005"/>
         </Ebene2>
         <Ebene2 id="id99" type="ADD">
            <Ebene3 title="NO" value="2"/>
            <Ebene3 title="AM" value="4"/>
         </Ebene2>
      </Ebene1>
      <Ebene1 id="id99" parentRef="id7">
         <Ebene2 id="id100">
            <Ebene3 title="A" value="0818"/>
            <Ebene3 title="B" value="A.002"/>
         </Ebene2>
         <Ebene2 id="id112" type="ADD">
            <Ebene3 title="NO" value="125"/>
            <Ebene3 title="AM" value="140"/>
         </Ebene2>
      </Ebene1>
   </Ebene0>
</STL>
Aus dieser hole ich mir mittels node.selectNodes('//Ebene1[@parentRef='id7']) alle Knoten der Ebene1, welche mich interessieren in eine Nodelist.
Nun möchte ich für jeden einzelnen Knoten dieser Liste bestimmte Attribute der Ebene3 abfragen. Wenn ich dies mit selectSingleNode('//Ebene2/Ebene3[@title=''A'']') versuche, erhalte ich für alle selektierten Knoten (in dem Falle 3) immer den gleichen Wert zurück. Das ist schon verwirrend genug, aber ganz mysteriös ist, dass der zurückgelieferte Knoten gar nicht Teil der in Nodelist befindlichen Elemente ist, sondern der erste in der XML vorkommende.

Hier mein code mit dem ich das versuche:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDoc: DOMDocument;
  Node,subnode1: IXMLDOMNode;
  nodelist: IXMLDOMNodeList;

  sPrimary : string;
  i : integer;
begin
    Memo1.Clear;
    XMLDoc := CoDOMDocument.Create;

    xmlDoc.Load('C:\Temp\test.xml');
    // Knoten auswählen
    Node:= XMLDoc.selectSingleNode('/STL/Ebene0') as IXMLDOMElement;

    if Assigned(Node) then
    begin
        // ermitteln der ID, um die entsprechenden Unterknoten zu selektieren
        sPrimary := Node.attributes.getNamedItem('primaryRef').text;
        nodelist := node.selectNodes('//Ebene1[@parentRef=''' + sPrimary + ''']');

        // für alle Knoten, welche diese ID in parentRef haben, die Daten
        // der Ebene3 mit entsprechendem Attribut ermitteln
        for i := 0 to nodelist.length-1 do
        begin
            subnode1:= nodelist.item[i].selectSingleNode('//Ebene2/Ebene3[@title=''A'']');
            memo1.Lines.Add(subnode1.attributes.getNamedItem('value').text);
            subnode1:= nodelist.item[i].selectSingleNode('//Ebene2/Ebene3[@title=''NO'']');
            memo1.Lines.Add(subnode1.attributes.getNamedItem('value').text);
        end;
    end;

end;
Wo liegt mein Fehler? Ich hoffe ihr habt eine Idee

VG
Swen
Angehängte Dateien
Dateityp: xml test.xml (1,5 KB, 1x aufgerufen)
Swen
  Mit Zitat antworten Zitat