VBA, MS Access MS Access в примерах

Очистка строки от всех символов кроме ЦИФР (VBScript)

По материалам: https://www.cyberforum.ru/vba/thread2615745.html#post14421330

Public Function onlyDigits(stroka) 'Только цифры
    Dim objRegExp As Object
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "[^0-9]"
    onlyDigits = objRegExp.Replace(stroka, "")
End Function
Назад ToTop
L.E. 03.07.2022
Рейтинг@Mail.ru