av激情亚洲男人的天堂国语,日韩欧美精品一中文字幕,无码av一区二区三区无码,国产又色又爽又刺激的a片,国产又色又爽又刺激的a片

在VB中如何使用正則表達(dá)式

1. 啟動(dòng) Microsoft Visual Basic 6.0。

2. 在“文件”菜單上，單擊“新建項(xiàng)目”。

3. 在“新建項(xiàng)目”對(duì)話框中，單擊“Standard Exe”，然后單擊“確定”。

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

4. 在“項(xiàng)目”菜單上單擊“引用”。

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

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

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

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

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

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

9. 將以下函數(shù)添加到“Command1_click”事件處理程序后：

  
 
 
    
   
  
  
  1. [codes=vb]Function TestRegExp(myPattern As String, myString As String)  
    2. 
   
  
  
  2. ”Create objects.  
    3. 
   
  
  
  3. Dim objRegExp As RegExp  
    4. 
   
  
  
  4. Dim objMatch As Match  
    5. 
   
  
  
  5. Dim colMatches As MatchCollection  
    6. 
   
  
  
  6. Dim RetStr As String 
    7. 
   
  
  
  7. ” Create a regular expression object.  
    8. 
   
  
  
  8. Set objRegExp = New RegExp  
    9. 
   
  
  
  9. ”Set the pattern by using the Pattern property.  
    10. 
   
  
  
  10. objRegExp.Pattern = myPattern  
    11. 
   
  
  
  11. ” Set Case Insensitivity.  
    12. 
   
  
  
  12. objRegExp.IgnoreCase = True 
    13. 
   
  
  
  13. ”Set global applicability.  
    14. 
   
  
  
  14. objRegExp.Global = True 
    15. 
   
  
  
  15. ”Test whether the String can be compared.  
    16. 
   
  
  
  16. If (objRegExp.Test(myString) = True) Then 
    17. 
   
  
  
  17. ”Get the matches.  
    18. 
   
  
  
  18. Set colMatches = objRegExp.Execute(myString) ” Execute search.  
    19. 
   
  
  
  19. For Each objMatch In colMatches ” Iterate Matches collection.  
    20. 
   
  
  
  20. RetStr = RetStr & “Match found at position “  
    21. 
   
  
  
  21. RetStr = RetStr & objMatch.FirstIndex & “. Match Value is ””  
    22. 
   
  
  
  22. RetStr = RetStr & objMatch.Value & “”.” & vbCrLf  
    23. 
   
  
  
  23. Next 
    24. 
   
  
  
  24. Else 
    25. 
   
  
  
  25. RetStr = “String Matching Failed”  
    26. 
   
  
  
  26. End If 
    27. 
   
  
  
  27. TestRegExp = RetStr  
    28. 
   
  
  
  28. End Function[/codes] 
    29.

10. 在“運(yùn)行”菜單上，單擊“啟動(dòng)”來運(yùn)行該應(yīng)用程序。

11. 單擊“Command1”。

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

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

責(zé)任編輯：彭凡
來源： 博客園 VB


本文名稱：在VB中如何使用正則表達(dá)式
本文鏈接：http://uogjgqi.cn/article/dhjojhc.html
掃二維碼與項(xiàng)目經(jīng)理溝通

我們?cè)谖⑿派?4小時(shí)期待你的聲音

解答本文疑問/技術(shù)咨詢/運(yùn)營咨詢/技術(shù)建議/互聯(lián)網(wǎng)交流