Ich würde für sowas nicht gleich Regex benutzen (in delphi).
Pseudocode:
Delphi-Quellcode:
function Striptags(Input: String): string;
begin
zaehler := 0;
result := ''; // damit omata zufrieden ist. zur performanceoptimierung würde ich aber setlength benutzen (s.u.)
for i := 1 to Input.Count do
begin
case Input[i] of
'<': zaehler++;
'>': zaehler--;
elseif (zaehler = 0) then result := result+Input[i];
end;
end;
end;
Ist ja fast schon Delphicode... zur Performanceoptimierung würd ich aber die Länge des results schon am Anfang mit Setlength festlegen.