Регулярные выражения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д