In XML-Dateien suchen

[mfs]

Hallo zusammen,
könnte mir bitte jamand einen Tipp geben, wie ich am besten eine XML-Datei bearbeiten soll?
Und zwar,
ich will beispielsweise folgende XML-Datei öffnen und nach der "laenge" des Attributs "Strasse"
fragen (Ergebnis muss 40 sein). Soll dabei am besten jede einzelne Zeile in einer Liste/Stringliste/Array
gespeichert werden und anschliessen die Liste "Index für Index" durchgesucht werden?
Oder wie soll ich am besten da vorgehen? Und gibt es überhaupt ein bestimmtes Verfahren um in XML-Dateien zu suchen als in einer normalen txt-Datei?

<kategorien>
<Hauptdaten>
<primarykey typ=string position=1 laenge=20 pflicht>Probandennr.</primarykey>
<anrede typ=singlechoice position=2 choices="Herr|Frau|Firma">Anrede</anrede>
<title typ=string position=3 laenge=20>Title</title>
<vorname typ=string position=4 laenge=40 pflicht>Vorname</vorname>
<name typ=string position=5 laenge=40>Name</name>
<strasse typ=string position=6 laenge=40>Strasse</strasse>
<plz_ort typ=string position=7 laenge=50>PLZ Ort</plz_ort>
<geschlecht typ=singlechoice position=8 choices="M|W" pflicht>Geschlecht</geburtsdatum>
<geburtsdatum typ=string position=9 laenge=10>Geburtsdatum</plz_ort>
</Hauptdaten>
<Berufstätigkeit>
<arbeitslos typ=singlechoice position=1 choices="Ja|Nein">Arbeitslos?</arbeitslos>
</Berufstätigkeit>
.
.
.
</kategorien>

Danke für jede Hilfe..

[marabu]

Guten Morgen.

Zum Arbeiten mit XML-Dokumenten gibt es zwei Ansätze: Entweder man liest das Dokument vollständig ein und arbeitet mit einer internen Instanz (DOM, document object model) oder, wenn das Dokument zu groß ist oder sequentiell verarbeitet werden kann, man verarbeitet es mit einem sequentiellen Parser (SAX, Simple API for XML).

Ich denke du wirst für's Erste mit DOM ganz gut fahren:

Delphi-Quellcode:

uses
  XMLIntf,
  XMLDoc,
  XMLDom,
  Variants;

var
  doc: IXMLDocument;
  nl: IDOMNodeList;
  i, iLength: Integer;
  aValue, xPath: String;

begin
  fn := 'C:\test.xml';
  doc := LoadXMLDcoument(fn);
  xPath := '//strasse'; // finde strasse - egal auf welcher Ebene
  with doc.DOMDocument as IDOMNodeSelect do
    nl := SelectNodes(ePath);
  for i := 0 to Pred(nl.length) do
    with nl.item[i] as IDOMElement do
    begin
      aValue := VarToStr(getAttribute('laenge'));
      if not TryStrToInt(aValue, iLength) or (iLength <> 40) then
        setAttribute('laenge', '40');
    end;
  fn := ChangeFileExt(fn, '.out.xml');
  doc.SaveToFile(fn);
end;

Getippt und nicht getestet.

Freundliche Grüße vom marabu