请高手指教如何将字符串转化成表达式

whongbo123

下面的代码中的or和and本来是字符型的数据，为了与它们连接，我把ture,false 从逻辑型转换成字符型的，然后有下面的式子，我本来的目的是根据三个条件的计算后的逻辑值执行另外的代码，
val("True or False or False")

请高手帮忙看看，另外，or是从下拉框中取值得来的，也有可能变成and.

cflood

我也想知道。

whongbo123

对了，上面的代码我本来用的是evaluate("True or False or False"),但是系统提示出错

lb_bn

转成字符串用+ 和 *连接可计算。
或者不用转成什么字符串。

whongbo123

谢谢楼上的，不过不是这样，代码中的false和true都是根据用户检索的条件随时变化的，用户选择and或者or来连接不同的检索条件，所以也是变化的，实际上就是多个条件的联合判断结果决定代码执行与否，我实在找不出别的办法了

lb_bn

情况还是很少的，可以用if或select case。

whongbo123

关键是可能存在5个以上的表达式连接在一起判断啊~~~

lb_bn

这样：

Sub bbb()
    s1 = "true"
    s2 = "true"
    s3 = "false"
    l1 = "and"
    l2 = "or"
    str1 = s1 & l1 & s2 & l2 & s3
    MsgBox CBool(Evaluate(Replace(Replace(str1, "or", "+", , , vbTextCompare), "and", "*", , , vbTextCompare)))
End Sub

[ 本帖最后由 lb_bn 于 2010-3-3 20:28 编辑 ]

上清宫主

学习楼上。
我的做法：
Dim s As Boolean
s = Evaluate("1 + 1 + 0")
其中true为1（其实非0即可），false为0，and为*，or 为+

lb_bn

想了一下，这样还是不对。
不知楼主这个字串原来是怎么连起来的？
可以在连的时候就算的。