今天在改一套b2b的電子商務(wù)系統(tǒng)時，發(fā)現(xiàn)ASP正則，雖然用ASP很久了，但從來沒用過正則表達(dá)式，這套系統(tǒng)中有個正則的函數(shù)很不錯，自己看吧。
復(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 = "我來自#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)證界面的實現(xiàn)代碼
