Регулярные выражения

[itwork]

ЛЮди поделитесь сылками документации или теориями по "Регулярным выражениям" (и лучше чтоб она была связана с Паскалем) Ж)
Или кидайте док. мне на мыло domaincall@inbox.lv

[DiFor]

Кстати как в фпц с регулярами? есть ли уже что-то реализованное?

[Attid]

было на форуме . в поиск.

на дельфе отдельный юнит юзал, если найду то выкладу, но не в этом месяце.

[alexs]

пакет regexpr из состава FPC - это разве не то?

[DiFor]

Спасибо, покурю его

[debi12345]

Спасибо, покурю его

Родной из FPC - слабоватый. хотя и компактный. И самое страшное - он не поддерживает юникод.
Зато в Инете легко обнаруживается отдельный юнит - RegExpr. Вот он реально то, что нужно.

[Attid]

ага вот про него я и говорил.

[GN]

Код: Выделить всё

var
  st, st2, st3: String;

begin
  st := 'http://freepascal.ru';
  st2 := '[img]*[/img]';

Как с помощью RegExpr заменить "*" на st?

[GN]

Решил проблему в лоб

Код: Выделить всё

function zvezda(maska, adres, zamena: String): String;
var
  i: SmallInt;
  dl_zamena: SmallInt;
  
begin

  dl_zamena := Length(zamena);
  i := pos(zamena, maska);
  Delete(maska, i, dl_zamena);
  Insert(adres, maska, i);
  zvezda := maska;

end;  

[shade]

SysUtils.StringReplace - ещё никто не отменял

Код: Выделить всё

uses SysUtils;

begin
  writeln( StringReplace('[img]*[/img]', '*', 'http://freepascal.ru', [rfReplaceAll]) );
end.

[GN]

shade спасибо, буду иметь ввиду.