国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Regex > 正文

正則表達式的使用( ASP)

2020-03-16 21:22:50
字體:
來源:轉載
供稿:網友
代碼如下:

<% 
' -------------------------------------------------------------- 
' 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 & "'." & "<BR>" 
    Next 
    RegExpExecute = RetStr 
End Function 

' -------------------------------------------------------------------- 
' Replace 方法 
' 替換在正則表達式查找中找到的文本。 
' -------------------------------------------------------------------- 
' Response.Write RegExpReplace("fox", "cat") & "<BR>"        ' 將 '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 
%> 
 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 汶上县| 万载县| 汾阳市| 湖南省| 兴海县| 泰来县| 阿拉善盟| 昌图县| 江华| 临桂县| 梨树县| 龙州县| 杭锦后旗| 延川县| 庐江县| 鄂州市| 龙陵县| 大化| 大新县| 安吉县| 新绛县| 石河子市| 贡山| 武冈市| 湘西| 阜新市| 望都县| 江城| 昭通市| 文昌市| 卓资县| 曲靖市| 沽源县| 田东县| 博湖县| 蒙自县| 南木林县| 遂昌县| 濮阳县| 乌兰察布市| 贵阳市|