Your technology certification is waiting. Enroll in Cloud Class ®
Function fExtractText(ByVal strInput As String) As String
.Pattern = "\D+"
.Global = True
fExtractText = .Replace(strInput, "")
Open in new window
MsgBox(fExtractText("GSX-R 1100 M (GSX-R M)"))
Function ExtractNumbers(ByVal str As String) As String
num = ""
For x As Integer = 0 To str.Length - 1
If IsNumeric(str.Substring(x, 1)) Then num = num & str.Substring(x, 1)
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.