以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教两问题  (http://foxtable.net/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
--  
谢谢!