Sergio Orrego wrote:
I have a text string which comes from a form containing the article text in
a knowledgebase. Sometimes people enter http links in their text however
when they show on the webpage they do not show as hyperlinks, because
obviously they don't gave the link tags around them.
What I'd like is to manipulate this text string so that wherever there is
http in it it put's the link tags around it. So what I'm really asking is,
how can I convert this string:
And to get to the blah blah site please go to http://blah-blah.com and you
will find lots of blah blah there.
Into this:
And to get to the blah blah site please go to <a
href="http://blah-blah.com">http://blah-blah.com</aand you will find lots
of blah blah there.
It needs to be versatile as they may enter more than one http link within
the text.
Any help appreciated!
Try this pair of functions:
<%
function create_links(strText)
strText = " " & strText
strText = ereg_replace(strText, "(^|[\n ])([\w]+?://[^ ,""\s<]*)",
"$1<a href=""$2"" target=""_blank"">$2</a>")
strText = ereg_replace(strText, "(^|[\n ])((www|ftp)\.[^ ,""\s<]*)",
"$1<a href=""http://$2"" target=""_blank"">$2</a>")
strText = ereg_replace(strText, "(^|[\n
])([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)", "$1<a
href=""mailto:$2@$3"">$2@$3</a>")
strText = right(strText, len(strText)-1)
create_links = strText
end function
function ereg_replace(strOriginalString, strPattern, strReplacement)
' Function replaces pattern with replacement
dim objRegExp : set objRegExp = new RegExp
objRegExp.Pattern = strPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True
ereg_replace = objRegExp.replace(strOriginalString, strReplacement)
set objRegExp = nothing
end function
%>
article_text = create_links(Request.Form("article_text"))
--
Mike Brind