asp正则表达式使用详解

网学网为需要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
%>

复制代码 代码如下:
<%
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
%>

复制代码 代码如下:
<%@language="vbscript" codepage="65001"%>
<%
''创建一个连