Delete all instance of variable substring between tags in Delphi

Question

I\'m extracting readable text from HTML into a string and I need to remove the existing text between the tags. What would be the

Answer 1

Try something like this:

function RemoveIEScripts(const s: string): string; 
var 
  I, J: Integer; 
begin 
  Result := s; 
  I := 1;
  repeat
    I := PosEx('', Result, I+4); // 4 = Length('')
  until False;
end;