主頁(yè) > 知識(shí)庫(kù) > ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼

ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼

熱門標(biāo)簽:電銷機(jī)器人違法了嗎 辰溪地圖標(biāo)注 遼寧正規(guī)電銷機(jī)器人 上海浦東騰訊地圖標(biāo)注位置 遼寧銀行智能外呼系統(tǒng) 姜堰電銷機(jī)器人 海南銀行智能外呼系統(tǒng)商家 澳大利亞城市地圖標(biāo)注 許昌智能電銷機(jī)器人公司

函數(shù)

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

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

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

標(biāo)簽:伊春 崇左 西藏 撫州 銅川 深圳 晉城 威海

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼》,本文關(guān)鍵詞  ASP,是,使用,正則,提取,內(nèi)容,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章