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

unitedkingdom

Интересующийся
PREMIUM USER
ЮБИЛЕЙНАЯ ЛЕНТА

unitedkingdom

Интересующийся
PREMIUM USER
ЮБИЛЕЙНАЯ ЛЕНТА
Регистрация
21 Июн 2018
Сообщения
243
Реакции
166
Репутация
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;




Код:
Usage:
var
url:tstringlist;
begin
url:=tstringlist.Create;
url:=pars('Сама регулярка','переменная содержащая код страницы');


end;
 
Сверху