Nicelabel 5.0中VBScript区分FISH与SHELLFISH过敏原显示问题

在Nicelabel 5.0里用VBScript处理过敏原标签时，直接用InStr判断FISH和SHELLFISH会遇到问题——当字符串同时包含两者时，因为FISH是SHELLFISH的子串，无法正确识别两者都存在的情况，比如示例字符串：

CONTAINS: EGG, FISH(SALMON), SHELLFISH(OYSTERS)

解决方案思路 #

核心是精准匹配独立的过敏原项，而非单纯检测子串。以下是两种可行实现方式：

方式1：拆分字符串逐个比对

把过敏原字符串按逗号拆分，遍历每个项并去除前后空格，分别判断是否为FISH或SHELLFISH项，避免子串干扰：

Dim allergensStr, allergenItems, i, hasFish, hasShellfish
allergensStr = "CONTAINS: EGG, FISH(SALMON), SHELLFISH(OYSTERS)"

' 按逗号拆分过敏原列表
allergenItems = Split(allergensStr, ",")

hasFish = False
hasShellfish = False

For i = 0 To UBound(allergenItems)
    Dim item
    item = Trim(allergenItems(i))
    
    ' 匹配FISH项（排除SHELLFISH的前缀干扰）
    If Left(item, 4) = "FISH" And Left(item, 9) <> "SHELLFISH" Then
        hasFish = True
    End If
    
    ' 匹配SHELLFISH项
    If Left(item, 9) = "SHELLFISH" Then
        hasShellfish = True
    End If
Next

' 控制标签上的图标显示（替换为你实际的控件名称）
FishIcon.Visible = hasFish
ShellfishIcon.Visible = hasShellfish

方式2：使用正则表达式精准匹配

利用正则的边界匹配规则，确保只识别独立的FISH和SHELLFISH项：

Dim regEx, allergensStr, hasFish, hasShellfish
allergensStr = "CONTAINS: EGG, FISH(SALMON), SHELLFISH(OYSTERS)"

Set regEx = New RegExp
regEx.IgnoreCase = True ' 根据需求决定是否忽略大小写

' 匹配独立的FISH（后面紧跟括号，避免匹配SHELLFISH中的FISH）
regEx.Pattern = "\bFISH\("
hasFish = regEx.Test(allergensStr)

' 匹配SHELLFISH
regEx.Pattern = "\bSHELLFISH\("
hasShellfish = regEx.Test(allergensStr)

' 控制图标显示
FishIcon.Visible = hasFish
ShellfishIcon.Visible = hasShellfish

说明 #

拆分字符串的方式更直观，适合新手理解；正则表达式则更简洁，适配复杂匹配场景，可根据实际需求选择。

内容的提问来源于stack exchange，提问作者4LabelsuseZPL