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"
AI
Yapay Zeka Özeti: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kaynak Kod
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
Orijinal Yorumlar (3)
Wayback Machine'den kurtarıldı