以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教两问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53426)
--  作者：hbhb
--  发布时间：2014/7/7 19:15:00
--  请教两问题
1、代码中的“、” 如何写
2、select case 语句中 的判断中能否用like判断通配符“*”  ，如果要判断如何写？
--  作者：y2287958
--  发布时间：2014/7/7 19:26:00
--  
1、http://www.foxtable.com/help/topics/1273.htm
2、直接不可以，可以通过加入if判断
--  作者：hbhb
--  发布时间：2014/7/7 19:49:00
--  
如果要判断的字符串很多100多个如何写？
--  作者：有点甜
--  发布时间：2014/7/8 9:34:00
--  
以下是引用hbhb在2014-7-7 19:49:00的发言：
如果要判断的字符串很多100多个如何写？

 

呃，如果是这种，就考虑用循环+数组（或集合）去判断了。
--  作者：hbhb
--  发布时间：2014/7/8 11:19:00
--  
代码如何写？

--  作者：有点甜
--  发布时间：2014/7/8 11:21:00
--  

 有具体需求，才有具体代码。

 

 不同的变化，代码不同。
--  作者：hbhb
--  发布时间：2014/7/8 12:03:00
--  
字符串集合1（"*a","*b","*张","王*","李？","m*","k*","*t","o*","r*"........100多个)
判断一字符串2（"dsa","dst","张成","张国涛","林彪","李立三","to")
如果字符串2不属于字符串1，在表a中查找此行，如果找到，在表a中的“是否是叛徒”列 的值为真

请教大师如何写代码？
--  作者：有点甜
--  发布时间：2014/7/8 12:14:00
--  
Dim arys1() As String = {"a*", "*b", "c"}
Dim arys2() As String = {"aaa", "ccb"}
For Each ary2 As String In arys2
    Dim flag As Boolean = False
    For Each ary1 As String In arys1
        If ary2 Like ary1 Then
            flag = True
            Exit For
        End If
    Next
    output.Show(flag)
Next
--  作者：hbhb
--  发布时间：2014/7/8 12:49:00
--  
谢谢！