Wert in XML finden?

[Klaus01]

.. ich denke kannst Du schon da hineinschreiben - nur
Wie willst Du die Bezüge zum Dr. zu den Praktikanten hineinbringen?

Da fehlt meiner Meinung nach ein Tag bei den Praktikaten - der darauf hindeutet wer für ihn/sie zuständig/verantwortlich ist.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

.. ich denke kannst Du schon da hineinschreiben - nur
Wie willst Du die Bezüge zum Dr. zu den Praktikanten hineinbringen?

Da fehlt meiner Meinung nach ein Tag bei den Praktikaten - der darauf hindeutet wer für ihn/sie zuständig/verantwortlich ist.

Grüße
Klaus

Ja, da gibt es entsprechende Tags dafür, ich habe sie nur weggelassen, da sonst mein XML-Beispiel zu lange wird. Hast Du vielleicht einen Tipp für mich wie das gehen könnte? Also erst für die Tags Anrede, Vor- u. Nachname sowie Alter, den Rest verarbeite ich selber wenn ich mal die Logik verstanden habe.

[Klaus01]

.. nun da ich Deine XML Library nicht kenne..

Im Prinzip so:
Du erstellst Dir einen neuen Knoten <Personen> diese fügst Du weiter Unterknoten hinzu.
Den <Personen>-Knoten kannst Du dann dem Knoten <Daten> hinzufügen.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

.. nun da ich Deine XML Library nicht kenne..

Im Prinzip so:
Du erstellst Dir einen neuen Knoten <Personen> diese fügst Du weiter Unterknoten hinzu.
Den <Personen>-Knoten kannst Du dann dem Knoten <Daten> hinzufügen.

Grüße
Klaus

Ja, den ersten Teil habe ich geschafft, siehe Code. Wie kann ich jetzt am besten den <Personen>-Knoten dem Knoten <Daten> hinfügen? Gibt es vielleicht irgendwo Beispiele?

Delphi-Quellcode:

    Doc := TXMLDocument.Create;
    RootNode := Doc.CreateElement('Personen');
    Doc.Appendchild(RootNode);

    RootNode:= Doc.DocumentElement;

    ParentNode := Doc.CreateElement('Anrede');
    VarElemen := Doc.CreateTextNode('Herr');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Vorname');
    VarElemen := Doc.CreateTextNode('Michael');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Nachname');
    VarElemen := Doc.CreateTextNode('Lücker');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Alter');
    VarElemen := Doc.CreateTextNode('19');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    WriteXMLFile(Doc, 'file.xml');

[LPascal]

Habe noch das hier gefunden:

Delphi-Quellcode:

NovoNo := XMLDoc.CreateElement('item');
TDOMElement(NovoNo).SetAttribute('nome', 'Item');
TDOMElement(NovoNo).SetAttribute('arquivo', 'Arquivo');
XMLDoc.DocumentElement.ChildNodes.Item[Posicao].AppendChild(NovoNo);

Die Frage ist nur, an welche Stelle (Item[Posicao]) setze ich meinen <Personen>-Knoten ein?

[Klaus01]

vielleicht so:

Delphi-Quellcode:

 DatenNode := Doc.DocumentElement.FindNode('Daten');
 DatenNode.AppendChild(<neuer PersonenKnoten>);

Grüße
Klaus

[LPascal]

Ok... müsste also so gehen, aber irgendwie mache ich noch was falsch, und ich verstehe nicht was.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Doc: TXMLDocument;
  RootNode, ParentNode, DatenNode, VarElemen: TDOMNode;
begin
  try
    ReadXMLFile(Doc, 'Muster.xml');

    //Doc := TXMLDocument.Create;
    RootNode := Doc.CreateElement('Personen');
    Doc.Appendchild(RootNode);

    RootNode:= Doc.DocumentElement;

    ParentNode := Doc.CreateElement('Anrede');
    VarElemen := Doc.CreateTextNode('Herr');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Vorname');
    VarElemen := Doc.CreateTextNode('Michael');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Nachname');
    VarElemen := Doc.CreateTextNode('Lücker');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Alter');
    VarElemen := Doc.CreateTextNode('19');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);


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


    WriteXMLFile(Doc, 'MusterNeu.xml');
  finally
    Doc.Free;
  end;
end;