繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 自动识别HTML的标记 替换连接
- 正则表达式
- 正则表达式 特殊字符应用分析[简单详细入门必看]
- asp.net 正则表达式[经常用的到]
- javascript 小时:分钟的正则表达式
- 又一篇正则表达式学习笔记
- 正则获取图片地址 链接地址
- JavaScript 去前后全脚半脚空格的正则
- PHP 正则表达式分析RSS
- 关于内容的分离,正则抽出图片(一定要加精哦)
- Javascript lastIndex 正则表达式的一个疑惑
- asp去掉html，保留img br p div的正则实现代码
- JavaScript 正则表达式解析
- 正则表达式轻松消除HTML代码
- 常用正则表达式 整理篇
- c# 正则表达式对网页进行有效内容抽取
- 常用正则表达式 比较实用
- javascript 正则修正符
- C# 正则表达式经典分类整理集合手册
- js mac地址 正则表达式
- 正则表达式 口诀 学习正则的朋友看看
- javascript RegExp对象(正则表达式)
正则表达式 中的 自动识别HTML的标记 替换连接
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 51 ::
收藏到网摘: n/a
复制代码 代码如下:
<%
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<a 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,"$1<a href=""http://$2"" target=""_blank"">$2</a>")
End If
End With
Set TempReg = Nothing
SenFe_UbbCode = sContent
End Function
%>
点击运行可以看到效果:
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
评论 (0) All
