Function onlyText$(ByVal txt As String)
Set myReg = CreateObject("VBScript.RegExp")
With myReg
.Global = True: .IgnoreCase = True: .MultiLine = True
.Pattern = "[^a-zёа-я]"
onlyText = .Replace(txt, "")
End With
End Function
Функция оставляет только латинские буквы после обработки выражения
Function onlyLat$(ByVal txt As String)
Set myReg = CreateObject("VBScript.RegExp")
With myReg
.Global = True: .IgnoreCase = True: .MultiLine = True
.Pattern = "[А-яЁё]"
End With
onlyLat = myReg.Replace(txt, "")
End Function
Функция оставляет только цифры после обработки выражения
Function onlyNum$(ByVal txt As String)
Set myReg = CreateObject("VBScript.RegExp")
With myReg
.Global = True: .IgnoreCase = True: .MultiLine = True
.Pattern = "\D+"
End With
onlyNum = myReg.Replace(txt, "")
End Function