URL encoding: Difference between revisions
→{{header|AutoHotkey}}: updated code to remove the need to use SetFormat
Langurmonkey (talk | contribs) |
(→{{header|AutoHotkey}}: updated code to remove the need to use SetFormat) |
||
Line 273:
; Modified from http://goo.gl/0a0iJq
UriEncode(Uri, Reserved:="!#$&'()*+,/:;=?@[]") {
Unreserved := "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~"
VarSetCapacity(Var, StrPut(Uri, "UTF-8"), 0)
StrPut(Uri, &Var, "UTF-8")
While (Code := NumGet(Var, A_Index - 1, "UChar")) {▼
If InStr(Unreserved . Reserved, Chr(Code)) {
▲ While Code := NumGet(Var, A_Index - 1, "UChar")
}
Else {▼
}
▲ Res .= Chr(Code)
}
▲ Else
▲ Return, Res
}</syntaxhighlight>
|