文本框中提取数字问题?

laiguiyou

在一个文本框中存放这样的字符:25.6*18.2*24.2   用什么方法提取里面的数据: 25.6   18.2    24.2以使可以相加减

andymark

    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

谢谢版主

lymin

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

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

sgrshh29

乘:= 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

乘:= 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

不错，学习了。
谢谢分享。

jameszheng1981

好东东

xinye5460

学到两个函数。呵呵。