Delphi-Quellcode:
var
a, e: Integer;
begin
a := Pos('<body>', Edit1.Text);
e := Pos('</body>', Edit1.Text);
Memo2.Text := Copy(Edit1.Text, a,e-a);
end;
in Memo2 hast du dann alles zwischen body und body drinnen (inclusive den body's)
und von Edit1 wird der Quelltext genommen...
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian