Mit readln nur bestimmte Textstelle auslesen

[Deep-Sea]

Wäre es nicht einfacher, die (X)HTML-Datei mit Hilfe eines XML-Parsers zu durchsuchen?

[implementation]

Zitat von Deep-Sea:

Wäre es nicht einfacher, die (X)HTML-Datei mit Hilfe eines XML-Parsers zu durchsuchen?

Also wenn dann wohl einen spezialisierten HTML-Parser, sonst wirst du Probleme mit <br> usw. kriegen, falls es kein echtes XHTML ist ...

[p80286]

Einspruch Euer Ehren, wenn es wirklich nur um 3 oder 4 Zeilen, die ganz klar identifizierbar sind, geht, ist ein Parser nur Overkill.

Ich würde allerdings TStringlist verwenden, da, wenn ich mich recht erinnere, readln nur mit shortstrings umgehen kann.

Gruß
K-H

[hamptoncourt]

Ja, vielleicht, wir sollen das allerdings für die Uni auf diese Weise lösen ...

Mit Pos()???? Wie mache ich das??? Das Prinzip kenne ich noch gar nicht ...

[DeddyH]

Pos
Ist das denn so schwer?

[hamptoncourt]

Naja, für jemanden, für den das noch neuland ist, ist es schon etwas komplizierter *lol*

Ich denke, ich verstehe, wie das mit dem TStringList und dem Pos() funktionieren soll. Aber irgendwie ist mir nicht klar, wie ich die Anweisung geben kann, dass er in der Zeile mit H1 weiter ließt bis zum >-Zeichen und dann den Text ein ließt ...

[DeddyH]

Du ermittelst mit Pos die Position des Tags (also H1 in Deinem Fall). Nun gehst Du mit PosEx zum nächsten schließenden Tag und ermittelst wieder mit PosEx die Position des nächsten öffnenden. Alles dazwischen kopierst Du nun.

[hamptoncourt]

naja, ich werde hier vermutlich gleich gesteinigt, geteert und gefedert, aber irgendwie will das nicht so recht klappen ...

Habe im Forum ein paar Beispiele zu dem gefunden und versucht, mich daran zu orientieren (dachte, wenn es bei denen klappt, dann vielleicht auch bei mir) ... aber es klappt natürlich nicht ...

Delphi-Quellcode:

Pos1 := pos('"H1">',s);
if Pos1 <>0 Then
begin
Pos2 := PosEx('>', s, Pos1 + 1);
if Pos2 <> 0 Then
begin
Pos3 := PosEx('<',s,Pos2 + 1);
if Pos3<>0 Then
begin
n := Pos3-Pos2;
s2 := copy(s, Pos2, length(n));
end;

Vermutlich bin ich auf nem komplett falschen tripp :-/ Aber der sagt auch Identifire not found "PosEx" ...

[Namenloser]

Hallo, PosEx befindet sich meines Wissens nach in der Unit strutils, die musst du also oben unter uses hinzufügen.

Außerdem: Bist du sicher, dass das H1 in doppelten Anführungszeichen eingeschlossen ist? Eigentlich heißt es <H1> und nicht <"H1"> .

Und rücke deinen Code ein, sonst wirst du schnell die Übersicht verlieren.