[asp]中的正則表達式運用代碼
更新時間:2007年08月01日 19:45:16 作者:
今天在改一套b2b的電子商務(wù)系統(tǒng)時,發(fā)現(xiàn)ASP正則,雖然用ASP很久了,但從來沒用過正則表達式,這套系統(tǒng)中有個正則的函數(shù)很不錯,自己看吧。
<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = False ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
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
復(fù)制代碼 代碼如下:
<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = False ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
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)
%>
再看一例:
復(fù)制代碼 代碼如下:
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
相關(guān)文章
java 正則表達式基礎(chǔ),實例學(xué)習(xí)資料收集大全
本站長期收集的java正則表達式學(xué)習(xí)資料,包括javascript,vbscript,asp,php,asp.net等正則表達式學(xué)習(xí)資料2007-12-12Javascript 字符串字節(jié)長度計算函數(shù)代碼與效率分析(for VS 正則)
下面的函數(shù)都是用于計算字符串長度,英文算一個,中文算兩個。效果一樣,效率卻未必一樣,大家可以自行選擇下。2009-12-12