62,046
社区成员
发帖
与我相关
我的任务
分享求一正则表达式
想写个字符串提取数字的函数，以下的函数( 表达式为[^\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
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
...全文
请发表友善的回复…
发表回复
abc10 2007-07-07
- 打赏
- 举报
十分感谢，马上结贴
-过客- 2007-07-07
- 打赏
- 举报
一步做起来比较麻烦，分两步写的，试下
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
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
