提取字符串中的数字

df

请教各位：用什么函数来提取字符串中的左边数字，如：

200mm,      提取200。

123ADF233,   提取左边的123

zyp

如果你要提取字符串中所有数字，而不管它位于字符串中什么位置，那么只需将情比金坚MM的函数改一下就可以了，如下 ：Function st(s As String) as String

Dim x As String

Dim y As String

Dim I as IntegerFor i = 1 To Len(s)

   x = Mid(s, i, 1)

   If InStr(1,"1234567890", x) <> 0 Then y = y & x   

Next i

st = y

End Function

df

静儿MM说得不错，就是用val最方便，Val("1    3    5     5ABCD")=1355已搞定，谢谢！

df

不行的,我是说数据不定,Val("1    3    5     5ABCD")=1355要是其它数据呢,      

zyp

以下是引用df在2005-10-25 16:30:00的发言：

左边数据??

没错

df

左边数据??

zyp

以下是引用静儿在2005-10-25 12:27:00的发言：



用val函数是否适合？

静儿MM说得不错，就是用val最方便，

Val("1    3    5     5ABCD")=1355

静儿

用val函数是否适合？

df

十分感谢 情比金坚:可我试了一下不行呀,如text1=1245sfrg56g1,提取1245左边数据,(text1字符串不是固定的)还望您指点一下.

tmtony

原来老兄也未入睡啊