Поиск по регулярным выражениям

← →
Feldsher (2007-08-06 08:08) [0]

Подскажите как в дельфи организовать простейший сабж.
требуется в большом отрывке текста найти все подстроки которые отвечают конкретному регулярному выражению и поместить их в отдельный массив строк.

← →
MBo © (2007-08-06 08:26) [1]

найди библиотеку TRegExpr

> Feldsher (06.08.07 08:08)

> Подскажите как в дельфи организовать простейший сабж.

У VBScript ver 5.0 есть RegExp object, например
Function RegExpTest(patrn, strng) Dim regEx, Match, Matches " Create variable. Set regEx = New RegExp " Create a regular expression. regEx.Pattern = patrn " Set pattern. regEx.IgnoreCase = True " Set case insensitivity. regEx.Global = True " Set global applicability. Set Matches = regEx.Execute(strng) " Execute search. For Each Match in Matches " Iterate Matches collection. RetStr = RetStr & "Match found at position " RetStr = RetStr & Match.FirstIndex & ". Match Value is "" RetStr = RetStr & Match.Value & ""." & vbCRLF Next RegExpTest = RetStr End Function MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
Подробности в msdn
http://msdn2.microsoft.com/en-us/library/yfy6y4h1.aspx

Как прикрутить сам VBScript к дельфи описано в статье Анатолия Тенцера
на сайте Анатолия Подгорецкого.

--
Regards, LVT.

Поиск по регулярным выражениям Найти похожие ветки