Office中国论坛/Access中国论坛

标题: 文本框中提取数字问题? [打印本页]

作者: laiguiyou 时间: 2006-9-20 17:22
标题: 文本框中提取数字问题?
在一个文本框中存放这样的字符:25.6*18.2*24.2 用什么方法提取里面的数据: 25.6 18.2 24.2以使可以相加减

作者: andymark 时间: 2006-9-20 19:36

Dim vArr As Variant
Dim Tt As Double
Dim i As Integer

vArr = Split("25.6*18.2*24.2", "*")

For i = LBound(vArr) To UBound(vArr)

      If vArr(i) <> "" Then

         Tt = Tt + vArr(i)

      End If

Next i

MsgBox Tt

作者: laiguiyou 时间: 2006-9-20 22:44
谢谢版主

作者: lymin 时间: 2009-3-28 01:20

在一个文本框中存放这样的字符:25.6*18.2*24.2 用什么方法提取里面的数据: 25.6 18.2 24.2以使可以相加减
laiguiyou 发表于 2006-9-20 17:22

如果是要乘除呢?又要怎么做?

作者: sgrshh29 时间: 2009-3-28 12:54
乘:= eval("25.6*18.2*24.2")
除:=eval(replace("25.6*18.2*24.2", "*", "/"))
加:=eval(replace("25.6*18.2*24.2", "*", "+"))
减:=eval(replace("25.6*18.2*24.2", "*", "-"))

作者: lymin 时间: 2009-3-28 14:34

乘:= eval("25.6*18.2*24.2")
除:=eval(replace("25.6*18.2*24.2", "*", "/"))
加:=eval(replace("25.6*18.2*24.2", "*", "+"))
减:=eval(replace("25.6*18.2*24.2", "*", "-"))
sgrshh29 发表于 2009-3-28 12:54

谢谢指点

作者: chaojianan 时间: 2009-3-28 17:33
不错，学习了。
谢谢分享。

作者: jameszheng1981 时间: 2009-6-8 12:16
好东东

作者: xinye5460 时间: 2009-6-8 20:42
学到两个函数。呵呵。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)