服务器之家

服务器之家 > 正文

asp正则表达式使用详解

时间:2019-08-29 09:04     来源/作者:服务器之家

代码如下:


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 
%> 

标签:

相关文章

热门资讯

华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部