如何从如a123ch34jj中得到第一个数值123？

Question

vb中有这样的函数吗？没有话该怎么编写，请指教？

Answer 1

Private Function cal(str As String) As Double
    Dim i As Integer, s As String
    For i = 1 To Len(str)
        s = s & IIf(IsNumeric(Mid(str, i, 1)), Mid(str, i, 1), "")
    Next
    If s <> "" Then
        cal = Val(s)
    Else
        cal = -0.00000000009 '没有数字的标志
    End If
 End Function'''
'cal("dffgg5643330fdhgdfh")=5643330

Answer 2

For i = 1 To Len(str)
    IF not IsNumeric(Mid(str, i, 1)) and s<>"" then exit for  
    s = s & IIf(IsNumeric(Mid(str, i, 1)), Mid(str, i, 1), "")
Next