How to crop only numbers from a string?

function should return number 41 from string:
"vivaldi - 4 - seasons - movement/1"

Maybe:

Sub GetIt()
Dim str As String
str = "vivaldi - 4 - seasons - movement/1"
MsgBox num(str)

End Sub

Function num(inpt As String)
Dim i As Integer
For i = 1 To Len(inpt)
If IsNumeric(Mid(inpt, i, 1)) Then
num = num & Mid(inpt, i, 1)
End If
Next i
num = CLng(num)
End Function

Regards
Rowan

serdar wrote:
> function should return number 41 from string:
> "vivaldi - 4 - seasons - movement/1"
>
>

thanks for ur effort to code the entire function. seems u r real fast and
pro. just IsNumeric( ) would be enough also but u spend ur time to write
all.

well, i am assuming IsNumeric( ) crops only 1234567890



"Rowan Drummond" <[email protected]>, haber iletisinde sunlari
yazdi:[email protected]...
> Maybe:
>
> Sub GetIt()
> Dim str As String
> str = "vivaldi - 4 - seasons - movement/1"
> MsgBox num(str)
>
> End Sub
>
> Function num(inpt As String)
> Dim i As Integer
> For i = 1 To Len(inpt)
> If IsNumeric(Mid(inpt, i, 1)) Then
> num = num & Mid(inpt, i, 1)
> End If
> Next i
> num = CLng(num)
> End Function
>
> Regards
> Rowan
>
> serdar wrote:
>> function should return number 41 from string:
>> "vivaldi - 4 - seasons - movement/1"

IsNumeric returns true or false based on the input so:
? isnumeric(5) True
? isnumeric("b") False
The function does the cropping based on these results for each character
in the string.

Regards
Rowan

serdar wrote:
> thanks for ur effort to code the entire function. seems u r real fast and
> pro. just IsNumeric( ) would be enough also but u spend ur time to write
> all.
>
> well, i am assuming IsNumeric( ) crops only 1234567890
>
>
>
> "Rowan Drummond" <[email protected]>, haber iletisinde sunlari
> yazdi:[email protected]...
>
>>Maybe:
>>
>>Sub GetIt()
>> Dim str As String
>> str = "vivaldi - 4 - seasons - movement/1"
>> MsgBox num(str)
>>
>>End Sub
>>
>>Function num(inpt As String)
>> Dim i As Integer
>> For i = 1 To Len(inpt)
>> If IsNumeric(Mid(inpt, i, 1)) Then
>> num = num & Mid(inpt, i, 1)
>> End If
>> Next i
>> num = CLng(num)
>>End Function
>>
>>Regards
>>Rowan
>>
>>serdar wrote:
>>
>>>function should return number 41 from string:
>>> "vivaldi - 4 - seasons - movement/1"
>
>
>