leave numbers only in a range

[ktab]

Hello,

How can i leave only the numbers contained in a range (like: cell(1,1)= a12/r . I want it as 12 only).

Thank you
Kostas

 

[pgc01]

Hi Kostas

For just the first number present please try:

Function NumOnly(txt As String) As String
Dim oMatches As Object

With CreateObject("VBScript.RegExp")
    .Pattern = "\d+"

    Set oMatches = .Execute(txt)
    
    If oMatches.Count Then
        NumOnly = oMatches(0).Value
    Else
        NumOnly = "Not found"
    End If
End With
End Function

By the way, you are right, it's the regular expressions present in UNIX since the late seventies.

Hope this helps
PGC

 

[Richard Schollar]

Hi Kostas

Give this a go:

Function NumOnly(txt As String) As String
Dim regex As Object, currMatches
Set regex = CreateObject("VBScript.RegExp")
With regex
    .Pattern = "\d+"
    .Global = True
End With
Set currMatches = regex.Execute(txt)
NumOnly = ""
If currMatches.Count > 0 Then
    NumOnly = currMatches(0)
End If
End Function

Richard

 

[ktab]

Thank you Richard.
Worked just fine.

 

[Richard Schollar]

You're welcome Kostas

But I have to say PGC's was more elegant than mine.

Richard

 

[ktab]

I tried directly yours because I got confused by PGC's comment "just for the first number" but it works too.
So I'd like to thank you both for prompt & fine replies