vb中使用正則表達式

步示例
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. 模式。您可以將句點這一特殊字符（.）用作通配符，這樣，搜索模式就能夠多匹配并多顯示一個字符。如果您在搜索模式中添加兩個句點，您會看到兩個其他字符。如果您不使用任何句點，您只會看到搜索模式。
9. 將以下函數添加到“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. 在“運行”菜單上，單擊“啟動”來運行該應用程序。
11. 單擊“Command1”。

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

原文轉自：http://www.anti-gravitydesign.com