[ALexandr555]

Нужно очищать текст от тегов
решил с помошью рег выражений

Код:

1 2 3 4 5 6 7 8 9 10

var RegExp: TRegExpr; begin  RegExp := TRegExpr.Create;  //просто в пример взял этот текст  RegExp.InputString:= '<b>Погребенный</b> <b>заживо</b> (Buried). Кинопоиск.Ру </a>';  RegExp.Expression := '>(.*?)<';  RegExp.Exec;  ShowMessage(RegExp.Match[1]);  RegExp.Free;

как мне собственно вынимать текст из тего по идее должно работать так >(.*?)< так как между ними текст

[Страдалецъ]

А так не проще будет?

Код:

1 2 3

InputString := '<b>Погребенный</b> <b>заживо</b> (Buried). Кинопоиск.Ру </a>'; OutputString := StringReplace(InputString,'<b>','',[rfReplaceAll]); OutputString := StringReplace(InputString,'</b>','',[rfReplaceAll]);

[ALexandr555]

я же говрю это пример

//просто в пример взял этот текст
RegExp.InputString:= '<b>Погребенный</b> <b>заживо</b> (Buried). Кинопоиск.Ру </a>';

текст может быть и с другими тегами

[ALexandr555]

<b>(.*?)</b> так например тащит но это определенный тег

[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var RegExp: TRegExpr; text: string; k: integer; N: integer; begin  RegExp := TRegExpr.Create;  N:=0;   RegExp.Expression := '(<.*?>)';  text:=memo1.text;  for k:=1 to Length(text) do if(text[k] = '<') then  inc(N);  for k:=1 to N do   begin    RegExp.InputString:= text;    RegExp.Exec;    text:= StringReplace(text,RegExp.Match[1],' ',[rfReplaceAll]);   end;  ShowMessage(text);  RegExp.Free; end;

вобщем вот сделал вроде нормально)