濮阳杆衣贸易有限公司

主頁 > 知識庫 > ASP為字符串中的網(wǎng)址自動加上鏈接

ASP為字符串中的網(wǎng)址自動加上鏈接
熱門標(biāo)簽：宿州防封外呼系統(tǒng)平臺 友邦互聯(lián)電銷機(jī)器人違法嗎 外呼系統(tǒng)怎么話費(fèi) 無營業(yè)執(zhí)照地圖標(biāo)注教學(xué) 滴滴地圖標(biāo)注上車點(diǎn) 電銷機(jī)器人采購 高質(zhì)量的電銷外呼系統(tǒng) 硅基電話機(jī)器人加盟 地圖標(biāo)注還可以做嗎
%
'字段內(nèi)網(wǎng)址加上聯(lián)接。
Function ToLink(Str)
    Dim RE '正則表達(dá)式對象     Dim strContent
    If IsNull(Str) Then Str = ""
    Set RE = New RegExp '創(chuàng)建正 則表達(dá)式對象
    With RE
        .Global = True '搜索應(yīng)用于整個字符串
        .IgnoreCase = True '搜索不區(qū)分大小寫的
        strContent = Str
        '***************************************************************
        '郵件地址鏈接自動設(shè)置
        '***************************************************************
        .Pattern = "([\w]*)@([\w\.]*)"
        strContent = .Replace(strContent, "A Href='mailto:$1@$2'>$1@$2/A> ")
        '***************************************************************
        '鏈接自動設(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)簽：七臺河 雅安 宣城 儋州 新余 錫林郭勒盟 廣元 江門

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP為字符串中的網(wǎng)址自動加上鏈接》，本文關(guān)鍵詞  ASP,為,字符串,中的,網(wǎng)址,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP為字符串中的網(wǎng)址自動加上鏈接》相關(guān)的同類信息！
  • 本頁收集關(guān)于ASP為字符串中的網(wǎng)址自動加上鏈接的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    宁化县| 科技| 额济纳旗| 常德市| 嘉鱼县| 涪陵区| 郑州市| 岑巩县| 马公市| 保山市| 上饶市| 天津市| 开阳县| 青浦区| 家居| 苗栗市| 蒲江县| 大连市| 富川| 新建县| 寻甸| 万盛区| 大渡口区| 清丰县| 册亨县| 罗田县| 宁津县| 祥云县| 南投市| 东乡| 四川省| 霸州市| 南开区| 鹤峰县| 海盐县| 含山县| 蕲春县| 荆州市| 台南市| 桃园县| 栾城县|