hi
ich hab mittlerweile die function MatchesMask gefunden und mir folgende lösung zum löschen von
HTML-Tags gebastelt:
Delphi-Quellcode:
function TForm1.DeleteHTMLTags(Code: String):String;
var i, j:Integer;
begin
i:=1;
while i<>0 do //Wenn PosEx nix mehr findet...
begin
j:=PosEx('>',Code,i+1);
if j>0 then
if MatchesMask(copy(Code,i,j-i+1),'<*>') then Delete(Code,i,j-i+1);
i:=PosEx('<',Code,i);
end;
Result:=Code;
end;
nun die frage: wie schaffe ich es dass er zuerst die script-Tags löscht?