VB6.0 解析表达式
发布网友
发布时间：2022-05-03 01:21
共2个回答
热心网友
时间：2022-06-29 00:46
VB6本身没有这种类似宏的功能，可借助VBScript：
Private Sub Command1_Click()Dim YHstr As String, MSSC As Object
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
MSSC.addcode "Dim A, B, C"
MSSC.addcode "A = 40"
MSSC.addcode "B = ""解析字符串"""
MSSC.addcode "C = ""测试"""
YHstr = "(A = 40 And instr(B,""字符"")>0) Or C = ""测试"""
If MSSC.eval(YHstr) Then
MsgBox "成立！"
Else
MsgBox "不成立！"
End If
Set MSSC = Nothing
End Sub
由于VBScript不支持Like运算符，所以改成Instr函数了
热心网友
时间：2022-06-29 00:46
真 and 假 结果为假
假 and 假 结果为假
and 相当于乘法，只要其中一个为假（0），结果就为假。
真 or 真 结果为真
真 or 假 结果为真
假 or 假 结果为假
or 相当于加法，只要其中一个为真（1），结果就不为0（假），结果为真。追问我问的是如何解析表达式,不是你说的 那个判断,是将一整句字符串表达式解析出来,并判断
