在Excel2007 VBA中使用正则表达式

   1: Option Explicit

   2:  

   3: Sub Test()

   4:     Dim strPhone As String

   5:     

   6:     strPhone = “719-499-2312″

   7:     

   8:     If qstr_BeginsWith(strPhone, “719″) Then

   9:         Debug.Print “yes”

  10:     Else

  11:         Debug.Print “no”

  12:     End If

  13:     

  14: End Sub

  15:  

  16: Function qstr_BeginsWith(strMain As String, strPart As String) As Boolean

  17:     Dim reg As New VBScript_RegExp_55.RegExp

  18:     reg.Pattern = strPart

  19:     qstr_BeginsWith = reg.Test(strMain)

  20: End Function