如何将运算符字符串转为代码？ - vb吧

level 1

iambn_ 楼主

例如
dim i as long
i=4
dim str as string
str = "<=5"
如何将上面的str转成代码，和i一起返回 TRUE的结果？
多谢

2023年10月01日 05点10分 1

level 8

tbzp666

?
两个赋值语句

2023年10月01日 07点10分 2

level 8

tbzp666

i or str

2023年10月01日 07点10分 3

吧务

level 14

总裁大人👻

可以用Scriptcontrol

2023年10月01日 07点10分 4

level 5

hoyogoo

Private Sub Command1_Click()
Dim i As Long
i = 4
Dim str As String
str = ">=5"
Dim temp1 As String
Dim temp2 As String
Dim res As Boolean
temp1 = Replace(str, ">", "")
temp1 = Replace(temp1, "<", "")
temp2 = Replace(temp1, "=", "")
temp1 = Replace(str, temp2, "")
If IsNumeric(temp2) = True Then
Select Case temp1
Case ">"
If i > Int(temp2) Then
res = True
Else
res = False
End If
Case "<"
If i < Int(temp2) Then
res = True
Else
res = False
End If
Case "="
If i = Int(temp2) Then
res = True
Else
res = False
End If
Case ">="
If i >= Int(temp2) Then
res = True
Else
res = False
End If
Case "<="
If i <= Int(temp2) Then
res = True
Else
res = False
End If
End Select
MsgBox res
End If
End Sub

2023年10月08日 04点10分 5

level 15

初音✨七奈

简化一下5楼代码
Private Sub Command1_Click()
Dim i As Long
i = 4
Dim str As String
str = ">=5"
Dim temp1 As String
Dim temp2 As String
Dim res As Boolean
temp1 = Replace(str, ">", "")
temp1 = Replace(temp1, "<", "")
temp2 = Replace(temp1, "=", "")
temp1 = Replace(str, temp2, "")
If IsNumeric(temp2) Then
Select Case temp1
Case ">"
res = i > Int(temp2)
Case "<"
res = i < Int(temp2)
Case "="
res = i = Int(temp2)
Case ">="
res = i >= Int(temp2)
Case "<="
res = i <= Int(temp2)
End Select
MsgBox res
End If
End Sub

2023年10月08日 12点10分 6