/ Snippet Library - View Code

Snippet details

ID: 371

Viewed: 1309

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Takes a string and converts it to URL syntax for reading later by the page.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Clint LaFever

Snippet By:	Clint LaFever
Declarations
Highlight Allnone
Code
Highlight All'------------------------------------------------------------ ' Author: Clint M. LaFever [lafeverc@saic.com] '------------------------------------------------------------ Public Function StringToURL(sSTR) As String On Error GoTo ErrorStringToURL Dim oSTR As String Dim x As Long oSTR = "" For x = 1 To Len(sSTR) If Asc(Mid(sSTR, x, 1)) = 13 Then oSTR = oSTR & ConvertURLPiece(" ") x = x + 1 Else oSTR = oSTR & "%" & Hex(Asc(Mid(sSTR, x, 1))) End If Next x StringToURL = oSTR Exit Function ErrorStringToURL: MsgBox Err & ":Error in StringToURL. Error Message: " & Err.Description, vbCritical, "Warning" Exit Function End Function '------------------------------------------------------------ ' Author: Clint M. LaFever [lafeverc@saic.com] '------------------------------------------------------------ Private Function ConvertURLPiece(sSTR As String) As String On Error Resume Next Dim oSTR As String Dim x As Long oSTR = "" For x = 1 To Len(sSTR) oSTR = oSTR & "%" & Hex(Asc(Mid(sSTR, x, 1))) Next x ConvertURLPiece = oSTR End Function

No Reviews to show