[asp]中的正則表達式運用代碼

2020-03-16 21:20:05

字體：大中小

來源：轉載

供稿：網友

今天在改一套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