Wert in XML finden?

[LPascal]

Zitat von Klaus01:

Guten Abend,

das Teilmacht was Du ihm sagst

Delphi-Quellcode:

    DatenNode := Doc.DocumentElement.FindNode('Header');
    DatenNode.AppendChild(ElementNode);

Demnach wird der neue <Personen> Knoten an den Header angehängt.
Der gemeinsame Aufhänger für die Personen ist aber der <Daten> Knoten.

Grüße
Klaus

Mit <Daten> stürzt das Programm mit einem Exception-Fehler ab. Ich verstehe jetzt nur Bahnhof.

[Klaus01]

Delphi-Quellcode:

DatenNode := Doc.DocumentElement.FindNode('Header').FindNode('Daten');
DatenNode.AppendChild(ElementNode);

macht das obige einen Unterschied?

Grüße
Klaus

[LPascal]

Das geht? Klasse, jetzt funkt es! Riiiiiesen Dank Dir!
Jetzt aber noch eine Hürde. Ich muss ja zwei Personen einfügen. Wie kann ich das gleiche Element bzw. <Personen>-Konoten noch einmal anlegen, ohne das erste zu überschrieben?

[Klaus01]

ElementNode := Doc.CreateElement('Personen'); erstellt doch bei jedem Aufruf einem neuen Knoten oder?
Damit wird der alte nicht überschrieben.

Ich würde das ganze anfügen in eine Methode mit entsprechenden Parametern auslagern.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

ElementNode := Doc.CreateElement('Personen'); erstellt doch bei jedem Aufruf einem neuen Knoten oder?
Damit wird der alte nicht überschrieben.

Ich würde das ganze anfügen in eine Methode mit entsprechenden Parametern auslagern.

Grüße
Klaus

Ja, ich weiß nicht wieso, aber bei wird wird das überschrieben.
Wahrscheinlich weil ich keinen Root-Knoten habe. Aber wenn ich diesen anlege, dann kann ich mein Konstrukt nicht in die bestehende XML einfügen, da es wohl zu Root-Konflikten kommt.

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Doc: TXMLDocument;
  RootNode, ParentNode, DatenNode, VarElemen, ElementNode, ItemNode, TextNode: TDOMNode;
begin
  try
    ReadXMLFile(Doc, 'Muster.xml');
    // tue etwas mit dem XMLDoc
    WriteXMLFile(Doc, 'MusterNeu2.xml')
  finally
    Doc.Free;
  end;
end;

wenn Du nach diesem Prinzip vorgehst, liest Du aus Muster.xml ein machst Änderungen und speicherst unter MusterNeu2.xml ab.
Dann liest Du beim nächsten ButtonClick wieder Muster.xml ein (da sind keine Änderungen drin) machst wieder Änderungen und speicherst (überschreibst) MusterNeu2.xml. Damit sind die ersten Änderungen weg.

Grüße
Klaus

[LPascal]

Kam jetzt wieder dazu hier weiterzumachen. Und es hat alles super geklappt, noch mal an der Stelle vielen Dank!

Noch eine Frage hätte ich, ich möchte den Knoten <Daten> löschen, versuche ich auch, aber irgendwas mache ich falsch, und sehe nicht was.

Code:

<PDB>
  <Header>
    <Daten>
      <Personen>
        <Anrede>Herr</Anrede>
        <Vorname>Otto</Vorname>
        <Nachname>Müller</Nachname>
        <Alter>45</Alter>
      </Personen>
   </Daten>
  </Header>
</PDB>

Delphi-Quellcode:

    DatenNode := Doc.DocumentElement.FindNode('PDB').FindNode('Header');
    DatenNode.RemoveChild(DatenNode);