Parsen mit TXMLDocument

Hallo,

ich habe mal eine Frage: Wie könnte ich folgenden XML Quelltext so parsen, dass ich folgende Stellen auslesen kann (über eine Schleife z.B.)...

Auszulesende Stellen:

<concept>ABC</concept>
<transac type="create">User1</transac>
<date>2003-07-14T13:05:29</date>
<language type="de" lang="DE"/>
<term>Haus</term>
<descrip type="status">bevorzugt</descrip>
aus
<transacGrp>
<transac type="create">DF</transac>
<date>2007-01-01T13:54:03</date>
<transacGrp>
<transac type="change">DF</transac>
<date>2008-08-01T13:54:03</date>
</transacGrp>

zusammenfalten · markieren

XML-Code:

			<?xml version="1.0" encoding="UTF-16"?>

<mtf>

   <conceptGrp>

      <concept>ABC</concept>

      <transacGrp>

         <transac type="create">User1</transac>

         <date>2003-07-14T13:05:29</date>

      </transacGrp>

      <transacGrp>

         <transac type="change">User2</transac>

         <date>2005-01-20T18:03:01</date>

      </transacGrp>

      <languageGrp>

         <language type="de" lang="DE"/>

         <termGrp>

            <term>Haus</term>

            <descripGrp>

               <descrip type="status">bevorzugt</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="FR"/>

         <termGrp>

            <term>Maison</term>

            <descripGrp>

               <descrip type="status">preferrer</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="EN"/>

         <termGrp>

            <term>House</term>

            <descripGrp>

               <descrip type="status">preferred</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

   </conceptGrp>

   <conceptGrp>

      <concept>ABC</concept>

      <transacGrp>

         <transac type="create">User1</transac>

         <date>2003-07-14T13:05:29</date>

      </transacGrp>

      <transacGrp>

         <transac type="change">User2</transac>

         <date>2005-01-20T18:03:01</date>

      </transacGrp>

      <languageGrp>

         <language type="de" lang="DE"/>

         <termGrp>

            <term>Haus</term>

            <descripGrp>

               <descrip type="status">bevorzugt</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="FR"/>

         <termGrp>

            <term>Maison</term>

            <descripGrp>

               <descrip type="status">preferrer</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="EN"/>

         <termGrp>

            <term>House</term>

            <descripGrp>

               <descrip type="status">preferred</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

   </conceptGrp>

   <conceptGrp>

      <concept>ABC</concept>

      <transacGrp>

         <transac type="create">User1</transac>

         <date>2003-07-14T13:05:29</date>

      </transacGrp>

      <transacGrp>

         <transac type="change">User2</transac>

         <date>2005-01-20T18:03:01</date>

      </transacGrp>

      <languageGrp>

         <language type="de" lang="DE"/>

         <termGrp>

            <term>Haus</term>

            <descripGrp>

               <descrip type="status">bevorzugt</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="FR"/>

         <termGrp>

            <term>Maison</term>

            <descripGrp>

               <descrip type="status">preferrer</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="EN"/>

         <termGrp>

            <term>House</term>

            <descripGrp>

               <descrip type="status">preferred</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

   </conceptGrp>

   <conceptGrp>

      <concept>ABC</concept>

      <transacGrp>

         <transac type="create">User1</transac>

         <date>2003-07-14T13:05:29</date>

      </transacGrp>

      <transacGrp>

         <transac type="change">User2</transac>

         <date>2005-01-20T18:03:01</date>

      </transacGrp>

      <languageGrp>

         <language type="de" lang="DE"/>

         <termGrp>

            <term>Haus</term>

            <descripGrp>

               <descrip type="status">bevorzugt</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="FR"/>

         <termGrp>

            <term>Maison</term>

            <descripGrp>

               <descrip type="status">preferrer</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

      <languageGrp>

         <language type="de" lang="EN"/>

         <termGrp>

            <term>House</term>

            <descripGrp>

               <descrip type="status">preferred</descrip>

            </descripGrp>

            <descripGrp>

               <descrip type="source">XY</descrip>

            </descripGrp>

            <transacGrp>

               <transac type="create">DF</transac>

               <date>2007-01-01T13:54:03</date>

            </transacGrp>

            <transacGrp>

               <transac type="change">DF</transac>

               <date>2008-08-01T13:54:03</date>

            </transacGrp>

         </termGrp>

      </languageGrp>

      </languageGrp>

   </conceptGrp>

</mtf>

Die roten Stellen würde ich gerne für eine beliebig große XML-Datei über TXMLDocument auslesen können... Kann mir da einer bitte helfen?

Vielen Dank vorab und schöne Feiertage...

