Simple one attached...Handles up to 32bits, and I
could squeeze about 3000 conversions per second out of
my laptop with it.
Cheers
Connor
create or replace
package conv is
function to_binary(p_in number) return varchar2;
function from_binary(p_in varchar2) return number;
end;
/
create or replace
package body conv is
function to_binary(p_in number) return varchar2 is
v_result varchar2(60);
v_temp number := p_in;
large_power_2 number(20) := power(2,31); -- max
bits-1
begin
for i in 1 .. 32 loop -- must match
number of bits
if v_temp >= large_power_2 then
v_result := v_result || '1';
v_temp := v_temp - large_power_2;
else
v_result := v_result || '0';
end if;
large_power_2 := trunc(large_power_2/2);
end loop;
return v_result;
end;
function from_binary(p_in varchar2) return number is
v_result number := 0;
power_2 number(20) := 1;
begin
for i in reverse 1 .. length(p_in) loop
v_result := v_result +
to_number(substr(p_in,i,1))*power_2;
power_2 := power_2 * 2;
end loop;
return v_result;
end;
end;
/
--- Steve Haas <[EMAIL PROTECTED]> wrote: > Good
afternoon,
>
> I have seen on this list some time ago PL/SQL to
> convert a number to/from
> decimal and hex.
> Does anyone have PL/SQL to convert a number to/from
> a binary representation?
>
> TIA,
>
> Steven Haas
> Opus Consultants, LLC
> "Opinions expressed, right or wrong, are my own."
>
>
> --
> Please see the official ORACLE-L FAQ:
> http://www.orafaq.com
> --
> Author: Steve Haas
> INET: [EMAIL PROTECTED]
>
> Fat City Network Services -- (858) 538-5051 FAX:
> (858) 538-5051
> San Diego, California -- Public Internet
> access / Mailing Lists
>
--------------------------------------------------------------------
> To REMOVE yourself from this mailing list, send an
> E-Mail message
> to: [EMAIL PROTECTED] (note EXACT spelling of
> 'ListGuru') and in
> the message BODY, include a line containing: UNSUB
> ORACLE-L
> (or the name of mailing list you want to be removed
> from). You may
> also send the HELP command for other information
> (like subscribing).
=====
Connor McDonald
http://www.oracledba.co.uk (mirrored at
http://www.oradba.freeserve.co.uk)
"Some days you're the pigeon, some days you're the statue"
____________________________________________________________
Do You Yahoo!?
Get your free @yahoo.co.uk address at http://mail.yahoo.co.uk
or your free @yahoo.ie address at http://mail.yahoo.ie
--
Please see the official ORACLE-L FAQ: http://www.orafaq.com
--
Author: =?iso-8859-1?q?Connor=20McDonald?=
INET: [EMAIL PROTECTED]
Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051
San Diego, California -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from). You may
also send the HELP command for other information (like subscribing).
