1. 啟動 Microsoft Visual Basic 6.0。
2. 在“文件”菜單上，單擊“新建項目”。
3. 在“新建項目”對話框中，單擊“Standard Exe”，然后單擊“確定”。
默認情況下將創建 Form1。
4. 在“項目”菜單上單擊“引用”。
5. 雙擊“Microsoft VBScript Regular Expressions 5.5”，然后單擊“確定”。
6. 在工具箱中，雙擊“命令按鈕”。
默認情況下，“Command1”將添加到窗體中。
7. 雙擊“Command1”以打開代碼窗口。
8. 將下面的代碼粘貼到“Command1_Click”事件處理程序：MsgBox(TestRegExp(“is.”, “IS1 is2 IS3 is4″))
注意 這個示例中將對照“IS1 is2 IS3 is4”字符串檢查 is. 模式。您可以將句點這一特殊字符(.)用作通配符，這樣，搜索模式就能夠多匹配並多顯示一個字符。如果www.x-force.cn您在搜索模式中添加兩個句點，您會看到兩個其他字符。如果您不使用任何句點，您只會看到搜索模式。
9. 將以下函數添加到“Command1_click”事件處理程序后：
[codes=vb]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[/codes]
10. 在“運行”菜單上，單擊“啟動”來運行該應用程序。
11. 單擊“Command1”。
此時將出現一個消息框，該消息顯示 IS1 is2 IS3 is4 字符串中的所有 is 匹配項。