VBA如何判断字符串首尾是否包含非字母数字特殊字符？

首先，咱们明确需求：要判断一个字符串是否以非字母数字字符（即除[A-Za-z0-9]之外的字符）开头或结尾，根据你给出的测试用例，只要满足其中一个条件就返回true，否则返回false。

正则表达式解决方案 #

你已经用了VBScript.RegExp的框架，这是非常合适的选择。只需要把正则模式写对就行，具体的pattern应该是：^[^A-Za-z0-9]|[^A-Za-z0-9]$

模式解释 #

• ^[^A-Za-z0-9]：匹配字符串开头的非字母数字字符（^表示字符串起始位置，[^...]表示匹配不在括号内的任意字符）
• |：逻辑或，满足任意一侧的条件即可匹配
• [^A-Za-z0-9]$：匹配字符串结尾的非字母数字字符（$表示字符串结束位置）

补全后的完整代码如下：

Function testString(paramString As String) As Boolean
    Dim rg As Variant
    Set rg = CreateObject("VBScript.RegExp")
    rg.Pattern = "^[^A-Za-z0-9]|[^A-Za-z0-9]$"
    testString = rg.test(paramString)
End Function

咱们来验证你的测试用例：

• testString("#Testing") → 开头是#（非字母数字）→ 返回true
• testString("Testing\") → 结尾是\（非字母数字）→ 返回true
• testString("#Testing)") → 开头和结尾都是特殊字符 → 返回true
• testString("Tes#ting~") → 结尾是~（非字母数字）→ 返回true
• testString("Tes#ting") → 开头和结尾都是字母，中间的#不影响 → 返回false
• testString("Testing") → 首尾都是字母 → 返回false

完全符合你的预期结果。

非正则替代方案 #

如果不想用正则，也可以用VBA的内置函数直接判断首尾字符：

Function testString(paramString As String) As Boolean
    If Len(paramString) = 0 Then
        testString = False ' 空字符串根据需求调整，这里默认返回false
        Exit Function
    End If
    
    Dim firstChar As String, lastChar As String
    firstChar = Left(paramString, 1)
    lastChar = Right(paramString, 1)
    
    ' 判断第一个字符是否是非字母数字，或者最后一个字符是非字母数字
    testString = Not (firstChar Like "[A-Za-z0-9]") Or Not (lastChar Like "[A-Za-z0-9]")
End Function

这个方案利用Like操作符匹配字母数字范围，逻辑更直观，适合简单场景。

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