主頁 > 知識(shí)庫 > 自動(dòng)識(shí)別HTML的標(biāo)記 替換連接

自動(dòng)識(shí)別HTML的標(biāo)記 替換連接
熱門標(biāo)簽：提高電話機(jī)器人接通率 外呼系統(tǒng)api對(duì)接 地圖標(biāo)注與公司業(yè)務(wù)關(guān)系 廣西智能外呼系統(tǒng)多少錢 大學(xué)校門地圖標(biāo)注 福建微碼電話機(jī)器人 荊州智能電銷機(jī)器人 平?jīng)龈叩碌貓D標(biāo)注商戶要收費(fèi)嗎 銷售電銷機(jī)器人詐騙

復(fù)制代碼 代碼如下:

%
Function SenFe_UbbCode(sContent)
    Dim TempReg
    Set TempReg = New RegExp
    With TempReg
        .IgnoreCase = True
        .Global = True
        '自動(dòng)識(shí)別網(wǎng)址
        If InStr(Lcase(sContent),"http://")>0 Then
            .Pattern = "(^|[^=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|()|)+)"
            sContent = .Replace(sContent,"$1a href=""$2"" target=""_blank"">$2/a>")
        End If
        '自動(dòng)識(shí)別www等開頭的網(wǎng)址
        If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then
            .Pattern = "(^|[^\/\\\w\=])((www|bbs).(w)+.([\w\/\\\.\=\?\+\-~`@\'!%#]|())+)"
            sContent = .Replace(sContent,"$1a href=""http://$2"" target=""_blank"">$2/a>")
        End If
    End With
    Set TempReg = Nothing
    SenFe_UbbCode = sContent
End Function
%>




[Ctrl+A 全選 注:引入外部Js需再刷新一下頁面才能執(zhí)行]

標(biāo)簽：黔東 內(nèi)江 德陽 邯鄲 樂山 海南 婁底 衡陽

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《自動(dòng)識(shí)別HTML的標(biāo)記 替換連接》，本文關(guān)鍵詞  自動(dòng)識(shí)別,HTML,的,標(biāo)記,替換,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《自動(dòng)識(shí)別HTML的標(biāo)記 替換連接》相關(guān)的同類信息！
  • 本頁收集關(guān)于自動(dòng)識(shí)別HTML的標(biāo)記 替換連接的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章