步示例
1. 啟動(dòng) Microsoft Visual Basic 6.0。
2. 在“文件”菜單上，單擊“新建項(xiàng)目”。
3. 在“新建項(xiàng)目”對(duì)話框中，單擊“Standard Exe”，然后單擊“確定”。
默認(rèn)情況下將創(chuàng)建 Form1。
4. 在“項(xiàng)目”菜單上單擊“引用”。
5. 雙擊“Microsoft VBScript Regular Expressions 5.5”，然后單擊“確定”。
6. 在工具箱中，雙擊“命令按鈕”。
默認(rèn)情況下，“Command1”將添加到窗體中。
7. 雙擊“Command1”以打開代碼窗口。
8. 將下面的代碼粘貼到“Command1_Click”事件處理程序：MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4"))
注意 這個(gè)示例中將對(duì)照“IS1 is2 IS3 is4”字符串檢查 is. 模式。您可以將句點(diǎn)這一特殊字符（.）用作通配符，這樣，搜索模式就能夠多匹配并多顯示一個(gè)字符。如果您在搜索模式中添加兩個(gè)句點(diǎn)，您會(huì)看到兩個(gè)其他字符。如果您不使用任何句點(diǎn)，您只會(huì)看到搜索模式。
9. 將以下函數(shù)添加到“Command1_click”事件處理程序后：Function TestRegExp(myPattern As String, myString As String)
''Create objects.
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String
'' Create a regular expression object.
Set objRegExp = New RegExp
''Set the pattern by using the Pattern property.
objRegExp.Pattern = myPattern
'' Set Case Insensitivity.
objRegExp.IgnoreCase = True
''Set global applicability.
objRegExp.Global = True
''Test whether the String can be compared.
If (objRegExp.Test(myString) = True) Then
''Get the matches.
Set colMatches = objRegExp.Execute(myString) '' Execute search.
For Each objMatch In colMatches '' Iterate Matches collection.
RetStr = RetStr & "Match found at position "
RetStr = RetStr & objMatch.FirstIndex & ". Match Value is ''"
RetStr = RetStr & objMatch.Value & "''." & vbCrLf
Next
Else
RetStr = "String Matching Failed"
End If
TestRegExp = RetStr
End Function
10. 在“運(yùn)行”菜單上，單擊“啟動(dòng)”來運(yùn)行該應(yīng)用程序。
11. 單擊“Command1”。
此時(shí)將出現(xiàn)一個(gè)消息框，該消息顯示 IS1 is2 IS3 is4 字符串中的所有 is 匹配項(xiàng)。
