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

文章翻譯 文章翻譯
文章編號: 818802 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文將逐步告訴您,如何建立規則運算式,以及如何使用規則運算式,以判斷字串是否符合特定模式。規則運算式允許根據特定字串模式對字串進行簡單的剖析與比對。如果您使用 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 = RetStr
    End Function
  10. [執行] 功能表上,按一下 [開始] 以執行應用程式。
  11. 按一下 [Command1]

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

?考

如需詳細資訊,請造訪下列 MSDN 網站:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/2380d458-3366-402b-996c-9363906a7353.asp

屬性

文章編號: 818802 - 上次校閱: 2007年1月12日 - 版次: 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
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com