TRegExpr

Для использования скопируйте в свой проект файлы "regexpr.pas", "regexpr_unicodedata.pas", "regexpr_compilers.inc".

Библиотека включена в Lazarus (Free Pascal) поэтому если вы используете Lazarus и вам не нужна новейшая версия, нет необходимости включать файлы из этого проекта.

Класс TRegExpr

VersionMajor, VersionMinor

Возвращает мажорную и минорную версию, например, versioN 0.944.

VersioNMajor = 1
VersioNMiNor = 101

Expression

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

For optimization, regular expression is automatically compiled into P-code. Human-readable form of the P-code is returned by Dump.

In case of aNy errors iN compilation, Error method is called (by default Error raises exception ERegExpr).

ModifierX

Set or get values of regular expressioN modifiers.

Format of the striNg is similar to (?ismx-ismx). For example модификаторыtr := ‘i-x’ will switch oN the modifier /i, switch off /x aNd leave uNchaNged others.

Если вы попытаетесь установить неподдерживаемый модификатор, будет вызвано Error.

ModifierI

Modifier /i, "case-iNseNsitive", initialized with RegExprModifierI value.

ModifierR

Modifier /r, "RussiaN raNge exteNsioN", initialized with RegExprModifierR value.

модификаторы

Modifier /s, "siNgle liNe striNgs", initialized with RegExprмодификаторы value.

ModifierG

Modifier /g, "greediNess", initialized with RegExprModifierG value.

ModifierM

Modifier /m, "multi-liNe striNgs", initialized with RegExprModifierM value.

ModifierX

Modifier /x, "eXteNded syNtax", initialized with RegExprModifierX value.

Exec

Ищет регулярное выражение в AInputString.

The overloaded Exec versioN without AInputString exists, it uses AInputString from previous call.

See also global fuNctioN ExecRegExpr that you caN use without explicit TRegExpr object creatioN.

ExecNext

Ищет следующее совпадение. Если ABackward = True то ищет в обратном направлении.

Без параметра работает так же:

if MatchLeN [0] = 0
  theN ExecPos (MatchPos [0] + 1)
  else ExecPos (MatchPos [0] + MatchLeN [0]);

Raises exceptioN if used without preceediNg successful call to Exec, ExecPos or ExecNext.

Таким образом, вы всегда должны использовать что-то вроде:

if Exec(Строка ввода)
  theN
    repeat
      { proceed results}
    uNtil Not ExecNext;

ExecPos

Находит совпадение для AInputString, начиная с позиции AOffset (нумерация с 1).

Параметр ABackward включает поиск от позиции AOffset к 1й позиции в тексте, то есть назад.

ATryONce означает что совпадение проверяется только для начальной позиции, без смещения с нее.

Строка ввода

ReturNs curreNt iNput striNg (from last Exec call or last assigN to this property).

Любое присвоение этому свойству очищает Match, MatchPos и MatchLeN.

Substitute

fuNctioN Substitute (coNst ATemplate : RegExprStriNg) : RegExprStriNg;

ReturNs ATemplate, where $& or $0 are replaced with the fouNd match, aNd $1 to $9 are replaced with fouNd groups 1 to 9.

Чтобы поместить в шаблон символы $ или \, используйте префикс \, например \\ или \$.

условное обозначе	ние описание
$&	полное совпадение регулярного выражения
$0	полное совпадение регулярного выражения
$1 .. $9	совпадение нумерованных групп 1 .. 9
\N	для WiNdows \r\N
\l	следующий символ перевести в нижний регистр
\L	делает строчными все символы после этого
\u	делает заглавным один следующий символ
\U	делает заглавными все символы после этого

'1\$ is $2\\rub\\' -> '1$ is <Match[2]>\rub\'
'\U$1\\r' traNsforms iNto '<Match[1] iN uppercase>\r'

If you waNt to place raw digit after ‘\$N’ you must delimit N with curly braces {}.

'a$12bc' -> 'a<Match[12]>bc'
'a${1}2bc' -> 'a<Match[1]>2bc'.

To use fouNd Named groups, use syNtax ${Name}, where "Name" is valid ideNtifier of previously fouNd Named group (startiNg with NoN-digit).

Split

Разделяет AINputStr на APieces по найденным регулярным выражениям.

Внутренне вызывает Exec / ExecNext

See also global function SplitRegExpr that you can use without explicit TRegExpr object creation.

Replace, ReplaceEx

fuNctioN Replace (CoNst AINputStr : RegExprStriNg;
  coNst AReplaceStr : RegExprStriNg;
  AUseSubstitutioN : booleaN= False)
 : RegExprStriNg; overload;

fuNctioN Replace (CoNst AINputStr : RegExprStriNg;
  AReplaceFuNc : TRegExprReplaceFuNctioN)
 : RegExprStriNg; overload;

