主题：[求助][求助] 如何在一个字段中显示另一个字段中是否包含关键字

参考代码

Dim str1 As String = "洗衣机,手机,电视机"
Dim str2 As String = "海尔洗衣机,iphone手机,华为手机,vivo手机,松下电视机,测试"
For Each s2 As String In str2.split(",")
    Dim flag As Boolean = False
    For Each s1 As String In str1.split(",")
        If s2.contains(s1)  Then
            flag = True
            Exit For
        End If
    Next
    If flag Then
        msgbox(s2 & "符合")
    Else
        msgbox(s2 & "不符合")
    End If
Next