| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск по регулярным выражениям [D7, XP]

Feldsher ©   (2007-08-06 08:08:00) 

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

---

Leonid Troyanovsky   (2007-08-06 09:48:00) [1]

> 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.

---

MBo   (2007-08-06 08:26:00) [2]

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

---

Наверх