自動(dòng)識別HTML的標(biāo)記 替換連接
更新時(shí)間：2006年07月27日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<%
Function SenFe_UbbCode(sContent)
Dim TempReg
Set TempReg = New RegExp
With TempReg
.IgnoreCase = True
.Global = True
'自動(dòng)識別網(wǎng)址
If InStr(Lcase(sContent),"http://")>0 Then
.Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"
sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>")
End If
'自動(dòng)識別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,"$1<a href=""http://$2"" target=""_blank"">$2</a>")
End If
End With
Set TempReg = Nothing
SenFe_UbbCode = sContent
End Function
%>
[Ctrl+A 全選 注:引入外部Js需再刷新一下頁面才能執(zhí)行]
相關(guān)文章
總結(jié)在 python 語言里使用正則表達(dá)式匹配中文的經(jīng)驗(yàn)。2010-07-07
捕獲組就是把正則表達(dá)式中子表達(dá)式匹配的內(nèi)容，保存到內(nèi)存中以數(shù)字編號或顯式命名的組里，方便后面引用,這里就為大家簡單介紹一下2023-05-05
正則表達(dá)式中的"g"是什么意思附件參數(shù)g的用法
為了能夠便于大家對正則表達(dá)式有一個(gè)更為綜合和深刻的認(rèn)識，我將一些關(guān)鍵點(diǎn)和容易犯糊涂的地方再系統(tǒng)總結(jié)一下2014-07-07
vbs:把一段文字中指定字符顏色變成紅色的正則...2007-04-04
之前一篇已經(jīng)帶領(lǐng)大家認(rèn)識了一下正則表達(dá)式常用函數(shù)最基本的功能及使用方法。本文再帶領(lǐng)大家一起應(yīng)用正則表達(dá)式，深入學(xué)習(xí)正則表達(dá)式中常用的方法及對象，例如：test、exec、match、replace、search等等，需要的朋友可以參考下2015-12-12
巧解 JavaScript 中的嵌套替換(強(qiáng)大正則)
如何僅使用JavaScript支持的正則語法，將有嵌套的內(nèi)容替換2012-09-09
Java 使用正則表達(dá)式對象實(shí)現(xiàn)正則的獲取功能
這篇文章主要介紹了Java 使用正則表達(dá)式對象實(shí)現(xiàn)正則的獲取功能 ,需要的朋友可以參考下2018-04-04
正則去除中括號(符號)及里面包含的內(nèi)容(最新推薦)
這篇文章主要介紹了正則去除中括號(符號)及里面包含的內(nèi)容,本文給大家介紹的非常詳細(xì),對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友參考下吧2024-01-01
c# 正則表達(dá)式對網(wǎng)頁進(jìn)行有效內(nèi)容抽取
本問主要總結(jié)了用正則表達(dá)式對網(wǎng)頁進(jìn)行有效內(nèi)容提取的具體實(shí)現(xiàn)方法,并給出了c#代碼2009-03-03
這篇文章主要介紹了正則表達(dá)式對qq號碼進(jìn)行校驗(yàn)的相關(guān)知識，非常不錯(cuò)，具有參考借鑒價(jià)值，需要的的朋友參考下吧2017-06-06