Finding number in string

[radek225]

Have a strings like this

dsa;hwq;67;dk;71c

uqiea;762c;iyh

Is there any possibilites to write a function which find number in string, even if some part (between ";" and ";") has number and text (like 762c)?

if there is number in string then function is true

 

[pr2-eugin]

You might need a UDF to get you this information. There is no native function that can do this. Something like,

Public Function HasNumbers(InputStr As String) As Boolean
    Dim tmpArr() As String, lCtr As Integer
    
    tmpArr = Split(InputStr, ";")
    
    For lCtr = 0 To UBound(tmpArr)
        If Val(tmpArr(lCtr)) <> 0 Then
            HasNumbers = True
            Exit Function
        End If
    Next
End Function

So,

?? HasNumbers("uqiea;762c;iyh")
True

 

[radek225]

As usual, perfectly. THX!

 

[pr2-eugin]

You're welcome ! Although there is a small disadvantage to this, if the string happens to be c762c. The function will fail. As Val will yield the Numeric value left to a String. There is an alternative using a IsNumeric looping through literally every single character and seeing if a number appears. Would you be interested in that?

 

[radek225]

hmm No it's not necessary. There's no way to have something like this (c762c). But now I see another problem. Forgot to say about that, (Sorry!). If in string will be "Pant." then function also should be true. Is it possible to achieve it?
String like

asd;xga;Pant. jas;ueq

 

[pr2-eugin]

Of Course you can, something like.

Public Function HasNumbers(InputStr As String) As Boolean
    Dim tmpArr() As String, lCtr As Integer
    
    tmpArr = Split(InputStr, ";")
    
    For lCtr = 0 To UBound(tmpArr)
        If Val(tmpArr(lCtr)) <> 0 [B][COLOR=Blue]Or InStr(tmpArr(lCtr), "Pant") <> 0[/COLOR][/B] Then
            HasNumbers = True
            Exit Function
        End If
    Next
End Function