今天在改一套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
您可能感興趣的文章:- 運用正則表達式匹配所有表名
- Freemaker Replace函數的正則表達式運用
- js編寫trim()函數及正則表達式的運用
- 正則表達式初運用之認證界面的實現代碼
