Регулярные вырожения без компонентов, возможно ли?

[Arsenx777]

И снова привет программмстам!
Помогите пожалуйста с регулярными вырожениями в delphi без компонентов, если это возможно?
Если не трудно приведите любые примеры или статьи, буду очень благодарен.
Весь интернет перерыл, и веде используются одни копоненты, типо "RegExpr"

[Пепел Феникса]

в Делфи нет встроенной поддержки, но вам что трудно установить нужную вам вещь?

[mss]

веде используются одни копоненты, типо "RegExpr"

Ты не поверишь - RegExpr это не компонент)

[Serge_Bliznykov]

присоединяюсь к мнению Пепла Феникса - чем Вам внешний компонент (точнее библиотека) TRegExpr не угодил?! Небольшой, бесплатный, КОРРЕКТНО РАБОТАЮЩИЙ, в исходниках (значит подходит под все версии Delphi), unicode поддерживает, установки НЕ ТРЕБУЕТ!...

[Arsenx777]

Сообщение от mss

Ты не поверишь - RegExpr это не компонент)

а что? значет я не правильно понял!
RegExpr - как его подключить и пользаваться?

[exn]

в XE есть встроенная поддержка рег. выражений.

[GunSmoker]

RegExpr - как его подключить и пользаваться?

А о чём же тогда говорят тонны страниц, которое ты перерыл?

Весь интернет перерыл, и веде используются одни копоненты, типо "RegExpr"

[Serge_Bliznykov]

RegExpr - как его подключить и пользаваться?

на ОФФСАЙТЕ документация на куче языков (в т.ч. и русский) + демки.


если вкратце, то подключить её надо так: распаковать исходники в любую папку.
если это не папка с текущим проектом, тогда в опциях указать директорию с исходниками
(или включить (добавить) RegExpr.pas в свой проект).
В своём проекте в секции uses вставить RegExpr
всё. можно использовать...

[Lesha]

упрощение работы с RegExpr

Я написал модуль работающий через класс TRegExpr.

Сам класс TRegExpr не совсем удобен , поэтому я создал 3 функции, которых хватит в большинстве ситуаций

preg.match
preg.match_all
preg.replace

описание

Модуль RegExpr_preg.pas

разработан для упрощения работы с регулярными выражениями в делфи.

описание функций

function TPreg.match(const regexp, text: string):boolean;

проверяет соответвие заданного текста {text} с выражением {regexp}

function TPreg.match_all( const regexp, text: string; var slist: TStringList):boolean;

проверяет и находит соответвия заданного выражения {regexp} в тексте {text}

помещает результаты совпадений в строковый лист {slist}

function TPreg.replace( const regexp, reg_replace:string; text: string):string;

находит и заменяет в тексте {text} согласно выражениям {regexp} , {reg_replace}

//******

внутри модуля объявлена глобальная переменная {preg} класса TPreg

для работы с регулярными выражениями нужно подключить только модуль RegExpr_preg.pas

и вызывать функции для работы с ними через глобальную переменную {preg}

preg.match

preg.match_all

preg.replace

регулярные выражения {regexp} должны быть записаны в скобках / / и после последней должны быть указаны друг за другом модификаторы регулярных выражений, подробнее о модификаторах можно прочитать в документации к модулю RegExpr

пример

/Jav(aS)cript/i

исходный код модуля

unit RegExpr_preg;

interface
uses SysUtils, Classes, RegExpr;

type
TPreg = class(TObject)
    function match(const regexp, text: string):boolean;
    function match_all( const regexp, text: string;  var slist: TStringList):boolean;
    function replace( const regexp, reg_replace:string; text: string):string;
    private
      const mf = '/';
      function cut_modifier(var reg: string): string;
  end;

var preg:  TPreg;

implementation

{ TPreg }

function TPreg.cut_modifier(var reg: string): string;
var i:integer; tmf: string;
begin
  Result:='';
  if reg[1]<>mf then begin reg:=''; exit; end;
  for i := length(reg) downto 1 do
    if reg[i]=mf then break;
  Result:=copy(reg,i+1,length(reg)-i);
  reg:=copy(reg,2,i-2);
end;

function TPreg.match(const regexp, text: string): boolean;
var Robj:  TRegExpr; treg: string;
begin
  Robj:=TRegExpr.Create;
  treg:=regexp;
  Robj.ModifierStr:=cut_modifier(treg);
  Robj.Expression:= treg;
  result:=Robj.Exec(text);
  Robj.Free;
end;

function TPreg.match_all(const regexp, text: string; var slist: TStringList): boolean;
var Robj:  TRegExpr; treg: string;
begin
 Robj:= TRegExpr.Create;
 slist:=TStringList.Create;
 treg:=regexp;
 Robj.ModifierStr:=cut_modifier(treg);
 Robj.Expression:=treg;
 if Robj.Exec(text) then begin
 repeat
  slist.Add(Robj.Match[1])
 until not Robj.ExecNext;
 result:=true;
 end else result:=false;
 Robj.Free;
end;

function TPreg.replace(const regexp, reg_replace:string; text: string): string;
var Robj:  TRegExpr; treg: string;
begin
  Robj:= TRegExpr.Create;
  treg:=regexp;
  Robj.ModifierStr:=cut_modifier(treg);
  Robj.Expression:=treg;
  if Robj.Exec(text) then
     result := Robj.Replace(text,reg_replace,true)
  else result :=text;
  Robj.Free;
end;

end.

пример программы + документация



http://jqbook.narod.ru/works/TRegExp.zip

PS модератор, поправь название темы пожалуйста, а то как-то неграмотно