VBA正则使用\b单词边界时如何匹配结尾带-的搜索关键词

问题原因 #

原代码固定在关键词前后拼接\b单词边界，而\b仅匹配「单词字符（字母、数字、下划线）」和「非单词字符」之间的位置：当搜索关键词结尾是-、空格这类非单词字符时，如果目标文本中关键词后续也是非单词字符，两者之间不存在单词边界，就会匹配失败。

解决方案 #

根据关键词首尾字符的类型动态判断是否需要加单词边界：

• 如果关键词首字符是单词字符，前面加\b避免嵌入其他单词
• 如果关键词尾字符是单词字符，后面加\b避免嵌入其他单词
• 如果首尾是非单词字符，无需加对应位置的\b

实现代码 #

首先加一个辅助函数判断字符是否为单词字符：

' 判断输入字符是否为正则定义的单词字符（字母、数字、下划线）
Function IsWordChar(char As String) As Boolean
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = "\w"
    IsWordChar = reg.Test(Left(char, 1))
End Function

然后替换原来的pattern拼接逻辑：

Dim pattern As String
' 处理前缀边界
If IsWordChar(Left(search_criteria, 1)) Then
    pattern = "\b" & search_criteria
Else
    pattern = search_criteria
End If
' 处理后缀边界
If IsWordChar(Right(search_criteria, 1)) Then
    pattern = pattern & "\b"
End If

匹配验证 #

对所有示例关键词场景都可以正常匹配：

• 关键词cats and dogs：首尾都是单词字符，拼接后为\bcats and dogs\b，和原有逻辑一致，可正常匹配i have cats and dogs
• 关键词dogs - ：首字符是单词字符、尾字符是空格（非单词），拼接后为\bdogs - ，可正常匹配dogs - sleeping
• cats - 、work - 、houses等其他类型关键词都可适配

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