Get Numbers Only

[AlexanderBB]

I have this routine which I've used for a while

Function NumbersOnly(loc) As String
Dim RE As Object, REMatches As Object
Set RE = CreateObject("vbscript.regexp")
 RE.Pattern = "\d+"
    If (RE.test(loc) = True) Then
        Set REMatches = RE.Execute(loc)
         NumbersOnly = REMatches(0)
    End If
Set REMatches = Nothing
Set RE = Nothing
End Function

However I've found it return numbers from loc only up to next non-numeric char.
Is there any way to have it return all numbers in loc ?

 

[pgc01]

Hi Alexander

The code is only getting the first sequence of digits.

Please post examples of input and expected output.

I assume loc is a string (?) but what is the format of the output (and type, it could be an array or something else).

Also the code is only searching for positive integers. This is what you want?

I guess the examples will clarify.