以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合成的字符串如何转换成逻辑表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109113)
--  作者：xujie80
--  发布时间：2017/11/4 15:21:00
--  合成的字符串如何转换成逻辑表达式

常量Group的值为a

Dim group as string = “a”

If group = “a” or group = “b” or group = “c” then

Msgbox(1)

End if

条件成立

如果象下而定样合成，就会成为一个字符串，如何将其转换为逻辑表达式？

Dim s As String

Dim group As String = "a"

Dim names() As String = {"a","b","c"}

For Index As Integer = 0 To names.Length - 1

    s = s & " group = """ & names(Index) & """ Or "

Next

s = s.TrimEnd(" ")

s = s.TrimEnd("r")

s = s.TrimEnd("O")

msgbox(s)

If s Then

msgbox(1)

End If
--  作者：有点蓝
--  发布时间：2017/11/4 15:50:00
--  
Dim group As String = "a"
Dim names() As String = {"a","b","c"}
If Array.IndexOf(names, group) > -1 Then
    msgbox(1)
End If