[asp]中的正则表达式运用代码
程序员文章站
2022-04-16 15:40:05
今天在改一套b2b的电子商务系统时,发现asp正则,虽然用asp很久了,但从来没用过正则表达式,这套系统中有个正则的函数很不错,自己看吧。 复制代码 代码如下:<%&...
今天在改一套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
复制代码 代码如下:
<%
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
推荐阅读