Question

VB 如何判断输入在text1中输入的条件，返回True或False值

例1：在text1输入"0>1"，那么单击Command1之后就有提示框提示"False"。
例2：在text1输入"(5+9)*1=14"，单击Command1之后提示"True"。
例3：在text1输入'text1.text<>""'，单击Command1之后提示"True"。
总之，就是类似If语句中的条件语句一样，能够判断条件语句。

Answer 1

前面两个是可以实现的。
例3因为涉及到VB源码的问题，在已经编译完成的exe中是无法实现的。
现在告知你如何实现例1、例2.
-------------------------------
在“工具箱”右击->部件 在打开的 控件 中找到 Microsoft Script Control 打上对钩。
确定 后 在工具箱后面会出现一个 新的控件。双击该控件 将其加入 窗体。
然后就可以在代码中引用
ScriptControl1.Eval(Text1.Text)来计算表达式的值了。
例如：
a=ScriptControl1.Eval("0>1")
那么 a 的值 就会是True。
然后你就可以用a输出了。

这里说一下，此控件不仅可以判断表达式，还可以计算表达式的值：
如a=ScriptControl1.Eval("6+7")
a就会是13了。

当然这个对象的名字可以修改。
------------------------------------

Answer 2

"(5+9)*1=14"的表达式，没办法识别。

Answer 3

Private Sub Command1_Click()
If Text1.Text = "0>1" Then MsgBox "False"
If Text1.Text = "(5+9)*1=14" Then MsgBox "True"
If Text1.Text = "Text1.Text <> X" Then MsgBox "True"
End Sub

Answer 4

都可以实现的。但是要用到vbcript解析功能。就是用VB来执行vbscript. 实际是调用系统的vbcript引擎来执行。

在CSDN网站可以找到这类源码。我以前用过。

Answer 5

"0>1"是字符串，不是关系运算判断，必须转换为关系运算表达式；

"(5+9)*1=14" 运算表达式的判断是非常麻烦的，牵扯数字、运算符、括号等，必须将表达式转换成VB能够识别的运算表达式才能够确定 True 或 False ；

'text1.text<>""' 也不是简单的使用字符串的判断就能够进行判断的。

情况1、
首先检测是否有关系运算符，如果有就是关系运算表达式，转换为关系运算表达式；

情况2、
判断是否有算术运算符，如果有基本可以确定是算术运算，转换为算术运算表达式；

情况3、
和1的情况相同，是关系运算表达式。