16 lines
485 B
Text
16 lines
485 B
Text
Function urlencode$ (strng$)
|
|
Dim buf$, char$
|
|
For i = 1 To Len(strng$)
|
|
char$ = Mid$(strng$, i, 1)
|
|
Select Case Asc(char$)
|
|
'Comment out next two lines if space should be %20 instead of +
|
|
Case 32
|
|
buf$ = buf$ + "+"
|
|
Case 48 TO 57, 65 TO 90, 97 TO 122, 45, 46, 95
|
|
buf$ = buf$ + char$
|
|
Case Else
|
|
buf$ = buf$ + "%" + Hex$(Asc(char$))
|
|
End Select
|
|
Next i
|
|
urlencode$ = buf$
|
|
End Function
|