asp正则表达式运用详解
|
asp正则表达式运用详解： 代码如下: Dim re Set re = new RegExp '创建RegExp实例 re.Pattern = "ab+c" '定义正则表达式文字，你可以在这里替换正则表达式 Dim myString myString = "abcefg" '定义要匹配的字符串，可以进行替换 Response.write(re.Execute(myString)(0)) '进行匹配测试，并写出结果 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Pattern = "/w+" '定义正则表达式文字 Dim myString myString = "VBScript version 5.6 provides many new features." '进行匹配测试，并写出是否匹配成功 If re.Test(myString) Then Response.write("匹配成功！") Else Response.write("匹配不成功！") End If %> 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Pattern = "/s" '定义正则表达式文字，这里是匹配空白 Dim myString myString = "VBScript version 5.6 provides many new features." myString = re.replace(myString, "-") '用-替换空白，返回替换后的字符串 '写出结果 Response.write(myString) %> 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Global = True re.Pattern = "/s" '定义正则表达式文字，这里是匹配空白 Dim myString myString = "VBScript version 5.6 provides many new features." myString = re.replace(myString, "-") '用-替换空白，返回替换后的字符串 '写出结果 Response.write(myString) %> 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Global = True re.Pattern = "(/w+)-(/w+)" '定义正则表达式模式文字 Dim myString myString = "flip-flop" myString = re.replace(myString, "$1-$2") '$1表示第一个/w+，$2表示第二个/w+，第一个/w+匹配flip，第二个/w+匹配flop， '所以$1-$2相当于flip-flop '写出结果 Response.write(myString) %> 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Global = True re.Pattern = "(/S+)(/s+)(/S+)" '定义正则表达式模式文字 Dim myString myString = "flip flop" myString = re.replace(myString, "$3$2$1") '$1表示第一个/S+，$3表示第二个/S+，$2表示/s+， '所以$3$2$1相当于flop flip '写出结果 Response.write(myString) %> 代码如下: <% Dim re Set re = new RegExp '创建RegExp实例 re.Global = True re.Pattern = "/w+" '定义正则表达式模式文字 Dim myString myString = "VBScript version 5.6 provides many new features." Set Matches = re.Execute(myString) '执行搜索，该集合用来保存匹配的结果 '进行匹配测试，并写出结果 '迭代Matches集合 For Each Match in Matches '写出结果 Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />") Next %> （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
