请选择 进入手机版 | 继续访问电脑版

源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 647|回复: 18

[ASP编程] asp正则表达式使用详解

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2011-3-8 00:03:05 | 显示全部楼层 |阅读模式
这篇文章是本人发现的关于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
%>
回复

使用道具 举报

14

主题

1万

回帖

75

积分

注册会员

Rank: 2

积分
75
发表于 2022-9-23 07:43:35 | 显示全部楼层
论坛有你更精彩!
回复 支持 反对

使用道具 举报

13

主题

2万

回帖

97

积分

注册会员

Rank: 2

积分
97
发表于 2023-4-23 19:15:24 | 显示全部楼层
这个源码不错啊
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

69

积分

注册会员

Rank: 2

积分
69
发表于 2023-5-24 12:10:51 | 显示全部楼层
啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

207

积分

中级会员

Rank: 3Rank: 3

积分
207
发表于 2023-9-16 06:48:51 | 显示全部楼层
我找了挺久终于找到了
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-9-19 16:46:29 | 显示全部楼层
iiguuubhuiuihu
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-9-28 21:20:28 | 显示全部楼层
老大你好你好好你好
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-10-27 11:03:27 | 显示全部楼层
谢谢分享,先下来用用
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2024-3-20 05:47:35 | 显示全部楼层
啪啪啪生怕PSP怕
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2024-3-23 02:50:31 | 显示全部楼层
问问问企鹅哇哇哇哇哇
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2024-12-10 07:24 , Processed in 0.173402 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表