主题：[求助]字符串是否包含数组关键字

'''

Dim str As String = "根据《行政诉讼法》第三条第二款之规定"

Dim lst As New List(of String)

lst = Tables("表A").Current.DataRow.Lines("第一列")

For Each ls As String In lst

    Dim ss() As String = ls.Split("、")

    Dim p As Boolean = True

    For i As Integer =  0 To ss.count - 1

        If str.Contains(ss(i)) = False Then

            p = False

            Exit For

        End If

    Next

    If p Then

        msgbox（true）

        Exit For

    End If

Next