Wert in XML finden?

[LPascal]

Hallo zusammen,
bin neu hier und habe gleich diese Frage: also ich habe viele XML-Dateien dieser Art. Gesucht soll nach der Anrede "Dr.", was natürlich an unterschiedlichen Stellen sich befinden kann, oder gar fehlen kann. Ist diese Gefunden - soll sein Alter ausgelesen werden, und das Auslesen des Alters gelingt mir nicht. Könnte mir da jemand auf die Sprünge helfen?

Code:

<PDB>
  <Header>
    <Daten>
      <Personen> 
        <Anrede>Herr</Anrede>
        <Vorname>Otto</Vorname>
        <Nachname>Müller</Nachname>
        <Alter>45</Alter> 
      </Personen>
      <Personen>
        <Anrede>Frau</Anrede>
        <Vorname>Atta</Vorname>
        <Nachname>Schmidt</Nachname>
        <Alter>56</Alter> 
      </Personen>
      <Personen>
        <Anrede>Dr.</Anrede>
        <Vorname>Michael</Vorname>
        <Nachname>Meier</Nachname>
        <Alter>55</Alter> 
      </Personen>
      <Personen>
        <Anrede>Herr</Anrede>
        <Vorname>Gerd</Vorname>
        <Nachname>Schulz</Nachname>
        <Alter>33</Alter> 
      </Personen>
   </Daten>  
  </Header>
</PDB>

Delphi-Quellcode:

    ReadXMLFile(Doc, 'test.XML');
    NList := Doc.GetElementsByTagName('Anrede');

    if Assigned(NList) then
    begin
      for i := 0 to NList.Count - 1 do
      begin
          if NList.Item[i].TextContent = 'Dr.' then
          begin
            // wie hier das Alter von "Dr. Meier" auslesen?    
          end;
      end;
    end;

Vielen herzlichen Dank!

[Klaus01]

.. wieso iterierst Du nicht durch den Tag <Personen> und fragst dann die <Anrede> ab. Ist die Anrede Dr. dann kannst Du auch noch das Alter abfragen.
Grüsse Klaus

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1476056)

.. wieso iterierst Du nicht durch den Tag <Personen> und fragst dann die <Anrede> ab. Ist die Anrede Dr. dann kannst Du auch noch das Alter abfragen.
Grüsse Klaus

Ja, genau! Die Frage ist nur wie frage ich das Alter ab?

[Klaus01]

.. Du itterierst über den Tag <Anrede>

Delphi-Quellcode:

   ReadXMLFile(Doc, 'test.XML');
    NList := Doc.GetElementsByTagName('Personen');

    if Assigned(NList) then
    begin
      for i := 0 to NList.Count - 1 do
      begin
          if NList.Item[i].FindNode('Anrede').TextContent = 'Dr.' then
          begin
            NList.Items[i].FindNode('Alter').TextContent;
          end;
      end;
    end;

Die NList beinhalten alle Node mit dem Tag <Personen>.
In dem Node kannst Du dann Anrede und Alter abfragen.
Ich kenne leider nicht Deine xml Bibliothek - kann Dir daher nicht exakt sagen wie das geht.
Gibts da nicht sowas wie getNodeByName('Anrede') o.ä?

Grüße
Klaus

[LPascal]

Hallo Klaus,

danke Dir! Ich schaue mal nach!

[zeras]

Deine Aufgabenstellung scheint nicht klar. Du schreibst oben, dass du nach Dr. suchst und dann das Alter auslesen möchtest. Daraus deute ich, das, wenn du keinen Dr. findest, das Alter nicht interessant ist. Bei Klaus wird doch nach Dr. gesucht und erst wenn dieser gefunden wurde, dann wurde das Alter ermittelt.
Nach was willst du nun suchen?

[LPascal]

Hallo zusammen,
@zeras Du hast Recht. XML ist noch ein Neuland für mich, daher stand ich auf dem Schlauch.
@Klaus01 Danke Dir, so läuft das also. :thumb:

Die weitere Aufgabenstellung ist, wenn sich in der XML ein Dr. befindet und er über 50 Jahre alt ist, dann werden ihm zwei Praktikanten zugewiesen und dessen Namen in die XML geschrieben. Jetzt muss ich praktisch in die bestehende XML-Datei folgendes reinschreiben:

Code:

<Personen>
  <Anrede>Herr</Anrede>
  <Vorname>Emil</Vorname>
  <Nachname>Schmidt</Nachname>
  <Alter>19</Alter>
</Personen>
<Personen>
  <Anrede>Frau</Anrede>
  <Vorname>Ute</Vorname>
  <Nachname>Boden</Nachname>
  <Alter>20</Alter>
</Personen>

Und da habe ich erstmal keine Ansätze. Kann ich die oben genannten Datensätze einfach in die XML-Datei hineinschreiben, oder muss ich die komplette Datei einlesen, und modifiziert neu schreiben?

