您现在的位置是：网站首页> 编程资料编程资料
自动识别HTML的标记 替换连接_正则表达式_
2023-05-25
313人已围观
简介 自动识别HTML的标记 替换连接_正则表达式_
复制代码 代码如下:
<%
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,"$1
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,"$1
End If
End With
Set TempReg = Nothing
SenFe_UbbCode = sContent
End Function
%>
[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]
下一篇：正则限制文本输入_正则表达式_
