正则表达式二

上一节中我们已经说了正则表达式的一些用处.下面我来说一下正则的另外一个很强大的功能.让我们拭目以待吧。

咱大家都知道QTP是VBS写的.VBS的有一个特别强大的对象就是RegExp对象,这个对象就不多讲了.介绍一下基本信息

1. Global属性：代表全局匹配
   
2. 
   
3. IgnoreCase属性：大小写忽略
   
4. 
   
5. Pattern属性：正则表达式
   
6. 
   
7. Execute方法：匹配搜索，返回匹配结果集合
   
8. 
   
9. Replace方法：匹配代替，返回替代匹配结果
   
10. 
    
11. Test方法：测试匹配，返回布尔类型

复制代码

下面是总结了网上和项目中经常用到的一些方法实例

1. 
   
2. 
   
3. '判断正则匹配是否正确
   
4. 
   
5. 'msgbox (IsRegMatch("a123","http://www.a123.com"))
   
6. 
   
7. Function IsRegMatch(patrn,str)
   
8. 
   
9. Dim regEx
   
10. 
    
11. Set regEx = New RegExp
    
12. 
    
13. regEx.Pattern = patrn
    
14. 
    
15. regEx.IgnoreCase = False
    
16. 
    
17. IsRegMatch = regEx.Test(str)
    
18. 
    
19. Set regEx = nothing
    
20. 
    
21. End Function
    
22. 
    
23. 
    
24. 
    
25. '替换匹配字符串
    
26. 
    
27. 'msgbox (ReplaceRegMatch("9","QC9.0, QTP9.0","10"))
    
28. 
    
29. Function ReplaceRegMatch(patrn,str,replaceStr)
    
30. 
    
31. Dim regEx
    
32. 
    
33. Set regEx = New RegExp
    
34. 
    
35. regEx.Pattern = patrn
    
36. 
    
37. regEx.IgnoreCase = False
    
38. 
    
39. regEx.Global = True 'false的时候只会替换第一个匹配的字符串。若为true则会替换所有匹配的字符串
    
40. 
    
41. ReplaceRegMatch = regEx.Replace(str,replaceStr)
    
42. 
    
43. End Function
    
44. 
    
45. 
    
46. 
    
47. '返回匹配内容
    
48. 
    
49. 'returnRegMatch "qc .","qc 1 qc 2 qc3 qc 4"
    
50. 
    
51. Function ReturnRegMatch(patrn,str)
    
52. 
    
53. Dim regEx,matches,match
    
54. 
    
55. Set regEx = New RegExp
    
56. 
    
57. regEx.Pattern = patrn
    
58. 
    
59. regEx.IgnoreCase = true
    
60. 
    
61. regEx.Global = true '打开全局搜索
    
62. 
    
63. Set matches = regEx.Execute(str)
    
64. 
    
65. For Each match in matches
    
66. 
    
67. print cstr(match.firstIndex) + " " + match.value + " " + cstr(match.length)
    
68. 
    
69. Next
    
70. 
    
71. End Function