Hi Mark,
Klaus, this is a function from an old project that worked well
enough for its purpose...maybe good enough for your needs?
WON-DER-FUL!!!!!
Thank you very much, this does help me A LOT! :-)
function decodeQP pStr
put 0 into tc
repeat for each char c in pStr
if c is "=" then put 1 into tc
if tc = 0 then
put c after decodedStr
else
if c is not "=" then
put c into char tc of hexVal
add 1 to tc
end if
if tc = 3 then
put numToChar(baseConvert(hexVal,16,10)) after decodedStr
put 0 into tc
end if
end if
end repeat
return decodedStr
end decodeQP
Best,
Mark
Regards
Klaus Major
[EMAIL PROTECTED]
http://www.major-k.de
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
