정규 표현 식 사용 ASP

3585 단어
 
  
' --------------------------------------------------------------
' Match 

'   Match  , 。
' Match   RegExp   Execute  ,  Match  。
'   Match  。 ,  Match  。
'   Match  、 , 。
' ○    FirstIndex  , 。FirstIndex , 。 ,  0
' ○    Length  , 。
' ○    Value  , 。
' --------------------------------------------------------------
' Response.Write RegExpExecute("[ij]s.", "IS1 Js2 IS3 is4")
Function RegExpExecute(patrn, strng)
    Dim regEx, Match, Matches            ' 。
    SET  regEx = New RegExp                ' 。
    regEx.Pattern = patrn                ' 。
    regEx.IgnoreCase = True                ' 。
    regEx.Global = True                    ' 。
    SET  Matches = regEx.Execute(strng)    ' 。
    For Each Match in Matches            ' 。
        RetStr = RetStr & "Match found at position "
        RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
        RetStr = RetStr & Match.Value & "'." & "
"
    Next
    RegExpExecute = RetStr
End Function

' --------------------------------------------------------------------
' Replace 
'  。
' --------------------------------------------------------------------
' Response.Write RegExpReplace("fox", "cat") & "
"        '   'fox'   'cat'。
' Response.Write RegExpReplace("(S+)(s+)(S+)", "$3$2$1")    '  .
Function RegExpReplace(patrn, replStr)
    Dim regEx, str1                    '  。
    str1 = "The quick brown fox jumped over the lazy dog."
    SET  regEx = New RegExp            '  。
    regEx.Pattern = patrn            '  。
    regEx.IgnoreCase = True            '  。
    RegExpReplace = regEx.Replace(str1, replStr)    '  。
End Function

' --------------------------------------------------------------------
'   Test  。
'  ,  Boolean 
'  。  RegExp   Pattern  。
' RegExp.Global   Test  。
'  ,Test   True;  False
' --------------------------------------------------------------------
' Response.Write RegExpTest(" ", " ")
Function RegExpTest(patrn, strng)
    Dim regEx, retVal                '  。
    SET  regEx = New RegExp            '  。
    regEx.Pattern = patrn            '  。
    regEx.IgnoreCase = False        '  。
    retVal = regEx.Test(strng)        '  。
    If retVal Then
        RegExpTest = " 。"
    Else
        RegExpTest = " 。"
    End If
End Function
%>


좋은 웹페이지 즐겨찾기