Регулярные выражения - VB
Формулировка задачи:
Всем привет! Помогите, пож-ста написать регулярное выражение для поиска в тексте такой вот строки "
Что удалось навоять:
А как дописать, чтобы точка (
В регулярке не силен, поэтому прошу помощи.
01.03
".Что удалось навоять:
(\d{2})\)?[- ]?
А как дописать, чтобы точка (
.
) попала и вторая часть03
.В регулярке не силен, поэтому прошу помощи.
Решение задачи: «Регулярные выражения»
textual
Листинг программы
Sub tttt()
Dim oRE As Object, oM As Object
Dim s As String
s = "01.02.2015 15.08.2015 22.02.2016"
Set oRE = CreateObject("vbscript.regexp")
oRE.ignorecase = -1
oRE.MultiLine = -1
oRE.Global = -1
oRE.Pattern = "(\d{2}.\d{2}.\d{4})"
Set oM = oRE.Execute(s)
If oM.Count > 1 Then 'две и более даты
MsgBox oM.Item(1).Value
End If
End Sub