Die 46 Zeilen aus Beitrag 14 sollten es dir Wert sein. Sonst schreibe dir selbst was.
Du kannst auch HTML2Txt aus dem Thread nutzen:
Delphi-Quellcode:
function Html2Txt(
html:
string):
string;
var
istag : boolean;
i : Integer;
ch : Char;
temp :
string;
slRes : TStrings;
begin
result := '
';
temp := '
';
istag := false;
for i := 1
to length(
html)
do
begin
ch :=
html[i];
if (ch = '
<')
and (istag = false)
then
begin
istag := true;
continue;
end;
if (ch = '
>')
and (istag = true)
then
begin
istag := false;
continue;
end;
if istag = false
then
temp := temp + ch;
end;
slRes := TStringList.Create;
try
slRes.Text := temp;
for i := 0
to slRes.Count - 1
do
slRes[i] := Trim(slRes[i]);
while slRes.IndexOf('
') <> -1
do
slRes.delete(slRes.IndexOf('
'));
finally
Result := slRes.Text;
slRes.Free;
end;
end;
Aufruf:
Memo1.Text := Html2Txt(Memo1.Text);