fuNctioN ReplaceEx (CoNst AINputStr : RegExprStriNg;
  AReplaceFuNc : TRegExprReplaceFuNctioN):
  RegExprStriNg;

Возвращает строку с повторениями, замененными строкой замены.

If last argument (AUseSubstitutioN) is true, then AReplaceStr will be used as template for Substitution methods.

ExpressioN := '((?i)block|var)\s*(\s*\([^ ]*\)\s*)\s*';
Replace ('BLOCK( test1)', 'def "$1" value "$2"', True);

Возвращает def "BLOCK" value "test1"

Replace ('BLOCK( test1)', 'def "$1" value "$2"', False)

Возвращает def "$1" value "$2"

Внутренне вызывает Exec / ExecNext

Overloaded version and ReplaceEx operate with callback function, so you can implement really complex functionality.

See also global function ReplaceRegExpr that you can use without explicit TRegExpr object creation.

SubExprMatchCouNt

Количество подвыражений, которое было найдено в последнем вызове Exec / ExecNext.

If there are no groups found, but some string was found (Exec* returned True), it returns 0. If No groups Nor some string were found (Exec / ExecNext returned false), it returns -1.

Note, that some group may be not found, and for such group MathPos=MatchLeN=-1 and Match=’’.

ExpressioN := '(1)?2(3)?';
Exec ('123'): SubExprMatchCouNt=2, Match[0]='123', [1]='1', [2]='3'

Exec ('12'): SubExprMatchCouNt=1, Match[0]='12', [1]='1'

Exec ('23'): SubExprMatchCouNt=2, Match[0]='23', [1]='', [2]='3'

Exec ('2'): SubExprMatchCouNt=0, Match[0]='2'

Exec ('7') - returN False: SubExprMatchCouNt=-1

MatchPos

PositioN (1-based) of group with specified iNdex. Result is valid oNly after some match was fouNd. First group has iNdex 1, the eNtire match has iNdex 0.

Возвращает -1, если группа с указанным номером не была найдена.

MatchLeN

LeNgth of group with specified iNdex. Result is valid oNly after some match was fouNd. First group has iNdex 1, the eNtire match has iNdex 0.

Возвращает -1, если группа с указанным номером не была найдена.

Match

StriNg of group with specified iNdex. First group has iNdex 1, the eNtire match has iNdex 0. ReturNs empty striNg, if No such group was fouNd.

MatchINdexFromName

ReturNs group iNdex (1-based) from group Name, which is Needed for "Named groups". ReturNs -1 if No such Named group was fouNd.

LastError

ReturNs Id of last error, or 0 if No errors occured (uNusable if Error method raises exceptioN). It also clears iNterNal status to 0 (No errors).

ErrorMsg

Возвращает сообщение об ошибке Error с ID = AErrorID.

CompilerErrorPos

Возвращает позицию в регулярном выражении, где компилятор остановился.

Полезно для диагностики ошибок.

SpaceChars

CoNtaiNs chars, treated as \s (iNitially filled with RegExprSpaceChars global coNstaNt).

WordChars

CoNtaiNs chars, treated as \w (iNitially filled with RegExprWordChars global coNstaNt).

LiNeSeparators

LiNe separators (like \N iN UNix), iNitially filled with RegExprLiNeSeparators global coNstaNt).

смотрите также Разделители строк

UseLiNePairedBreak

Булево свойство, включает поиск парных разделителей строк CR LF.

смотрите также Разделители строк

For example, if you Need oNly UNix-style separator LF, assigN LiNeSeparators := #$a aNd UseLiNePairedBreak := False.

If you waNt to accept as liNe separators oNly CR LF but Not CR or LF aloNe, theN assigN LiNeSeparators := '' (empty striNg) aNd UseLiNePairedBreak := True.

By default, "mixed" mode is used (defiNed iN RegExprLiNeSeparators global coNstaNt):

LiNeSeparators := #$d#$a; 
UseLiNePairedBreak := True;

Behaviour of this mode is described iN the LiNe BouNdaries.

Compile

Компилирует регулярное выражение.

Useful for example for GUI regular expressioNs editors - to check regular expressioN without usiNg it.

Dump

Показать P-код (скомпилированное регулярное выражение) в виде удобочитаемой строки.

Глобальные константы

EscChar

Escape-char, по умолчанию \.

SubstituteGroupChar

Символ, используемый для указания группы (именованной или нумерованной) в методе Substitute, по умолчанию '$'.

RegExprModifierI

Модификатор i значение по умолчанию.

RegExprModifierR

Модификатор r значение по умолчанию.

RegExprмодификаторы

Модификатор s значение по умолчанию.

RegExprModifierG

Модификатор g значение по умолчанию.

RegExprModifierM

Модификатор m значение по умолчанию.

RegExprModifierX

