Problem mit Funktion - Knoten suchen in XML

[Grolle]

Hallo,

im Moment lese ich es ja nicht nur aus, sondern baue es auf. Ich vermute,
dass da irgendwo der Fehler liegt. Im Prinzip soll es so funktionieren:
Knoten erstellen, falls Unterknoten mit Text "xyz" existiert weiter,
wenn nicht Unterknoten erzeugen.

Viele Grüße ...

[marabu]

Hallo Stefan,

Textknoten mit einem bestimmten Inhalt kannst du so suchen:

Delphi-Quellcode:

var
  i: Integer;
  nl: IDOMNodeList;
begin
  with XMLDocument.DOMDocument as IDOMNodeSelect do
    nl := selectNodes('//*[text() = "SuchText"]');
  for i := 0 to Pred(nl.length) do
    with nl[i] as IDOMNodeEx do
      ShowMessage(XML);
end;

Freundliche Grüße

[Grolle]

Hallo,

danke für eure Antworten. Habe jetzt die Lösung für mich gefunden:

Delphi-Quellcode:

  function searchNodes(nx : IXMLNode; match : widestring) : boolean;
  var
  x : integer;
  begin
    result := false;
    for x := 0 to nx.ChildNodes.Count - 1 do
    begin
      if (nx.ChildNodes[x].IsTextElement) and (nx.ChildNodes[x].NodeValue = match) then
        result := true;
    end;
  end;

@Marabu
ich nehme an deine Lösung verwendet xpath und ist somit noch schneller? Muss ich mir nochmal
genauer ansehen!

Viele Grüße ...

[DeddyH]

Wenn Du nach der Result-Zuweisung noch mit break aus der Schleife springst, ist Deine Variante vermutlich auch schneller. Willst Du break vermeiden, musst Du eine andere Schleife verwenden.