
	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

Sponsored by:

FindMyHosting - Web Hosting Search

Summary:

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

Viewed: 9193 times

Rating (8 votes):

4.4 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

Affordable Windows Hosting

Reseller Hosting

Web+Hosting=$1.66

Web Hosting

Hosting

Windows Hosting

Web Hosting Providers

Cheap Hosting

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

•	hidden div block when displayed, displays at an offset of 200px only in IE 6..
•	help - sketch
•	Re: Perl Script - File Handling.
•	Open a file from website
•	Re: to open 5 terminals from one and also execute different commands on each terminal
•	read a selected multiple line, those should match some of the values read in the files..
•	Help me please
•	Empty the contents of a file.
•	Month Start, End dates

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