1. 啟動 Microsoft Visual Basic 6.0。

2. 在“文件”菜單上，單擊“新建項目”。

3. 在“新建項目”對話框中，單擊“Standard Exe”，然后單擊“確定”。

默認(rèn)情況下將創(chuàng)建 Form1。

4. 在“項目”菜單上單擊“引用”。

5. 雙擊“Microsoft VBScript Regular Expressions 5.5”，然后單擊“確定”。

6. 在工具箱中，雙擊“命令按鈕”。

默認(rèn)情況下，“Command1”將添加到窗體中。

7. 雙擊“Command1”以打開代碼窗口。

8. 將下面的代碼粘貼到“Command1_Click”事件處理程序：MsgBox(TestRegExp(“is.”, “IS1 is2 IS3 is4″))

注意 這個示例中將對照“IS1 is2 IS3 is4”字符串檢查 is. 模式。您可以將句點這一特殊字符(.)用作通配符，這樣，搜索模式就能夠多匹配并多顯示一個字符。如果www.x-force.cn您在搜索模式中添加兩個句點，您會看到兩個其他字符。如果您不使用任何句點，您只會看到搜索模式。

9. 將以下函數(shù)添加到“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. 在“運行”菜單上，單擊“啟動”來運行該應(yīng)用程序。

11. 單擊“Command1”。

此時將出現(xiàn)一個消息框，該消息顯示 IS1 is2 IS3 is4 字符串中的所有 is 匹配項。

原文鏈接：http://www.cnblogs.com/caiy007/archive/2012/05/08/2489553.html