求一正则表达式

Question

想写个字符串提取数字的函数，以下的函数(  表达式为[^\d]*  )把小数点也替换掉了，如果改成字符串有小数点，就保留第一个，这个表达式怎么写比较好。
       Public Function GetdeNumber(ByVal par As String) As Single '将字符串转为数字
            par = System.Text.RegularExpressions.Regex.Replace(par, "[^\d]*", "")
            If par = "" Then
                Return 0
            Else
                Return Convert.ToDecimal(par)
            End If
        End Function

Answer 1

一步做起来比较麻烦，分两步写的，试下Public Function GetdeNumber(ByVal par As String) As Single '将字符串转为数字
    par = System.Text.RegularExpressions.Regex.Replace(par, "[^\d\.]*", "")
    par = System.Text.RegularExpressions.Regex.Replace(par, "(?<!^[^.]*)\.", "")
    If par = "" Then
        Return 0
    Else
        Return Convert.ToDecimal(par)
    End If
End Function