vba - 在 VBA 中检查字符串中的模式

Question

我的要求是我需要检查一个字符串变量是否有第一个字符“P”后跟数字。

例如

P0
P123
P22

到目前为止，我已经根据 here 查看了使用 Like 的选项.

Answer 1

你可以使用一个简单的正则表达式:

Function strOut(strIn As String) As String
    Dim objRegex As Object
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Pattern = "^P\d+$"
        strOut = .Test(strIn)
    End With
End Function

测试代码

Sub Test()
Debug.Print strOut("P22")
Debug.Print strOut("aP22")
Debug.Print strOut("P12344")
End Sub