**sirius**

Wenn du in deinem Delphi eine neue Unit erstellst mit dem XML-DataBinder, dann bastelt dir Delphi eine Klasse zusammen, mit der du ganz leicht deine XML-Datei ausliest.

**Oreaden**

Zitat von sirius:

Wenn du in deinem Delphi eine neue Unit erstellst mit dem XML-DataBinder, dann bastelt dir Delphi eine Klasse zusammen, mit der du ganz leicht deine XML-Datei ausliest.

Falls das Orakel recht haben möge, gibts dieses Tool erst ab der Enterprise Version, nicht in der Professional.

Schöne Grüße
OREADEN

**Namenloser**

Zitat von Oreaden:

Zitat von sirius:

Wenn du in deinem Delphi eine neue Unit erstellst mit dem XML-DataBinder, dann bastelt dir Delphi eine Klasse zusammen, mit der du ganz leicht deine XML-Datei ausliest.

Falls das Orakel recht haben möge, gibts dieses Tool erst ab der Enterprise Version, nicht in der Professional.

Schöne Grüße
OREADEN

TurboDelphi hat es. Zur Not könnte man also das benutzen, wenn man sonst eine Professional-Version einsetzt.

Hallo,

Hier bei uns steht der DataBinder nicht zur Verfügung und TurboDelphi darf nicht installiert werden... Könnte mir einer bei Benutzung von TXMLDocument helfen...?!

Vielen Dank für Eure Hilfe

Hat evtl einer eine Lösung, die ohne TXMLDocument geht; quasi "zu Fuß" parsen?

**Klaus01**

Zitat von rd3:

Hat evtl einer eine Lösung, die ohne TXMLDocument geht; quasi "zu Fuß" parsen?

Vielleicht kannst Du ja

openXML einsetzen.

Was auch noch etwas für dich sein könnte ist die

XMLlib von Mutze1
Grüße
Klaus

**meolus**

Ich benutze für XML-Dateien bisher diese (sehr) einfache Komponente:

http://www.torry.net/authorsmore.php?id=4366

Das durchaus etwas sinnfreie Beispiel zum Erstellen und Laden von XML-Dateien habe ich mal so runtergeschrieben, es könnte also noch der ein oder andere Fehler drin sein, dass es nicht kompiliert!

zusammenfalten · markieren

Delphi-Quellcode:

			var

  XMLDoc: TgmXML;

  //Write XML

  XMLDoc := TgmXML.Create(self);

  XMLDoc.Nodes.Clear;

  XMLDoc.Nodes.AddOpenTag('list');

  XMLDoc.Nodes.AddOpenTag('item');

  XMLDoc.Nodes.AddLeaf('name').AsString := 'Maier';

  XMLDoc.Nodes.AddLeaf('plz').AsInteger := 12345;

  XMLDoc.Nodes.AddLeaf('ort').AsString := 'Musterhausen';

  XMLDoc.Nodes.AddCloseTag;

  XMLDoc.Nodes.AddOpenTag('item');

  XMLDoc.Nodes.AddLeaf('name').AsString := 'Müller';

  XMLDoc.Nodes.AddLeaf('plz').AsInteger := 2345;

  XMLDoc.Nodes.AddLeaf('ort').AsString := 'Entenbach';

  XMLDoc.Nodes.AddCloseTag;

  XMLDoc.Nodes.AddCloseTag;

  XMLDoc.SaveToFile('file.xml');

  XMLDoc.Free;

  //END of Write XML

  //Read XML

  var

    MyString: string;

    i: Integer;

  XMLDoc := TgmXML.Create(self);

  XMLDoc.Nodes.Clear;

  XMLDoc.LoadFromFile('file.xml');

  if XMLDoc.Nodes.NodeByName['list'] <> nil then begin

    for i := 0 to XMLDoc.Nodes.NodeByName['list'].Children.Count-1 do begin

      with XMLDoc.Nodes.NodeByName['list'].Children.Node[i] do begin

        if Children.NodeByName['name'] <> nil 

        then MyString := Children.NodeByName['name'].AsString;

        if Children.NodeByName['plz'] <> nil 

        then MyString := Children.NodeByName['plz'].AsInteger;

        if Children.NodeByName['ort'] <> nil 

        then MyString := Children.NodeByName['ort'].AsString;

      end;

    end;

  end;

  XMLDoc.Free;

  //END of Read XML

Inhalt der Datei 'file.xml' wäre dann:

markieren

Code:

			<?xml version="1.0"?>

