Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
Поиск по регулярным выражениям Найти похожие ветки
← →
Feldsher (2007-08-06 08:08) [0]Подскажите как в дельфи организовать простейший сабж.
требуется в большом отрывке текста найти все подстроки которые отвечают конкретному регулярному выражению и поместить их в отдельный массив строк.
← →
MBo © (2007-08-06 08:26) [1]найди библиотеку TRegExpr
← →
Leonid Troyanovsky © (2007-08-06 09:48) [2]
> 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.
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
