[ASP]RegExp对象提供简单的正则表达式支持功能使用(4)

string 必需的。要在其上执行正则表达式的文本字符串。 

　　说明 
　　正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。 
　　Execute 方法返回一个 Matches 集合，其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。 

　　Execute 方法的用法： 
 RegExpTest(patrn, strng) 
Dim regEx ' 建立变量。 
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = patrn ' 设置模式。 
regEx.IgnoreCase = False ' 设置区分大小写。 
regEx.Global = True ' 搜索全部匹配。 
RegExpTest = regEx.Execute(strng) ' 执行搜索。 
End  

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4")) 

　　◎ Replace方法 

　　Replace方法替换在正则表达式查找中找到的文本。 
　　语法 
object.Replace(string1, string2) 
　　语法部分描述 
object 必需的。总是一个 RegExp 对象的名称。 
string1 必需的。string1 是将要进行文本替换的字符串。 
string2 必需的。 string2 是替换文本字符串。 

　　说明 
　　被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。 
　　Replace 方法返回 string1 的副本，其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本，将返回原来的 string1 的副本。 

　　eplace 方法的用法： 
 ReplaceTest(patrn, replStr) 
Dim regEx, str1 ' 建立变量。 
str1 = "The quick brown fox jumped over the lazy dog." 
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = patrn ' 设置模式。 
regEx.IgnoreCase = True ' 设置是否区分大小写。 
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。 
End  

MsgBox(ReplaceTest("fox", "cat")) 
' 将 'fox' 替换为 'cat'。 

；另外，Replace 方法在模式中替换 subexpressions 。 下面对以前示例中函数的调用，替换了原字符串中的所有字对： 
MsgBox(ReplaceText("(\S+)(\s+)(\S+)", "$3$2$1")) ' Swap pairs of words. 

　　◎ Test方法