- 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如何转为输入流
- 正则表达式
JS正则表达式验证数字(非常全)
正则表达式,又称规则表达式,在项目中经常会用到正则表达式,今天小编抽空给大家分享js正则表达式验证数字的方法,感兴趣的朋友参考下吧...
- 正则表达式
正则表达式re.sub替换不完整的问题及完整解决方案
re.sub是个正则表达式方面的函数,用来实现通过正则表达式,实现比普通字符串的replace更加强大的替换功能。这篇文章主要介绍了正则表达式re.sub替换不完...
- 正则表达式
JavaScript 正则表达式 验证整数、小数、实数、有效位小数最简单
JavaScript 正则表达式 验证整数、小数、实数、有效位小数最简单,输入完按回车后即可验证!(自认为最简单!)...
- 正则表达式
js通过正则匹配没有内容的空标签
这篇文章主要介绍了js通过正则匹配没有内容的空标签,需要的朋友可以参考下...
- 正则表达式
解决preg_match匹配过多字符长度的限制的思路分析
今天在写采集程序的时候,使用到了preg_match,但是有几个页面始终采集不下来。反复看了N遍的正则,没有发现有问题。于是开始怀疑preg_match是否对匹配的...
- 正则表达式
常用正则表达式语法例句
本文主要分享一些常用正则表达式语法例句,具有一定的参考价值,有需要的朋友可以了解下...
- 正则表达式
正则表达式概述 什么是正则表达式
正则表达式就是用某种模式去匹配一类字符串的公式,主要用来描述字符串匹配的工具...
- 正则表达式
asp去除html标记与空格的正则
用asp实现的去除内容的html标记和空格的实现代码,正在学习正则表达式的朋友可以参考下...