Search Tools Links Login

URLDecode Function


Decodes a URLEncoded string

Original Author: Markus Diersbock

Inputs

sEncodedURL - Encoded String to Decode

Returns

Decoded String

Code

Public Function URLDecode(sEncodedURL As String) As String
On Error GoTo Catch

Dim iLoop As Integer
Dim sRtn As String
Dim sTmp As String

If Len(sEncodedURL) > 0 Then
' Loop through each char
For iLoop = 1 To Len(sEncodedURL)
  sTmp = Mid(sEncodedURL, iLoop, 1)
  sTmp = Replace(sTmp, "+", " ")
  ' If char is % then get next two chars
  ' and convert from HEX to decimal
  If sTmp = "%" and LEN(sEncodedURL) > iLoop + 2 Then
  sTmp = Mid(sEncodedURL, iLoop + 1, 2)
  sTmp = Chr(CDec("&H" & sTmp))
  ' Increment loop by 2
  iLoop = iLoop + 2
  End If
  sRtn = sRtn & sTmp
Next iLoop
URLDecode = sRtn
End If
Finally:
Exit Function
Catch:
URLDecode = ""
Resume Finally
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 109 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.