[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:

Zitat von Klaus01 (Beitrag 1476096)

.. 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:

Zitat von Klaus01 (Beitrag 1476101)

.. 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? :gruebel: 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;

[Klaus01]

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;

In der letzen Zeile überschreist Du die Adresse des RootNodes.
Mag sein, dass das nicht so sein soll - wie schaut denn Dein Ergebnis aus?

Grüße
Klaus

[LPascal]

Stimmt, das habe ich übersehen. Mein Ergebnis sieht so aus, aber irgendwie werde ich nicht warm damit, irgendwo ist da noch ein Fehler, denn ich nicht sehe.

Delphi-Quellcode:

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

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

    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('Locker');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

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


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


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

[Klaus01]

.. mit Ergebnis meinte ich die erstellt XML Datei.
Werden die Konten zu den falschen Knoten hinzugefügt?

Grüße
Klaus

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1476185)

.. mit Ergebnis meinte ich die erstellt XML Datei.
Werden die Konten zu den falschen Knoten hinzugefügt?

Grüße
Klaus

Dazu kommt es gar nicht, das Prog stürzt ab, mit der Meldung "EDOMHierarchyRequest in Document.Insert.Before".

[Klaus01]

.. wann kommt die Fehlermeldung (bitte mal mit F8 durch den Code gehen)?

Das Tutorial https://wiki.freepascal.org/XML_Tutorial kenst Du wahrscheinlich schon -oder?

Grüße
Klaus

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1476192)

.. wann kommt die Fehlermeldung (bitte mal mit F8 durch den Code gehen)?

Das Tutorial https://wiki.freepascal.org/XML_Tutorial kenst Du wahrscheinlich schon -oder?

Grüße
Klaus

Ja, der Fehler kommt hier schon. Ja... :wall:

Delphi-Quellcode:

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

Das Tutorial kenne ich, da gucke ich auch, bin aber in dem Thema XML noch nicht ganz drin.

[Klaus01]

.. kommentiere doch mal " Doc.Appendchild(RootNode); " aus.

Grüße
Klaus

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1476199)

.. kommentiere doch mal " Doc.Appendchild(RootNode); " aus.

Grüße
Klaus

Ne, bringt nichts... immer der selbe Fehler.

[LPascal]

Ich hab's jetzt so gelöst:

Delphi-Quellcode:

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

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

    ElementNode := Doc.CreateElement('Personen');

    ItemNode:=Doc.CreateElement('Anrede');
    TextNode:=Doc.CreateTextNode('Herr');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    ItemNode:=Doc.CreateElement('Vorname');
    TextNode:=Doc.CreateTextNode('Tim');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    ItemNode:=Doc.CreateElement('Alter');
    TextNode:=Doc.CreateTextNode('19');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    //RootNode.AppendChild(ElementNode);

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

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

Der Nachteil ist nur, dass für den <Personen>-Knoten es keinen <Root>-Knoten gibt, man kann somit nicht mehrere Personen anlegen, des weiteren erscheint die neue Person im <Header>-Knoten statt <Daten>-Konoten.

[LPascal]

Es scheint an dieser Zeile zu scheitern - "Doc.Appendchild(RootNode);"
Das mach wohl den Knoten RootNode zum Root-Knoten im Doc, und das muss bereits vorhanden bzw. besetzt sein, und daher der Fehler.
Kann das sein?

[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

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1476219)

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. :vernupft:

[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]

Delphi-Quellcode:

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:

Zitat von Klaus01 (Beitrag 1476224)

Delphi-Quellcode:

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. :gruebel:
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);

[Klaus01]

Delphi-Quellcode:

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

Wenn Du den Knotennamen angibst?

Grüße
Klaus

[LPascal]

Zitat:

Zitat von Klaus01 (Beitrag 1477207)

Delphi-Quellcode:

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

Wenn Du den Knotennamen angibst?

Grüße
Klaus

Ja, das war auch meine Idee, aber RemoveChild erwartet als Parameter TDOMNode und keinen String.

[Klaus01]

Delphi-Quellcode:

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

Delphi-Quellcode:

DatenNode.RemoveChild.FindNode('Daten');

wie gesagt ich kenne Deine Library nicht.

Grüße
Klaus

[LPascal]

Ich verwende die Standard uses von Lazarus, also XMLRead, XMLWrite und DOM.

[Klaus01]

Zitat:

Zitat von LPascal (Beitrag 1477218)

Ich verwende die Standard uses von Lazarus, also XMLRead, XMLWrite und DOM.

funktionieren die oben beschriebenen Wege nicht.

Ich habe leider kein Lazarus installiert.

Grüße
Klaus

[LPascal]

Leider nicht, habe jetzt auch die Fehlermeldung nicht mehr im Kopf, muss später schauen.

[LPascal]

Die Fehlermeldung heißt:

Code:

main.pas(50,15) Error: Wrong number of parameters specified for call to "RemoveChild"

Hat vielleicht noch jemand eine Idee?

[LPascal]

Ich hab's. :thumb: Die Doku über DOM hat die Klarheit geschaffen. :thumb:
Vielen Dank, vorallem Dir Klaus!