<list>

  <item>

    <name>Maier</name>

    <plz>12345</plz>

    <ort>Musterhausen</ort>

  </item>

  <item>

    <name>Müller</name>

    <plz>2345</plz>

    <ort>Entenbach</ort>

  </item>

</list>

Ein bischen problematisch bei dieser Klasse ist das Codieren der Sonderzeichen in ihre HTML-Entsprechungen. Bin nicht mehr ganz sicher, wie das im Original war, da ich die Klasse immer entsprechend angepasst benutzt habe, aber ich meine mit der Kodierung hatte ich Probleme, weil da " in " umgewandelt wurde (korrekt) aber dann nachträglich noch dieses " in &quot; umgewandelt wurde, was einfach nur falsch ist, aber auch von der Klasse selber nicht mehr korrekt geladen werden kann, da die Reihenfolge der Codierung beim Laden nicht zu der beim Speichern passt.

Daher die dringende Empfehlung, die AsString-Getter und -Setter in der Klasse überarbeiten, also alles raus bis auf nötige Codierung für < und >
oder halt das Codieren vervollständigen und vorallem in entsprechender Reihenfolge, dass sich da nicht solche Abhängigkeiten ergeben

**zeras**

@ meolus

Die Unit ist ganz gut, nur weiß ich nicht, wie man einen Datensatz hinten ans Ende anfügt. Hast Du da eine Idee?

**meolus**

Tut mir Leid zeras, das weiß ich leider auch nicht. Ich habe mal schnell durch die Klasse gescrollt aber nichts spontan direkt passendes dabei entdecken können. Sie scheint wirklich nur zum Laden und am Stück Speichern einer XML-Datei gut zu sein.

In den Projekten, wo ich die Klasse benutzt habe, hatte ich intern immer noch eine oder mehrere andere Datenstrukturen. Diese habe ich dann mit einer eigenen Funktion immer in diesem Schema mit "XMLDoc.Nodes.AddOpenTag('BlaBla'); ... XMLDoc.Nodes.AddCloseTag;" (wie im Beispiel in meinem letzten Post) an einem Stück herunter geschrieben bzw. teilweise auch erst da in diese eine XML-Struktur überführt, so dass mir das ehrlich gesagt bisher noch gar nicht aufgefallen ist.

Parsen mit TXMLDocument

Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Re: Parsen mit TXMLDocument

Forumregeln

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#2 Re: Parsen mit TXMLDocument 30. Dez 2008, 19:54 Wenn du in deinem Delphi eine neue Unit erstellst mit dem XML-DataBinder, dann bastelt dir Delphi eine Klasse zusammen, mit der du ganz leicht deine XML-Datei ausliest. Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

Oreaden Registriert seit: 10. Nov 2008 60 Beiträge	#3 Re: Parsen mit TXMLDocument 30. Dez 2008, 20:07 Zitat von sirius: Wenn du in deinem Delphi eine neue Unit erstellst mit dem XML-DataBinder, dann bastelt dir Delphi eine Klasse zusammen, mit der du ganz leicht deine XML-Datei ausliest. Falls das Orakel recht haben möge, gibts dieses Tool erst ab der Enterprise Version, nicht in der Professional. Schöne Grüße OREADEN
	Zitat

rd3 (Gast) n/a Beiträge	#5 Re: Parsen mit TXMLDocument 2. Jan 2009, 11:25 Hallo, Hier bei uns steht der DataBinder nicht zur Verfügung und TurboDelphi darf nicht installiert werden... Könnte mir einer bei Benutzung von TXMLDocument helfen...?! Vielen Dank für Eure Hilfe
	Zitat

rd3 (Gast) n/a Beiträge	#6 Re: Parsen mit TXMLDocument 2. Jan 2009, 15:45 Hat evtl einer eine Lösung, die ohne TXMLDocument geht; quasi "zu Fuß" parsen?
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.771 Beiträge Delphi 10.4 Sydney	#7 Re: Parsen mit TXMLDocument 2. Jan 2009, 15:47 Zitat von rd3: Hat evtl einer eine Lösung, die ohne TXMLDocument geht; quasi "zu Fuß" parsen? Vielleicht kannst Du ja openXML einsetzen. Was auch noch etwas für dich sein könnte ist die XMLlib von Mutze1 Grüße Klaus Klaus
	Zitat

zeras Registriert seit: 11. Mär 2007 Ort: Saalkreis 1.643 Beiträge Delphi 12 Athens	#9 Re: Parsen mit TXMLDocument 11. Jan 2009, 19:35 @ meolus Die Unit ist ganz gut, nur weiß ich nicht, wie man einen Datensatz hinten ans Ende anfügt. Hast Du da eine Idee? Matthias
	Zitat