[ALexandr555]

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

Код:

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;

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

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

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

Код:

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]

Код:

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;

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