• Home
 · 
• String Manipulation
 · 
• HTTPSafeString

HTTPSafeString

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"

Inputs
Text as String

Returns
String

Rate HTTPSafeString

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

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