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

如何把URL和邮件地址转换为超级链接？ 我们可用正规表达式来寻找并替换URL和邮件地址为活动的超级链接。用到的主要函数就是InsertHyperlinks inText ，语法为： InsertHyperlinks inText Returns a inText with a href URL target _BLANK URL 插入（存储）找到的URL和邮件地址。它对URL的判断是以www或http标志开头，对邮件地址的判断是含有@符，够酷吧？好了，看看这个函数的用法：Function InsertHyperlinks inText Dim objRegExp, strBufDim objMatches, objMatchDim 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 strBufEnd FunctionFunction 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 ??Else???strBuf a href url 超级链接: _ Target url ??End If?ElseIf UCase urlType EMAIL Then??strBuf a href 电子邮件地址: url 链接目标: _ Target url ?End If?GetHref strBufEnd Function