![]() |
![]() |
||
Очистка строки от всех символов кроме ЦИФР (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
|
![]() ![]() |
||
L.E. 03.07.2022 |