您目前已離線,請等候您的網際網路重新連線

如何在 Microsoft Visual Basic 6.0 中使用規則運算式

如需本文的 Microsoft Visual Basic .NET 版本,請參閱 301264
如需本文的 Microsoft Visual C# .NET 版本,請參閱 308252

本文內容

結論
本文將逐步告訴您,如何建立規則運算式,以及如何使用規則運算式,以判斷字串是否符合特定模式。規則運算式允許根據特定字串模式對字串進行簡單的剖析與比對。如果您使用 Microsoft VBScript Regular Expressions 5.5 程式庫中提供的物件,則可以將字串與特定模式做比較、使用其他字串取代字串模式,或者只擷取部份的格式化字串。本文將告訴您,如何建構模式,以剖析包含多個相同模式執行個體的字串。

回到頁首

需求


下面清單列出了建議使用的硬體、軟體、網路基礎架構以及所需安裝的 Service Pack:
  • Microsoft Visual Basic 6.0
本文假設您已熟悉下列主題:
  • Visual Basic 6.0
  • 規則運算式語法
回到頁首

使用規則運算式以符合模式



在 Visual Basic 6.0 中,RegExp 物件會使用規則運算式以符合模式。RegExp 提供下列屬性。這些屬性會設定模式,以比較傳遞給 RegExp 執行個體的字串:
  • Pattern:定義規則運算式的字串。
  • IgnoreCase:Boolean 屬性,指示您是否必須根據字串中所有可能的符合項目測試規則運算式。
  • Global:設定 Boolean 值或傳回 Boolean 值,指示模式是否必須符合整個搜尋字串中的所有位置,或模式是否只要符合第一次出現的位置。
RegExp 提供下列方法,以判斷字串是否符合規則運算式的特定模式:
  • Test:傳回 Boolean 值,指示規則運算式是否完全地符合字串。
  • Execute:傳回 MatchCollection 物件,其中包含每個完全符合項目的 Match 物件。
如果要使字串與規則運算式相符,請依照下列步驟執行:
  1. 使用 RegExp 物件的 Pattern 方法,設定規則運算式。
  2. 取得要以模式檢查的字串。
  3. RegExp 物件的 IgnoreCase 屬性設定為 True
  4. 將您在步驟 2 中取得的字串當做引數傳遞至 RegExp 物件的 Execute 方法。
  5. Execute 方法的傳回值指派給 MatchCollection 物件。

    MatchCollection 物件包含有關符合字串的資訊。

注意 您也可以使用 Test 方法,以判斷字串是否符合特定的規則運算式。

回到頁首

逐步範例

  1. 啟動 Microsoft Visual Basic 6.0。
  2. [檔案] 功能表上,按一下 [新增專案]
  3. 按一下 [新增專案] 對話方塊中的 [標準 EXE],然後按一下 [確定]

    根據預設會建立 Form1。
  4. [專案] 功能表上,按一下 [參考]
  5. 按兩下 [Microsoft VBScript Regular Expressions 5.5],然後按一下 [確定]
  6. 在工具箱中,按兩下 [CommandButton]

    根據預設,[Command1] 會新增至表單。
  7. 按兩下 [Command1],以開啟程式碼視窗。
  8. 將下列程式碼貼入至 Command1_Click 事件處理常式:
    MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4"))
    注意 在這個範例中,is. 模式會針對 "IS1 is2 IS3 is4" 字串進行檢查。您可以使用特殊字元句點 (.),做為萬用字元,如此就會有另一個字元與搜尋模式相符。如果在搜尋模式中加入兩個句點,您就會看到另外兩個字元。如果沒有使用任何句點,您便只會看到搜尋模式。
  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 = RetStrEnd Function
  10. [執行] 功能表上,按一下 [開始] 以執行應用程式。
  11. 按一下 [Command1]

    隨即會出現訊息方塊,傳回 IS1 is2 IS3 is4 字串中出現 is 的所有位置。
回到頁首
內容

文章識別碼:818802 - 最後檢閱時間:01/12/2007 06:50:24 - 修訂: 3.0

  • Microsoft Visual Basic 6.0 Enterprise Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • kbprogramming kbstring kbhowtomaster KB818802
意見反應