提出数字

yuangw1234 · 发表于 2006-4-5 20:57:00

请教
请问提取字符串中的数字函数是什么？为什么val(string)不可以用呢？
visual lisp中用(atoi strint)而vba中不可以
就如假如我输入m3, 要返回3给我
输入m3.25,要返回3.25给我
输和ttymp3.56要返回3.56给我
请知道者告知这个函数是什么？在此先谢谢诸位

xinghesnak · 发表于 2006-4-6 16:06:00

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和
符都从参数中被去掉。
如果你的第一个有效字符不是数字，那么val函数就什么也提不出来了，返回值为0
好像没有函数能实现你的要求，看样只能写个子程序自己判断了（asc码）

雪山飞狐_lzh · 发表于 2006-4-6 20:18:00

Function MyVal(String1 As String) As Double
Dim n As Integer, i
For i = 1 To Len(String1)
n = Asc(String1)
If 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 · 发表于 2006-4-6 21:48:00

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

提出数字

发表回复

精选推荐