Search Tools Links Login


Used by VB applications that want to lightly (without any additional project references) transform unsafe characters into web-friendly URL Encoded text.

Original Author: Rick Conklin


A string. Just start a new project with two text fields (Text1 and Text2) and paste the code into the form.


The URLEncoded version of that string. (Typically used when sending QueryString of Form data to web pages)


Function ServerDotURLEncode(strBefore As String) As String
Dim strAfter As String
Dim intLoop As Integer

If Len(strBefore) > 0 Then
  For intLoop = 1 To Len(strBefore)
   Select Case Asc(Mid(strBefore, intLoop, 1))
   Case 48 To 57, 65 To 90, 97 To 122, 46, 45, 95, 42 '0-9, A-Z, a-z . - _ *
    strAfter = strAfter & Mid(strBefore, intLoop, 1)
   Case 32
    strAfter = strAfter & "+"
   Case Else
    strAfter = strAfter & "%" & Right("0" & Hex(Asc(Mid(strBefore, intLoop, 1))), 2)
   End Select
End If

ServerDotURLEncode = strAfter
End Function
Private Sub Text1_Change()
Text2 = ServerDotURLEncode(Text1)
End Sub

About this post

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


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.