ник: Кабан
вижу примерно так
Function getdatere(s$)
Dim re As New RegExp
Dim sDatePattern$
Dim s1$, i1&
sDatePattern = "[0-9][0-9].[0-9][0-9].[0-9][0-9][0-9][0-9]"
re.Pattern = sDatePattern
If re.Test(s) = True Then
s1 = Trim(re.Replace(s, "|здесь"))
i1 = InStr(1, s1, "|здесь")
If i1 <> 0 Then
getdatere = Mid(s, i1, 10)
Else
getdatere = ""
End If
Else
getdatere = ""
End If
End Function
|
rtfm http://regexp.by.ru/
?getdatere("Задвижки 15' с фланцами до 10.06.2008г.")
10.06.2008
писал на скорую руку... в идеале хотелось бы шаблон написать такой, чтобы удалил все из строки, что не соответсвует шаблону даты....
но на поиски нема часу
