Ja, das Ganze mit PosEx() und Copy() zu parsen habe ich gerade begonnen zu implementieren.
Ich suche mit PosEx() jeweils das nächste "[img] in der selben Zeile mehr gibt, lese ich die nächste Zeile ein und kopiere mir den Rest (nach dem [/img]
AssignFile(datei, datei_name);
reset(datei);
while (not eof(datei)) do
begin
Readln(datei, zeile);
offset := 1;
p_img := PosEx('<img', LowerCase(zeile), offset);
if p_img>0 then
begin
p_src := PosEx('src=', LowerCase(zeile), p_img);
if p_src=0 then
begin
zeile_vor := Copy(zeile, p_img, Length(zeile));
ReadLn(datei,zeile);
p_src := PosEx('src=', LowerCase(zeile), 1);
end;
p_urlstart := p_src+5; // Zum " vor der
URL springen
p_urlend := PosEx('"', LowerCase(zeile), p_urlstart+1); // " nach der
URL suchen
end;
[/code]
Geht das mit einem Stream einfacher?
Wenn ja, würde ich mich über ein kleines Beispiel freuen, da ich mit Streams bisher nicht gearbeitet habe.