asp正则表达式使用详解
导读：收集整理的这篇文章主要介绍了asp正则表达式使用详解，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: Dim re Set re = new RegExp '创建...
收集整理的这篇文章主要介绍了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"%>
%
'创建一个连接，并且创建一个ADODB.COMmand用于操作
Dim oCmd,oConn
Set oConn = Server.CreateObject("ADODB.Connection")
Set oCmd = Server.CreateObject("ADODB.Command")
oConn.ConnectionString = "Provider=SQLOLEDB; server = myhost; Initial CataLOG = myDatabase; UID=sa; PWD=verysecret; "
oConn.OPEn
'这里创建一个SQL CREATE TABLE语句
Set oCmd.ActiveConnection = oConn
oCmd.CommandText = "CREATE TABLE NewEmployees(firstName nvArchar (50),lastName nVARchar (50),EmpType nvarchar (50))"
'执行创建数据表操作
oCmd.Execute
Response.Write("操作成功！")
%>
%
'显式的关闭连接
oConn.Close
Set oConn = Nothing
%>
您可能感兴趣的文章:
- ASP中过滤UBB和Html标签
- HTML标签及ASP函数速查表
- ASP.NET使用正则表达式屏蔽垃圾信息
- ASP正则表达式技巧
- ASP 正则表达式常用的几种方法(execute、test、replace)
- ASP超级链接和HTML函数正则表达式 修正版
- asp 使用正则表达式替换word中的标签，转为纯文本
- asp.net正则表达式删除指定的HTML标签的代码
- asp的RegExp对象正则表达式功能用法[比较全]
- 正则表达式速查表（ASP.NET）
- asp自动补全html标签自动闭合(正则表达式)
- ASP正则表达式清除HTML指定标签的方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： asp正则表达式使用详解
本文地址： https://pptw.com/jishu/604129.html