JB, Guglielmo
This appears to work for my purposes and is pretty speedy. See anything
that might break?
---------------------------------------
function convertTextToBinary varText
repeat with n = 1 to the number of chars of varText
put chartonum(char n of varText) into theNum
if theNum >=64 and theNum <= 127 then
put "0"&baseConvert(theNum,10,2) after tConverted
else if theNum <="64" then
put "00"&baseConvert(theNum,10,2) after tConverted
else
put baseConvert(theNum,10,2) after tConverted
end if
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
