[asp]中的Regex運用代碼

今天在改一套b2b的電子商務系統時，發現ASP正則，雖然用ASP很久了，但從來沒用過Regex，這套系統中有個正則的函數很不錯，自己看吧。 複製代碼 代碼如下:<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變數。
Set regEx = New RegExp ' 建立Regex。
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