Лучшая функция Pars (TRegExpr)

X-DMIN

КИДАЛА

X-DMIN

КИДАЛА
Регистрация
2 Июл 2018
Сообщения
1,325
Реакции
940
Репутация
0
Код:
Uses regexpr;

function pars(RegString : string; thmlcode: String):TStringList;
var
RegExp: TRegExpr;
textmp:TStringList;
begin
    textmp:=TStringList.Create;
    RegExp := TRegExpr.Create;
    RegExp.InputString := thmlcode;
    RegExp.Expression := RegString;
    try
      try
      if RegExp.Exec then
        repeat
         textmp.Add(RegExp.Match[1]);
          until not RegExp.ExecNext;
      except
      end;
    finally
    RegExp.Free;
    end;
    result:=textmp;
end;
Код:
Usage:
var
url:tstringlist;
begin
url:=tstringlist.Create;
url:=pars('Сама регулярка','переменная содержащая код страницы');
Ищет сразу все совпадения без дополнительных циклов, отрываю от сердца !
 

Al Sinatra

Администратор
АДМИНИСТРАТОР
SKYNET-CLUB
PAYPAL GROUP
ЮБИЛЕЙНАЯ ЛЕНТА
Private fold group

Al Sinatra

Администратор
АДМИНИСТРАТОР
SKYNET-CLUB
PAYPAL GROUP
ЮБИЛЕЙНАЯ ЛЕНТА
Private fold group
Регистрация
4 Июн 2018
Сообщения
1,879
Реакции
458
Репутация
32
ГАРАНТ
3

Годно!
 
Сверху