[求助]如何从字符格式中提取数字？

secowu

一个可能字段包含如下的字符记录：

250P

125 P

175镑

175 镑

请问如何只提取其中的数字呢？

250

125

175

175

secowu

单用EVAL出现错误

还有什么别的办法么？

secowu

呵呵，借用EXCEL里的

搞定了

Public Function sumtext(rng As String)
For i = 1 To Len(rng)
If InStr("0123456789", Mid(rng, i, 1)) And Mid(rng, i + 1, 1) <> ")" Then
  sumtext = sumtext + Mid(rng, i, 1)
Else
  sumtext = sumtext + "+"
End If
Next
sumtext = Eval(sumtext + "+0")
End Function

fan0217

何必那么复杂，用Val()函数即可。

Val 函数

返回包含于字符串内的数字，将其作为适当类型的数字值。

语法

Val(string)

必选参数 string 是任何有效的字符串表达式。

说明

Val 函数将在第一个无法识别为数字组成部分的字符处停止读取字符串。不会识别通常被视为数值组成部分的符号和字符，如货币符号和逗号。不过，此函数可以识别基数前缀

1. &O

复制代码

（对于八进制）和

1. &H

复制代码

（对于十六进制）。参数中的空格、制表符和换行符将被删除。

下面的函数将返回值 1615198：

1. Val("    1615 198th Street N.E.")
   

复制代码

[此贴子已经被作者于2006-1-11 19:58:43编辑过]

一点通

fan0217的方法是正解

secowu

呵呵，学习了，多谢[em01]

Alashome

good