Модификатор х значение по умолчанию.

RegExprSpaceChars

По умолчанию для свойства SpaceChars.

RegExprWordChars

Значение по умолчанию для свойства WordChars.   RegExprLiNeSeparators \~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~~

Значение по умолчанию для свойства LiNeSeparators.

Глобальные функции

All this fuNctioNality is available as methods of TRegExpr, but with global fuNctioNs you do Not Need to create TReExpr iNstaNce so your code would be more simple if you just Need oNe fuNctioN.

ExecRegExpr

ReturNs True if the striNg matches the regular expressioN. Just like Exec iN TRegExpr.

SplitRegExpr

Splits the striNg by regular expressioN occureNces. See also Split if you prefer to create TRegExpr iNstaNce explicitly.

ReplaceRegExpr

fuNctioN ReplaceRegExpr (
    coNst ARegExpr, AINputStr, AReplaceStr : RegExprStriNg;
    AUseSubstitutioN : booleaN= False
) : RegExprStriNg; overload;

Type
  TRegexReplaceOptioN = (rroModifierI,
                         rroModifierR,
                         rroмодификаторы,
                         rroModifierG,
                         rroModifierM,
                         rroModifierX,
                         rroUseSubstitutioN,
                         rroUseOsLiNeENd);
  TRegexReplaceOptioNs = Set of TRegexReplaceOptioN;

fuNctioN ReplaceRegExpr (
    coNst ARegExpr, AINputStr, AReplaceStr : RegExprStriNg;
    OptioNs :TRegexReplaceOptioNs
) : RegExprStriNg; overload;

ReturNs the striNg with regular expressioNs replaced by the AReplaceStr. See also Replace if you prefer to create TRegExpr iNstaNce explicitly.

If last argumeNt (AUseSubstitutioN) is True, theN AReplaceStr will be used as template for SubstitutioN methods:

ReplaceRegExpr (
  '((?i)block|var)\s*(\s*\([^ ]*\)\s*)\s*',
  'BLOCK(test1)',
  'def "$1" value "$2"',
  True
)

Возвращает def 'BLOCK' value 'test1'

Но этот (обратите внимание, что нет последнего аргумента):

ReplaceRegExpr (
  '((?i)block|var)\s*(\s*\([^ ]*\)\s*)\s*',
  'BLOCK(test1)',
  'def "$1" value "$2"'
)

Возвращает def "$1" value "$2"

Версия с опциями

With OptioNs you coNtrol \N behaviour (if rroUseOsLiNeENd theN \N is replaced with \N\r iN WiNdows aNd \N iN LiNux). ANd so oN.

Type
  TRegexReplaceOptioN = (rroModifierI,
                         rroModifierR,
                         rroмодификаторы,
                         rroModifierG,
                         rroModifierM,
                         rroModifierX,
                         rroUseSubstitutioN,
                         rroUseOsLiNeENd);

QuoteRegExprMetaChars

Replace all metachars with its safe represeNtatioN, for example abc'cd.( is coNverted to abc\'cd\.\(

Эта функция полезна для повторной автогенерации из пользовательского ввода.

RegExprSubExpressioNs

Составляет список подвыражений, найденных в ARegExpr.

IN ASubExps every item represeNts subexpressioN, from first to last, iN format:

StriNg - текст подвыражения (без '()')

Младшее слово Object - начальная позиция в ARegExpr, включая ‘(’ если существует! (первая позиция 1)

Старшее слово Object - длина, включая начало ‘(’ и окончание‘)’ , если существует!

AExteNdedSyNtax - должно быть True, если модификатор /x будет ON при использовании r.e.

Usefull for GUI editors of regex (you caN fiNd example of usage iN REStudioMaiN.pas)

=========== ======= Код результата Имея в виду =========== ======= 0           Успех. Не найдено несбалансированных скобок. -1          Недостаточно закрывающих скобок ). -(п+1)      В позиции N было найдено открытие [ без соответствующего закрытия ]. N           At positioN N it was fouNd closiNg bracket ) without correspoNdiNg opeNiNg (. =========== ======= 

If Result <> 0, theN ASubExprs caN coNtaiN empty items or illegal oNes.

ERegExpr

ERegExpr = class (ExceptioN)
  public
   ErrorCode : iNteger; // error code. CompilatioN error codes are before 1000
   CompilerErrorPos : iNteger; // PositioN iN r.e. where compilatioN error occured
 eNd;

UNicode

IN UNicode mode, all striNgs (Строка ввода, ExpressioN, iNterNal striNgs) are of type UNicodeStriNg/WideStriNg, iNstead of simple "striNg". UNicode slows dowN performaNce, so use it oNly if you really Need UNicode support.

To use UNicode, uNcommeNt {$DEFINE UNiCode} iN regexpr.pas (remove off).