XML auslesen!?

[f.r.e.s.h.d]

Wie lese ich einen Eintrag in einer XML-Datei aus.

Z.B.:

<rpt:Name><rpt:VorName>MeinenNamen</rpt:VorName></rpt:Name>

Wie lese ich hier z.B. MeinenNamen aus???

[Mirilin]

Delphi-Quellcode:

function TMainForm.ExtractName(aInputString: String): String;
const
  name_start = '<rpt:VorName>';
  name_end   = '</rpt:VorName>';
var
  i_start, i_end : Integer;
begin
  Result  := '';
  i_start := Pos(name_start,aInputString);
  if i_start > 0 then
  begin
    i_start := i_Start+length(name_start);
    i_end := Pos(name_end,aInputString);
    if i_end > i_start then
    begin
      Result := copy(aInputString,i_start,i_end-i_start);
    end;
  end;
end;

procedure TMainForm.ButtonAuslesenClick(Sender: TObject);
begin
  LabelOut.Caption := ExtractName(EditIn.Text);
end;

so etwa in der Art...

[Luckie]

Ui. Dann kann er ja gleich Textdateien nehmen. Für XML-Dateien gibt es Komponenten. Sind, glaube ich, bei den höheren Delphi-Versionen auch dabei oder so.

[Mirilin]

@Luckie : Ui?
Ist doch (Plus-Minus) eine schöne Funktion!

Komponenten findest Du wohl hier wenn Du sie nicht hast

[MathiasSimmack]

Nein, das ist keine schöne Funktion. Ich würde ebenfalls die Komponenten (ab Delphi 6) bzw. die MS-XML-Typbibliothek (für Delphi bis 5) vorschlagen. Mit denen lässt sich eindeutig einfacher arbeiten.

Beispiele für XML gibt´s hier genug.

[Hansa]

Zitat von Luckie:

Dann kann er ja gleich Textdateien nehmen...

Jetzt muß ich doch mal dumm nachhaken : Worin besteht der Unterschied von XML-Dateien zu einer Textdatei ? Ist da irgendwo doch was binär codiert?

[Luckie]

Ist auch nur ASCII-Text aber mit einem bestimmten Format. Vergleichbar mie HTML, aber doch auch wiede rganz anders. Kuck dir mal eine XML-Datei mit Notepad an.

[Hansa]

Ansonsten hätte ich auch mein XML-Programm verschrotten können. Da stellt sich noch die Frage, wofür Komponenten ? Einen Text wird man doch noch selber bearbeiten können ?

[MathiasSimmack]

@Luckie: Ein bestimmtes Format gibt es bei XML nicht. Eher im Gegenteil, du hast die Freiheit, dir eigene Tags auszudenken. Das einzige, was wichtig ist: das XML-Dokument muss "well formed" (wohlgeformt) sein.

@Hansa: Ein XML-Dokument muss aber nun nicht zwangsläufig so aussehen:

Code:

<rpt:Name><rpt:VorName>MeinenNamen</rpt:VorName></rpt:Name>

Es wäre ebenso möglich, dies auf mehrere Zeilen auszudehnen:

Code:

<rpt:Name>
  <rpt:VorName>
    MeinenNamen
  </rpt:VorName>
</rpt:Name>

Willst du die XML-Datei mit normalen Befehlen (AssignFile, ReadLn, usw.) bearbeiten, dann musst du das berücksichtigen. Die Idee von Mirilin würde hier nicht mehr korrekt arbeiten, würde man die XML-Datei zeilenweise mit ReadLn auslesen.

Mit einem XML-Parser ist es unwichtig, ob Zeilenumbrüche vorhanden sind oder nicht. Und man kommt auch relativ schnell an die gesuchten Infos ran:

Delphi-Quellcode:

xmldoc := CoDOMDocument.Create;
if(xmldoc <> nil) then begin
  // ggf. Parser-Anweisungen
  // sozusagen "do's and dont's" :o)
  { ... }

  if(xmldoc.loadXML('Dateiname')) then begin
    node := xmldoc.selectSingleNode('<rpt:Name>/<rpt:VorName>');
    ShowMessage(node.xml);
  end;
end;

(ohne Gewähr, weil: aus´m Kopf)

Ähnlich einfach ließe sich die Datei bzw. das geladene Dokument nun erweitern, der Name könnte geändert werden, usw. - und dann kann das geänderte Dokument neu gespeichert werden.

[Touchdown]

Eine XMl-Komponente wird intern sicherlich Stringverarbeitung machen, nur braucht man sich nicht darum zu kümmern und kann die Vorteile dieser Komponenten nutzen.