- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于判断某个字符串有没有某些字符 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83905)
-- 发布时间：2016/4/19 15:41:00
-- 关于判断某个字符串有没有某些字符
我用这个，ro("序列号“）里面是以逗号分隔的一些序列号，我想判断包不包括一些序列号，我这样写查不出来啊，怎么回事？就是查询一个序列号一部分时候
此主题相关图片如下：1.png
-- 发布时间：2016/4/19 15:42:00
--
txt.Value的值是什么？单个序列号，还是多个序列号。
-- 发布时间：2016/4/19 15:47:00
--
这样的一些，逗号分隔的字符串
此主题相关图片如下：2.png
-- 发布时间：2016/4/19 15:47:00
--
Dim str1 As String = "1,2,3,4,5"
Dim str2 As String = "5,4"
Dim ary1() As String = str1.Split(",")
Dim ary2() As String = str2.Split(",")
Dim flag As Boolean = True
For Each s As String In ary2
If array.indexof(ary1, s) < 0 Then
flag = False
Exit For
End If
Next
msgbox(flag)
-- 发布时间：2016/4/19 15:55:00
--
这是啥东西？我是判断一个字符串里面有没有某个序列号一部分，例如我扫码的序列号是1166,2277,3388,4499，现在我要检查这个字符串里面有没有99，如果有就找出来这一样，显然应该有啊，但是现在我这样写代码结果是没有
-- 发布时间：2016/4/19 16:02:00
--
Dim str1 As String = "1166,2277,3388,4499"
Dim str2 As String = "99,88"
Dim ary1() As String = str1.Split(",")
Dim ary2() As String = str2.Split(",")
For Each s2 As String In ary2
For Each s1 As String In ary1
If s1.Contains(s2) Then
msgbox(s1 & " " & s2)
End If
Next
Next