欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時間:2007年08月01日 19:45:16   作者:  
今天在改一套b2b的電子商務(wù)系統(tǒng)時,發(fā)現(xiàn)ASP正則,雖然用ASP很久了,但從來沒用過正則表達式,這套系統(tǒng)中有個正則的函數(shù)很不錯,自己看吧。
復(fù)制代碼 代碼如下:

<%  
Function RegExpTest(patrn, strng) 
    Dim regEx, Match, Matches   ' 建立變量。 
    Set regEx = New RegExp   ' 建立正則表達式。 
     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

相關(guān)文章

最新評論