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

百货名称       销售种类                                                         销售产品
第一百货    台式电脑，电视机，手机                         惠普台式电脑，索尼电视机，夏普电视机，华为手机，小米手机                            
第二百货    笔记本电脑，电视机，手机，洗衣机     华硕笔记本电脑，创维电视机，iphone手机，海尔洗衣机                            
第三百货    笔记本电脑，电视机                              联想笔记本电脑，戴尔笔记本电脑，松下电视机，海尔电视机                            
第四百货    台式电脑，音响                                苹果电脑一体机，Bose音响                            
第五百货    台式电脑，笔记本电脑，电视机           联想台式电脑，联想笔记本电脑，海尔电视机                            
第六百货    台式电脑，手机                                   惠普台式电脑，小米手机，联想手机                            
第七百货    洗衣机，手机，电视机                         海尔洗衣机，iphone手机，华为手机，vivo手机，松下电视机                


请教老师，如何从销售产品列中判断是否包含相关关键字，自动填入销售种类列？  （抱歉，我的电脑无法贴图及添加附件）         

参考代码

 

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

 请教老师，关键字能否用数组或集合，方便今后维护升级？不好意思，我是菜鸟

 类别关键字，可以单独存放在一个表里面。

 上述代码测试结果：海尔洗衣机,iphone手机,华为手机,vivo手机,松下电视机均符合,“测试”不符合。
我想加入模糊判断功能，比如苹果电脑一体机，上述代码测试不符合，但如果将电脑一体机归类到台式机，怎样设计代码，让它符合呢？

做一个关键字匹配表格吧。

 

【关键字】  【归类】

电脑            台式机

一体机         台式机

 

直接查这个表得到归类。

我上传项目文件了，请老师进一步明示，我是菜鸟

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

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

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

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

非常感谢老师。问题解决了。