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

whongbo123

按照这样的逻辑算出来结果不对啊....    下面的validation是一个自定义函数，返回一个逻辑值，ComboBox6.Value 和ComboBox5.Value的值是字符型，用户可以在这两个下拉框中选择and或者or

        For j = Fir_row + 1 To Row_Num
            '得到三个个条件的值
                Criteria = Validation(.Cells(j, Name_head), ComboBox1.Value, TB1.Value)
                Criteria1 = Validation(.Cells(j, Name_Head1), ComboBox2.Value, TB2.Value)
                Criteria2 = Validation(.Cells(j, Name_Head2), ComboBox3.Value, TB3.Value)
                '判断三个条件需要同时具备还是满足一个即可
                S_result = CStr(Criteria) & Space(1) & ComboBox5.Value & Space(1) & CStr(Criteria1) & Space(1) & ComboBox6.Value & Space(1) & CStr(Criteria1)
                Criteria = CBool(Evaluate(Replace(Replace(S_result, "or", "+", , , vbTextCompare), "and", "*", , , vbTextCompare)))
                If Criteria Then
                    .Rows(j).Copy Sheets(Result_Data).Rows(i)
                    i = i + 1
                End If

lb_bn

这个可行：

Sub bbb()
    s1 = "true"
    s2 = "true"
    s3 = "false"
    l1 = "or"
    l2 = "and"
    str1 = s1 & l1 & s2 & l2 & s3
    str1 = Replace(WorksheetFunction.Trim(str1), " ", "")
    str1 = Replace(str1, "true", 1, , , vbTextCompare)
    str1 = Replace(str1, "false", 0, , , vbTextCompare)
    str1 = Replace(str1, "and", "*", , , vbTextCompare)
    str1 = Replace(str1, "or", "+", , , vbTextCompare)
    str1 = "(" & Left(str1, 3) & ")" & Mid(str1, 4)
    MsgBox CBool(Evaluate(str1))

End Sub

[ 本帖最后由 lb_bn 于 2010-3-3 21:00 编辑 ]

lb_bn

试下11楼的代码。

joforn

用ScriptControl吧。

northwolves

1. 
   
2. Sub x()
   
3. MsgBox Stringtovalue("True or False or False")
   
4. MsgBox Stringtovalue("int(4*atn(1))+array(1,2,3,4,5)(4)+sqr(100)+len(""abcde"")")
   
5. End Sub
   
6. 
   
7. Function Stringtovalue(ByVal s As String)
   
8. With CreateObject("msscriptcontrol.scriptcontrol")
   
9. .Language = "vbscript"
   
10. .addcode "function a(s):a=" & s & ":end function"
    
11. Stringtovalue = s & "=" & .Run("a", s)
    
12. End With
    
13. End Function
    

复制代码

lb_bn

谢谢狼版指点。原来看了一次figfig老师的帖子，忘记了。

whongbo123

谢谢版主和by lb_bn的帮助，问题已经得到解决。Thans a million!