校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > 自動識別HTML的標記 替換連接

自動識別HTML的標記 替換連接

熱門標簽:提高電話機器人接通率 外呼系統api對接 地圖標注與公司業務關系 廣西智能外呼系統多少錢 大學校門地圖標注 福建微碼電話機器人 荊州智能電銷機器人 平涼高德地圖標注商戶要收費嗎 銷售電銷機器人詐騙

復制代碼 代碼如下:

%
Function SenFe_UbbCode(sContent)
    Dim TempReg
    Set TempReg = New RegExp
    With TempReg
        .IgnoreCase = True
        .Global = True
        '自動識別網址
        If InStr(Lcase(sContent),"http://")>0 Then
            .Pattern = "(^|[^=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|()|)+)"
            sContent = .Replace(sContent,"$1a href=""$2"" target=""_blank"">$2/a>")
        End If
        '自動識別www等開頭的網址
        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需再刷新一下頁面才能執行]

標簽:黔東 內江 德陽 邯鄲 樂山 海南 婁底 衡陽

巨人網絡通訊聲明:本文標題《自動識別HTML的標記 替換連接》,本文關鍵詞  自動識別,HTML,的,標記,替換,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《自動識別HTML的標記 替換連接》相關的同類信息!
  • 本頁收集關于自動識別HTML的標記 替換連接的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 湖州市| 尚志市| 长沙县| 沧州市| 南郑县| 法库县| 荣成市| 宾阳县| 怀仁县| 延庆县| 伊宁县| 肃宁县| 浦东新区| 三都| 肥乡县| 徐州市| 湄潭县| 吉隆县| 龙江县| 黎城县| 天全县| 日照市| 安化县| 玛多县| 叙永县| 通海县| 夏津县| 昌吉市| 沅江市| 沭阳县| 长泰县| 兰西县| 伊宁县| 扎鲁特旗| 禹州市| 甘德县| 凌云县| 嵊州市| 望城县| 白水县| 襄樊市|