主题：[求助]if判断语句出错

代码没有问题，上例子看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

，老师同时帮我看看字符串提取和数字提取问题

判断出错，同时老师帮我看看字符串提取和数字提取

Select Case e.DataCol.Name
    Case "访客来源"
        Dim Arys1 As List(Of String())
        Arys1 = DataTables("信息库").GetValues("搜索工具|工具", "搜索工具 is not null")
        Dim str As String = e.DataRow("访客来源")
        Dim flag As Boolean = True
        For Each Ary As String() In Arys1
            If str.Contains(Ary(0)) Then
                e.DataRow("搜素工具") = Ary(1)
                flag = False
            End If
        Next
        If flag Then e.DataRow("搜素工具") ="电脑"
End Select

Select Case e.DataCol.Name     Case "访客来源"         Dim Arys1 As List(Of String())         Arys1 = DataTables("信息库").GetValues("搜索工具|工具", "搜索工具 is not null")         Dim str As String = e.DataRow("访客来源")         Dim flag As Boolean = True         For Each Ary As String() In Arys1             If str.Contains(Ary(0)) Then                 e.DataRow("搜素工具") = Ary(1) 老师此处怎么不能用else                 flag = False             End If         Next         If flag Then e.DataRow("搜素工具") ="电脑" End Select 老师关于数字和字符怎么分别提取

你要比较的是所有的arys内容，只有全部比较完成，才能得到结果。

老师辛苦了，这么晚都没休息，老师有没有关于数字和字符串混合在一起，但要从中字符串和数字分别提取代码怎么写，上传实例已有样式，谢谢老师

 参考

 

Dim str As String = "啊啊啊123哦哦哦456"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[^0-9]+")
For i As Integer = 0 To mc.count-1
    output.show(mc(i).value)
Next

 

---------

 

Dim str As String = "啊啊啊123哦哦哦456"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+")
For i As Integer = 0 To mc.count-1
    output.show(mc(i).value)
Next

老师这是正则吗？帮助里有相关内容吗？