[asp]의 정규 표현 식 활용 코드

오늘 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