
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Create Convert Http strings into Clickable links

Article by:

Brian Gillham (8/24/2002)

	Add to Favourites
	Tell a friend

Summary:

This function takes a string as input and links any "http" it finds so that they are then clickable in a browser.

Viewed: 11737 times

Rating (13 votes):

3.8 out of 5

Rate this Article

Read Comments

Post Comments

Convert Http strings into Clickable links

This function takes a string as input and links any "http" it finds so that they are then clickable in a browser.

Sample Usage:

response.write LinkURLS("Please visit my web site at http://www.codetoad.com").

This will automatically insert the A HREF tag in the appropriate place.

Select All Code

<%
Function LinkURLs(strInput)

'This function takes a string as input and links any http's it
'finds so that they are then clickable in a browser.  

Dim iCurrentLocation  ' Our current position in the input string
Dim iLinkStart        ' Beginning position of the current link
Dim iLinkEnd          ' Ending position of the current link
Dim strLinkText       ' Text we're converting to a link
Dim strOutput         ' Return string with links in it

' Start at the first character in the string
iCurrentLocation = 1

' Look for http:// in the text from the current position to
' the end of the string.  If we find it then we start the
' linking process otherwise we're done because there are no
' more http://'s in the string.

Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0

' Set the position of the beginning of the link
iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1)

' Set the position of the end of the link.  I use the
' first space as the determining factor.
iLinkEnd = InStr(iLinkStart, strInput, " ", 1)

'make sure ther was no line break. If there was a line break before the
' space, set that as the end.
checkBreak=InStr(iLinkStart, strInput, chr(13), 1)
if checkBreak>0 and checkBreak<iLinkEnd then iLinkEnd=checkbreak


' If we didn't find a space then we link to the
' end of the string

If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1
    ' Take care of any punctuation we picked up
    Select Case Mid(strInput, iLinkEnd - 1, 1)
            Case ",",".", "!", "?"
             iLinkEnd = iLinkEnd - 1
        End Select

' This adds to the output string all the non linked stuff
' up to the link we're curently processing.

strOutput = strOutput & Mid(strInput, iCurrentLocation, _
      iLinkStart - iCurrentLocation)

' Get the text we're linking and store it in a variable
strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)

' Build our link and append it to the output string

strOutput = strOutput & "<A HREF=""" & strLinkText & """>" _
   & strLinkText & "</A>"

' Some good old debugging
'Response.Write iLinkStart & "," & iLinkEnd & "<BR>" & vbCrLf

' Reset our current location to the end of that link
  iCurrentLocation = iLinkEnd

Loop
' Tack on the end of the string.  I need to do this so we
' don't miss any trailing non-linked text

strOutput = strOutput & Mid(strInput, iCurrentLocation)

' Set the return value
LinkURLs = strOutput

End Function 'LinkURLs
%>

Useful Links

Fat Cow Hosting

FatCow Review

Advertise here

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'Create Convert Http strings into Clickable links'

To post comments you need to become a member. If you are already a member, please log in .

Recent Forum Threads

•	C++
•	Re: refresh parent after closing pop up window
•	Dynamic Insertion
•	Date and Time function around the world???
•	Significant Factors
•	Perl array access
•	Re: huffman encoding and decoding in C++...
•	Perl One Liner: Replace {(
•	Re: html including php, accessing the functions

Recent Articles

	ASP GetTempName
	Decode and Encode UTF-8
	ASP GetFile
	ASP FolderExists
	ASP FileExists
	ASP OpenTextFile
	ASP FilesystemObject
	ASP CreateFolder
	ASP CreateTextFile
	Javascript Get Selected Text

submit a link - privacy - contact - advertise - hot links - link to us - submit your article