- Function AutoLinkURLs(strString)
- Dim match, matches, offset, url, email, link, relnkAutoLinkURL
- relnkAutoLinkURL = "<a href=""[[%URL%]]"">[[%URLText%]]</a>"
- If Not IsObject(regExp) Then Set regExp = New RegExp
- regExp.Global = True
- regExp.IgnoreCase = True
- 'Look for URLs
- regExp.Pattern = "(((ht|f)tps?://)|(www\.))([\w-]+\.)+[\w-:]+(/[\w- ./?%#;&=]*)?"
- Set matches = regExp.Execute(strString)
- offset = 0
- For Each match in matches
- url = match
- If Left(url, 4) = "www." Then url = "http://" & url
- link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", url)
- strString = Mid(strString, 1, match.FirstIndex + offset) & link & Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))
- offset = offset + Len(link) - Len(match)
- Next
- 'Look for emails
- regExp.Pattern = "[A-Za-z0-9_+-.']+@\w+([-.]\w+)*\.\w+([-.]\w+)*"
- Set matches = regExp.Execute(strString)
- offset = 0
- For Each match in matches
- email = match
- link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", "mailto:" & email)
- strString = Mid(strString, 1, match.FirstIndex + offset) & link & Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))
- offset = offset + Len(link) - Len(match)
- Next
- AutoLinkURLs = strString
- End Function
asp下正则实现URL自动链接的一个函数
2020-07-16 16:06正则之家 正则表达式
本文主要讲解asp下正则实现URL自动链接的一个函数,具有一定的参考价值,有需要的朋友可以了解下
延伸 · 阅读
- 2022-03-10Python全栈之路正则函数
- 2022-03-07URL @PathVariable 变量的匹配原理分析
- 2022-03-02详解Python实现URL监测与即时推送
- 2022-02-28一个关于JS正则匹配的踩坑记录
- 2022-02-22一文带你理解URI 和 URL 有什么区别?
- 2022-02-22java 远程文件url如何转为输入流
- 正则表达式
最严谨的校验email地址的正则表达式及各种语言对应版
这篇文章主要介绍了最严谨的校验email地址的正则表达式及各种语言对应版,本文给出通用、Python、Javascript、PHP、Perl / Ruby、Perl等版本的最严谨的表达式写法...
- 正则表达式
用正则实现提取代码内容的代码
研究了一个下午,没有头绪,来论坛求助,老ID丢了!重新注册了一个!=。=! 我想用javascript正则提取asp代码中SQL行的表达式但是写来写去都不行,各位辛苦帮...
- 正则表达式
正则表达式截取字符串的方法技巧
这篇文章主要介绍了正则表达式截取字符串的方法技巧,需要的朋友可以参考下...
- 正则表达式
Java正则表达式里隐藏的陷阱
正则表达式是一个很方便的匹配符号,但要实现这么复杂,功能如此强大的匹配语法,就必须要有一套算法来实现,而实现这套算法的东西就叫做正则表达...
- 正则表达式
正则表达式之零宽断言实例详解【基于PHP】
这篇文章主要介绍了正则表达式之零宽断言,简单介绍了零宽断言的概念、分类及php实现技巧与相关注意事项,需要的朋友可以参考下...
- 正则表达式
js 正则学习小记之匹配字符串字面量优化篇
昨天在《js 正则学习小记之匹配字符串字面量》谈到 /"(?:\\.|[^"])*"/ 是个不错的表达式,因为可以满足我们的要求,所以这个表达式可用,但不一定是最好的...
- 正则表达式
正则在FireFox和IE下使用test的不同
今天同事遇到这样的问题,查明原因.记下 由于FireForx和IE的执行javascript的引擎不同,所以会有些不同。以下的例子...
- 正则表达式
共享日常收集JS正则表达式(JavaScript regular expression)
这篇文章给大家介绍小编日常收集的js正则表达式,有需要的朋友可以参考下 ...