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

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

你要比较的是所有的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

 

http://www.w3cschool.cn/regexp/2yjd1pq6.html