关于判断某个字符串有没有某些字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于判断某个字符串有没有某些字符

共有1814人关注过本帖树形打印复制链接主题：关于判断某个字符串有没有某些字符

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/19 15:42:00 [显示全部帖子]

txt.Value的值是什么？单个序列号，还是多个序列号。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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)

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：关于判断某个字符串有没有某些字符