8 lines
236 B
Text
8 lines
236 B
Text
|
URLEncoding[url_] :=
|
||
|
|
StringReplace[url,
|
||
|
|
x : Except[
|
||
|
|
Join[CharacterRange["0", "9"], CharacterRange["a", "z"],
|
||
|
|
CharacterRange["A", "Z"]]] :>
|
||
|
|
StringJoin[("%" ~~ #) & /@
|
||
|
|
IntegerString[ToCharacterCode[x, "UTF8"], 16]]]
|