Как найти дату в текстовом поле

@AndryBob · Регистрация: 08.05.2019

Author24 — интернет-сервис помощи студентам

Всем Добрый вечер!

В таблице MS Access есть текстовое поле (столбец) строки которого внутри текста содержат даты или даже несколько дат в одной строке в текстовом же формате, например:

"... фкур птапч... 12.04.2019 или 12.04.19 ... увр ап прона...".

Вопрос. Каким наиболее простым способом (или функцией) найти и вытащить из текста дату, чтобы потом поместить её в отдельное поле (столбец) этой же или другой таблицы?

mobile · 08.05.2019, 21:01

Попробуйте функцию с регэкспом

Visual Basic

Public Function OnlyDate(stroka)
    Dim objRegExp As Object, oMatches
    Dim i, s, k
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    
    objRegExp.Pattern = "\d{1,2}[\.,/-]\d{1,2}[\.,/-]\d{2,4}"
    Set oMatches = objRegExp.Execute(stroka)
    For i = 0 To oMatches.Count - 1
        k = Trim(oMatches(i))
        If Left(k, 1) = "(" Then k = k & ")"
        s = s & "," & k
    Next
    
    OnlyDate = Mid(s, 2)
End Function

Пробуем в Immediate

Visual Basic

?OnlyDate("... фкур птапч... 12.04.2019 или 12.04.19 ... увр ап прона...")
12.04.2019,12.04.19
 
?OnlyDate("... фкур птапч... 12.04.2019 . увр ап прона...")
12.04.2019

@alvk · 09.05.2019, 06:45

Кликните здесь для просмотра всего текста

\d{1,2} - цифры до 2 знаков
[\.,/-] - любые символы из перечисленных
\d{2,4} - цифра 2-4 символа

?OnlyDate("... фкур птапч... 12-04,24 ап прона...")
12-04,24

имхо - и , лучше убрать

@AndryBob 0 / 0 / 0 Регистрация: 08.05.2019 Сообщений: 4
		1
	Как найти дату в текстовом поле 08.05.2019, 20:47. Показов 1880. Ответов 2 Метки нет (Все метки) Всем Добрый вечер! В таблице MS Access есть текстовое поле (столбец) строки которого внутри текста содержат даты или даже несколько дат в одной строке в текстовом же формате, например: "... фкур птапч... 12.04.2019 или 12.04.19 ... увр ап прона...". Вопрос. Каким наиболее простым способом (или функцией) найти и вытащить из текста дату, чтобы потом поместить её в отдельное поле (столбец) этой же или другой таблицы? 0

@alvk 7439 / 4574 / 300 Регистрация: 12.08.2011 Сообщений: 14,228
	09.05.2019, 06:45	3
	Кликните здесь для просмотра всего текста \d{1,2} - цифры до 2 знаков [\.,/-] - любые символы из перечисленных \d{2,4} - цифра 2-4 символа ?OnlyDate("... фкур птапч... 12-04,24 ап прона...") 12-04,24 имхо - и , лучше убрать 0

Как найти дату в текстовом поле

Решение