久久r热视频,国产午夜精品一区二区三区视频,亚洲精品自拍偷拍,欧美日韩精品二区

您的位置:首頁技術文章
文章詳情頁

ASP是使用正則提取內容里所有圖片路徑SRC的實現代碼

瀏覽:101日期:2022-06-05 08:20:25

函數

Function RegImg(TheStr)
    Dim RegEx
    Set RegEx = New RegExp "建立正則表達對象。
    RegEx.IgnoreCase =True " 是否區分大小寫,True為不區分且默認
    RegEx.Global = True "全部匹配還是只匹配第一個 
    RegEx.Pattern = "<img[^>]*src\s*=\s*[""&CHR(34)&"]?([\w/\-\:.]*)[""&CHR(34)&"]?[^>]*>" " 搜索所使用的正則表達式
    If Regex.test(TheStr) Then  " 判斷是否有匹配值,返回True或者False。不受Global屬性影響。
        Dim Matches
        Set Matches = RegEx.Execute(TheStr) " 執行搜索。Execute 方法返回一個Matches 集合,其中包含了在 TheStr 中找到的每一個匹配的 Match 對象。如果未找到匹配,Execute 將返回空的 Matches 集合。
        For Each Match in Matches " 遍歷匹配集合。
        "RetStr = RetStr & Match.Value & "<br />" "獲取整個img
        RetStr = RetStr & Match.SubMatches(0)&"||" "只取src
        Next
        RegImg = RetStr
    End If           
End Function

"調用方法
htmlBody="<img id="img"  src="/images/01.jpg" alt="圖片標題" style="border:none;position:relative;" /><img  src="/111.jpg" /><img  src="/222.jpg" />"
Response.Write RegImg(htmlBody)

到這里就為拿出了,大家可以根據需要修改。

標簽: ASP
相關文章:
主站蜘蛛池模板: 上林县| 从化市| 崇左市| 古蔺县| 林口县| 仁寿县| 额济纳旗| 黄大仙区| 江北区| 岳普湖县| 盐津县| 白朗县| 麦盖提县| 平谷区| 阿坝| 石河子市| 潼南县| 浪卡子县| 焉耆| 开化县| 桓台县| 黄梅县| 宣恩县| 富顺县| 施甸县| 庄河市| 普定县| 东源县| 饶河县| 天祝| 波密县| 麻城市| 遂平县| 抚远县| 随州市| 颍上县| 东丰县| 蓝田县| 绥宁县| 阳江市| 仁化县|