提出数字

yuangw1234

请教

请问提取字符串中的数字函数是什么？为什么val(string)不可以用呢？

visual lisp中用(atoi strint)而vba中不可以

就如假如我输入m3, 要返回3给我

输入m3.25,要返回3.25给我

输和ttymp3.56要返回3.56给我

请知道者告知这个函数是什么？在此先谢谢诸位

xinghesnak

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

如果你的第一个有效字符不是数字，那么val函数就什么也提不出来了，返回值为0

好像没有函数能实现你的要求，看样只能写个子程序自己判断了（asc码）

 

雪山飞狐_lzh

Function MyVal(String1 As String) As Double
Dim n As Integer, i
For i = 1 To Len(String1)
n = Asc(String1)

If n <= 57 And n >= 45 And a <> 47 Then
MyVal = Val(String1)
Else
String1 = Mid(String1, 2)
End If

Next
End Function

Sub tt()
MsgBox MyVal("s-.89f")
End Sub

yuangw1234

十分感谢雪山飞孤，请问师傅是否可以留个qq号或其它的联系方法