如何使用RegEx匹配VBA中的简单数字模式

Question

如何检查字符串是一位数字还是两位数字,否则返回false？

Answer 1

怎么样:

Function OneOrTwo(i As Integer) As Boolean
Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.IgnoreCase = True
objRegEx.Global = True

objRegEx.Pattern = "^\d{1,2}$"

OneOrTwo = objRegEx.Test(i)
End Function

请参阅:http://msdn.microsoft.com/en-us/library/ms974570.aspx

Answer 2

您也可以使用VBA LIKE执行此操作:

Function OneOrTwo(Digits As Variant) As Boolean
    OneOrTwo = Digits Like "#" Or Digits Like "##"
End Function