Search Tools Links Login


Posted: 2003-06-01
By: ArchiveBot
Viewed: 66

Filed Under:

VB6 Code Cache

No attachments for this post

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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.