复制代码 代码如下:
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)
%>
内容版权声明:除非注明,否则皆为本站原创文章。