26 lines
550 B
Plaintext
26 lines
550 B
Plaintext
dim lookUp$( 256)
|
|
|
|
for i =0 to 256
|
|
lookUp$( i) ="%" +dechex$( i)
|
|
next i
|
|
|
|
url$ ="http%3A%2F%2Ffoo%20bar%2F"
|
|
|
|
print "Supplied URL '"; url$; "'"
|
|
print "As string '"; url2string$( url$); "'"
|
|
|
|
end
|
|
|
|
function url2string$( i$)
|
|
for j =1 to len( i$)
|
|
c$ =mid$( i$, j, 1)
|
|
if c$ ="%" then
|
|
nc$ =chr$( hexdec( mid$( i$, j +1, 2)))
|
|
url2string$ =url2string$ +nc$
|
|
j =j +2
|
|
else
|
|
url2string$ =url2string$ +c$
|
|
end if
|
|
next j
|
|
end function
|