当前位置：首页 > 资讯 > 技术文档

如何把URL和邮件地址转换为超级链接？

时间：2020-06-13 21:13 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何把URL和邮件地址转换为超级链接？

Function InsertHyperlinks(inText) Dim objRegExp, strBuf Dim objMatches, objMatch Dim Value, ReplaceValue, iStart, iEnd strBuf = "" iStart = 1 iEnd = 1 Set objRegExp = New RegExp objRegExp.Pattern = "\b(www|http|\S+@)\S+\b"

' 判断URLs和emails. objRegExp.IgnoreCase = True

' 设置大小写不敏感.. objRegExp.Global = True

' 全局适用. Set objMatches = objRegExp.Execute(inText) For Each objMatch in objMatches iEnd = objMatch.FirstIndex strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1) If InStr(1, objMatch.Value, "@") Then strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK") Else strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK") End If iStart = iEnd+objMatch.Length+1 Next strBuf = strBuf & Mid(inText, iStart) InsertHyperlinks = strBuf End Function Function GetHref(url, urlType, Target) Dim strBuf strBuf = "<a href=""" If UCase(urlType) = "WEB" Then If LCase(Left(url, 3)) = "www" Then strBuf = "<a href=""URL:" & url & """超级链接:""" & _ Target & """>" & url & "</a>" Else strBuf = "<a href=""" & url & """超级链接:""" & _ Target & """>" & url & "</a>" End If ElseIf UCase(urlType) = "EMAIL" Then strBuf = "<a href=""电子邮件地址:" & url & """链接目标:""" & _ Target & """>" & url & "</a>" End If GetHref = strBuf End Function

[b][1][/b]

全部评论(0)

上一篇：如何限制上传文件的大小？
下一篇：如何编写TOP 10之类的排行榜？

资讯排行榜
更多>>