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
我要评论
网友评论