读书人

一个小疑点^

发布时间: 2012-01-15 22:57:48 作者: rapoo

一个小问题^^^^^
有一个字符串 "[aaa]+[bbb]*0.5 "

怎么样变成 1aaa+1bbb*0.5


[解决办法]
如果格式肯定是这样的
那么
dim a as variant
dim s,s1,s2,s3 as stting

s= "[aaa]+[bbb]*0.5 "
s=replace(s, "[ ", "1 ")
s=replace(s, "] ", " ")


s1=split(s, "+ ")(0)
s3=split(s, "+ ")(1)
s2=split(s3, "* ")(0)
s3=split(s3, "* ")(1)

msgbox val(s1)+val(s2)*val(s3)

[解决办法]
aaa,bbb应该对应数值,把字符串改成计算表达式。
1000+val(aaa)+(1000+val(bbb))*0.5
是否这样?

读书人网 >VB

热点推荐