VB URL Encode function???
Quote:
>Hi,
>Has anyone ever written or found a "URL Encode" function in VB?
>(or know where I can find the specification of what chars to translate.)
>Thanks in advance.
>-Murray
This is one that I use:
Public Function URLEncoder(strText)
Dim lngPlace
Dim strBuffer
Dim strCharacter
Dim Buffer
Do While lngPlace < Len(strText)
lngPlace = lngPlace + 1
strCharacter = Mid(strText, lngPlace, 1)
Select Case strCharacter
Case " "
Buffer = Buffer & "+"
Case "~"
Buffer = Buffer & "%7E"
Case "!"
Buffer = Buffer & "%21"
Case "#"
Buffer = Buffer & "%23"
Case "$"
Buffer = Buffer & "%24"
Case "%"
Buffer = Buffer & "%25"
Case "^"
Buffer = Buffer & "%5E"
Case "&"
Buffer = Buffer & "%26"
Case "("
Buffer = Buffer & "%28"
Case ")"
Buffer = Buffer & "%29"
Case "+"
Buffer = Buffer & "%2B"
Case "="
Buffer = Buffer & "%3D"
Case "["
Buffer = Buffer & "%5B"
Case "{"
Buffer = Buffer & "%7B"
Case "]"
Buffer = Buffer & "%5D"
Case "}"
Buffer = Buffer & "%7D"
Case "\"
Buffer = Buffer & "%5C"
Case "|"
Buffer = Buffer & "%7C"
Case "`"
Buffer = Buffer & "%60"
Case "'"
Buffer = Buffer & "%27"
Case ":"
Buffer = Buffer & "%3A"
Case ";"
Buffer = Buffer & "%3B"
Case "/"
Buffer = Buffer & "%2F"
Case "<"
Buffer = Buffer & "%3C"
Case ">"
Buffer = Buffer & "%3E"
Buffer = Buffer & "%40"
Case Chr(13)
Buffer = Buffer & "%0D"
Case Chr(10)
'ignore it
Case Else
Buffer = Buffer & strCharacter
End Select
Loop
URLEncoder = Buffer
End Function
