今天在改一套b2b的電子商務(wù)系統(tǒng)時(shí)，發(fā)現(xiàn)ASP正則，雖然用ASP很久了，但從來(lái)沒(méi)用過(guò)正則表達(dá)式，這套系統(tǒng)中有個(gè)正則的函數(shù)很不錯(cuò)，自己看吧。
復(fù)制代碼 代碼如下:
%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
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 = "我來(lái)自#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
您可能感興趣的文章:- 運(yùn)用正則表達(dá)式匹配所有表名
- Freemaker Replace函數(shù)的正則表達(dá)式運(yùn)用
- js編寫trim()函數(shù)及正則表達(dá)式的運(yùn)用
- 正則表達(dá)式初運(yùn)用之認(rèn)證界面的實(shí)現(xiàn)代碼
