1,216
社区成员
发帖
与我相关
我的任务
分享能实现这个表达式吗
a1=123
a2="<232"
if a1 & a2 then
......
我的a1与a2都是表达式变量，a1里存的是数字型，a2里存放带比较运算符的字符型，有什么方法能实现以上表达的正确比较
a2="<232"
if a1 & a2 then
......
我的a1与a2都是表达式变量，a1里存的是数字型，a2里存放带比较运算符的字符型，有什么方法能实现以上表达的正确比较
...全文
请发表友善的回复…
发表回复
northwolves 2004-08-23
- 打赏
- 举报
Private Sub Command1_Click()
Dim a1 As Integer, a2 As String
a1 = 123
a2 = "<232"
Dim obj As Object
Set obj = CreateObject("MSScriptControl.ScriptControl")
obj.Language = "vbscript"
If obj.Eval(a1 & a2) Then MsgBox a1 & a2
End Sub
Dim a1 As Integer, a2 As String
a1 = 123
a2 = "<232"
Dim obj As Object
Set obj = CreateObject("MSScriptControl.ScriptControl")
obj.Language = "vbscript"
If obj.Eval(a1 & a2) Then MsgBox a1 & a2
End Sub
Andy__Huang 2004-08-23
- 打赏
- 举报
這個只能做字符串比較，不能做數據比較,先把a1轉換成字符串，然後再比較
?"123">">232"
flase
?"123">">232"
flase
zyl910 2004-08-23
- 打赏
- 举报
A:自己分析字符串，对于这个问题还是很简单的
B:使用脚本分析类的控件
B:使用脚本分析类的控件
thirdapple 2004-08-23
- 打赏
- 举报
其实就直接Left函数取得比较符就可以了
大韩 2004-08-23
- 打赏
- 举报
有没有更简单的方法
_l_ 2004-08-23
- 打赏
- 举报
能做
你参照下 http://jinesc.6600.org/bbs/disp.asp?idd=58612&room=111
3楼以后的回复
你参照下 http://jinesc.6600.org/bbs/disp.asp?idd=58612&room=111
3楼以后的回复
