Извлечь дату из текста

[cybernetic]

Господа, возникла задача извлечь из текста, забитого в экселвскую ячейку, дату
Текст в ячейках достаточно произвольный, содержит помимо дат еще и цифры, но даты везде в формате дд.мм.гггг. Например " иацшлдсмилы 13.01.2010 млош 375 иа 9799" - необходимо получить 13.01.2010

Исходя из здравого смысла (если он бывает у гуманитария), я полагаю, что надо сделать так, чтобы макрос брал строку и шел по ней, проверяя нет ли там сочетания хх.хх.хххх, где х это цифры. Но самому написать такое как-то не получилось.

Не подскажете, как можно решить эту задачу?
Спасибо!

[cybernetic]

Function get_data(a As String)
Dim s As String
For i = 1 To Len(a)
If (IsNumeric(a(i)) And IsNumeric(a(i + 1)) And a(i + 2) = "." And IsNumeric(a(i + 3)) And IsNumeric(a(i + 4)) And a(i + 5) = "." And IsNumeric(a(i + 6)) And IsNumeric(a(i + 7)) And IsNumeric(a(i + 8)) And IsNumeric(a(i + 9))) Then
s = a(i) & a(i + 1) & a(i + 2) & a(i + 3) & a(i + 4) & a(i + 5) & a(i + 6) & a(i + 7) & a(i + 8) & a(i + 9)
Exit For
End If
Next i
get_data = s
End Function

Он ругается что a не массив. Нельзя так ссылаться на элемент строки?

[cybernetic]

Хотя я уже разобрался - нашел функцию Mid()

Но проблема в том, что есть места, где месяц прописан прописью - вот тут мне уже самому не справиться, буду благодарен за подсказки

[maksim_serg]

Но проблема в том, что есть места, где месяц прописан прописью

привидите пример

[Казанский]

Для формата дд.мм.гггг. Формат ячейки с функцией - дата.

Dim re As Object

Function GetDate(s As String)
If re Is Nothing Then
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "\d\d.\d\d.\d\d\d\d"
End If
GetDate = CDate(re.Execute(s)(0))
End Function

[Czeslaw]

Можно и с формулой
=MID(A1;SEARCH(".";A1)-2;10)

[kuklp]

Вариант:

Dim re As Object

Function GetDate(s As String)
    On Error GoTo GetDate_Error
    GetDate = CDate(re.Execute(s)(0))
    On Error GoTo 0
    Exit Function
GetDate_Error:
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "(\d\d.){2}\d{4}"
    Resume
End Function

P.S. Czeslaw, а если точка встретится раньше по тексту?

[IgorGO]

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

"\d+( |.)([яфмаисонд](([а-я]{2}\.? )|([а-я]+[а|я] ))\d{4})|(\d+( |.)\d+)"

Function GetDate(t As String) As String
  Dim re As Object
  Set re = CreateObject("vbscript.regexp")
re.Pattern = "\d+( |.)([яфмаисонд](([а-я]{2}\.? )|([а-я]+[а|я] ))\d{4})|(\d+( |.)\d+)"
  If re.test(t) Then GetDate = re.Execute(t)(0)
  Set re = Nothing
End Function

задача не столько не собирать мусор, сколько не пропустить дату.
ловит даты в формате:
ДД.ММ.ГГГГ (с разными разделителями, день и месяц могут содержать 1 цифру, год 2 или 4)
даты записанные с месяцем в текстовом формате:
из 3-х букв (с точкой или без нее в конце)
1 дек. 2013
или с полным названием месяца в родительном падеже
27 августа 2012


PS:
приветсвуются конструктивные критические замечания по шаблону

[merchant-ru]

Добрый день!
Подскажите, если у меня есть список "утверждающих документов", то как из этой строки можно извлечь (в каждую отдельную ячейку): наименование документа, дату и номер? (пример во вложении)

[IgorGO]

см.вложение