I tried using the numberFormat to pad zeroes. It worked but was about 20% slower
(if I did my math correctly).
I got roughly a 6% speed improvement using 'repeat for each char tChar' instead
of repeat with n = 1..."
My test sample was 1000 chars.
function convertTextToBinary varText
--repeat with n = 1 to the number of chars of varText
repeat for each char tChar in varText
--put chartonum(char n of varText) into theNum
put chartonum(tChar) into theNum
put baseConvert(theNum,10,2) into tBaseConverted
put char -8 to -1 of ("00000000" & tBaseConverted ) into tBaseConverted
put tBaseConverted after tConverted
end repeat
return tConverted
end convertTextToBinary
Phil Davis
On 1/2/12 1:33 PM, Bryan McCormick wrote:
JB, Jim, Guglielmo
Okay, this is the final version of the script which does seem considerably
faster than where I started.
Thanks to all. Hope this was a useful walk-through.
Any other suggestions on ways to improve?
---------------------------------------------
function convertTextToBinary varText
repeat with n = 1 to the number of chars of varText
put chartonum(char n of varText) into theNum
put baseConvert(theNum,10,2) into tBaseConverted
put char -8 to -1 of ("00000000" & tBaseConverted ) into tBaseConverted
put tBaseConverted after tConverted
end repeat
return tConverted
end convertTextToBinary
_______________________________________________
use-livecode mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
--
Phil Davis
PDS Labs
Professional Software Development
http://pdslabs.net
_______________________________________________
use-livecode mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
