日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
在VB中如何使用正則表達(dá)式

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

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

3. 在“新建項(xiàng)目”對話框中，單擊“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è)示例中將對照“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á)式
網(wǎng)頁網(wǎng)址：http://www.5511xx.com/article/dhjojhc.html