在Excel VBA中使用正则表达式
Loading ...正则表达式是一种强大的工具，也有人称之为一门语言。今天，学习了一些正则表达式的知识以及在Excel中使用正则表达式（Regular Expression）的知识，先记录下来，方便以后进一步学习。
首先，引用Microsoft VBScript Regular Expressions 5.5类库。
然后，在标准模块中输入下面的代码进行测试：
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
运行Test过程后，将输出“yes”。
上面是一个很简单的例子。接下来，将结合正则表达式知识的学习并看几段程序，进一步认识正则表达式的使用。这些程序都是在vbaexpress、dicks-blog等Excel论坛和博客中找到的。
Technorati 标签: Regular Expressions,正则表达式,Excel VBA
发表评论