Makes a string http querystring friendly by replacing all non-alpha and non-numeric characters with the appropriate hex code. Helpful when using the wininet API.
example: “(Find This)” becomes “%28Find%20This%29”
Original Author: Greg Tyndall
Inputs
Text as String
Returns
String
Code
Public Function HTTPSafeString(Text As String) As String
Dim lCounter As Long
Dim sBuffer As String
Dim sReturn As String
sReturn = Text
For lCounter = 1 To Len(Text)
sBuffer = Mid(Text, lCounter, 1)
If Not sBuffer Like "[a-z,A-Z,0-9]" Then
sReturn = Replace(sReturn, sBuffer, "%" & Hex(Asc(sBuffer)))
End If
Next lCounter
HTTPSafeString = sReturn
End Function