濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接

ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接
熱門標(biāo)簽：宿州防封外呼系統(tǒng)平臺(tái) 友邦互聯(lián)電銷機(jī)器人違法嗎 外呼系統(tǒng)怎么話費(fèi) 無(wú)營(yíng)業(yè)執(zhí)照地圖標(biāo)注教學(xué) 滴滴地圖標(biāo)注上車點(diǎn) 電銷機(jī)器人采購(gòu) 高質(zhì)量的電銷外呼系統(tǒng) 硅基電話機(jī)器人加盟 地圖標(biāo)注還可以做嗎
%
'字段內(nèi)網(wǎng)址加上聯(lián)接。
Function ToLink(Str)
    Dim RE '正則表達(dá)式對(duì)象     Dim strContent
    If IsNull(Str) Then Str = ""
    Set RE = New RegExp '創(chuàng)建正 則表達(dá)式對(duì)象
    With RE
        .Global = True '搜索應(yīng)用于整個(gè)字符串
        .IgnoreCase = True '搜索不區(qū)分大小寫的
        strContent = Str
        '***************************************************************
        '郵件地址鏈接自動(dòng)設(shè)置
        '***************************************************************
        .Pattern = "([\w]*)@([\w\.]*)"
        strContent = .Replace(strContent, "A Href='mailto:$1@$2'>$1@$2/A> ")
        '***************************************************************
        '鏈接自動(dòng)設(shè)置
        '***************************************************************
        '======根據(jù)要求再添加協(xié)議名稱=======
        Dim D(3), I
        D(0) = "http"
        D(1) = "ftp"
        D(2) = "news"
        D(3) = "mms"
        '===================================
        For I = 0 To UBound(D)
            .Pattern = D(I) + ":\/\/([\w\.]*)"
            strContent = .Replace(strContent, "A Href='" + D(I) + "://$1' target=_blank>" + D(I) + "://$1/A> ")
        Next
        '***************************************************************
    End With
    Set RE = Nothing
    ToLink = strContent
End Function

%>

標(biāo)簽：七臺(tái)河 雅安 宣城 儋州 新余 錫林郭勒盟 廣元 江門

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接》，本文關(guān)鍵詞  ASP,為,字符串,中的,網(wǎng)址,；如發(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為字符串中的網(wǎng)址自動(dòng)加上鏈接》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    吉木萨尔县| 精河县| 左权县| 满城县| 杭锦后旗| 柯坪县| 平远县| 尼勒克县| 邳州市| 四平市| 巨野县| 于田县| 沙田区| 丹阳市| 安义县| 大埔区| 泌阳县| 达拉特旗| 海阳市| 福州市| 黄石市| 合江县| 固始县| 普陀区| 寿光市| 东乡| 临安市| 恩施市| 平邑县| 修武县| 阿巴嘎旗| 河北省| 清水河县| 茂名市| 六安市| 綦江县| 曲水县| 永城市| 剑阁县| 乡宁县| 枞阳县|