decoding "quoted-printable"

[Klaus Major]

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
klaus at major-k.de
http://www.major-k.de