Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c