|
Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
Turbo Delphi für Win32
|
Re: alles zwischen <body> und </body> kopieren
8. Mai 2004, 19:07
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ß.
|