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

自行调试

For Each s As String In ary    '遍历段落
            If s.trim() > "" Then

output.show(ls.count & " = " & s)

                ls.add(s)    '将段落加入集合

                For Each s1 As String In str1.split("|")      '判断是否包含st1关键字

output.show("s1 = " & s1)

                    Dim ss1() As String = s1.Split("、")
                    Dim lst1 As New List(of String)           '关键字新集合
                    lst1.AddRange(ss1)
                    Dim p As Boolean = True
                    For i As Integer =  0 To lst1.count - 1
                        If s.Contains(lst1(i)) = False Then

output.show("包含 = " & lst1(i))
                            p = False‘表示找到，这里p=false
                            Exit For
                        End If
                    Next

output.show("p = " & p)
                    If p Then 'p=true，这里表示的是没有找到
                        ' msgbox(true)
                        i1 = ls.count-1
                        msgbox（i1）
                        Exit For
                    End If
                Next
                
            End If
        Next