当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > [asp]中的正则表达式运用代码

正则表达式
正则表达式 特殊字符应用分析[简单详细入门必看]
asp.net 正则表达式[经常用的到]
javascript 小时:分钟的正则表达式
又一篇正则表达式学习笔记
正则获取图片地址 链接地址
JavaScript 去前后全脚半脚空格的正则
PHP 正则表达式分析RSS
关于内容的分离,正则抽出图片(一定要加精哦)
Javascript lastIndex 正则表达式的一个疑惑
asp去掉html,保留img br p div的正则实现代码
JavaScript 正则表达式解析
正则表达式轻松消除HTML代码
常用正则表达式 整理篇
c# 正则表达式对网页进行有效内容抽取
常用正则表达式 比较实用
javascript 正则修正符
C# 正则表达式经典分类整理集合手册
js mac地址 正则表达式
正则表达式 口诀 学习正则的朋友看看
javascript RegExp对象(正则表达式)

[asp]中的正则表达式运用代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 66 ::
收藏到网摘: n/a

今天在改一套b2b的电子商务系统时,发现ASP正则,虽然用ASP很久了,但从来没用过正则表达式,这套系统中有个正则的函数很不错,自己看吧。
复制代码 代码如下:

<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match In Matches ' 遍历匹配集合。
On Error Resume Next
RetStr = RetStr & Match.Value&"|"
Next
RegExpTest = RetStr
End Function
str = "我来自#5565#哈哈"
strInfo = RegExpTest("#\w+(\((\b[,0-9]+\b)?\))?#", str)
Response.Write(strInfo)
%>

再看一例:
复制代码 代码如下:

Function noHtml(str)
Dim re
Set re=New RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\<.*?\>)"
str=re.Replace(str,"")
re.Pattern="(\<\/.*?\>)"
str=re.Replace(str,"")
noHtml=str
End Function