源代码
CREATE OR REPLACE PACKAGE Base_Num_Change IS --============================================= --1.0 16进制转10进制 FUNCTION Hex_To_Dec(p_Str VARCHAR2) RETURN NUMBER; --1.1 16进制转8进制 FUNCTION Hex_To_Oct(p_Str VARCHAR2) RETURN VARCHAR2; --1.2 16进制转2进制 FUNCTION Hex_To_Bin(p_Str VARCHAR2) RETURN VARCHAR2; --2.0 10进制转16进制 FUNCTION Dec_To_Hex(p_Dec NUMBER) RETURN VARCHAR2; --2.1 10进制转8进制 FUNCTION Dec_To_Oct(p_Dec NUMBER) RETURN VARCHAR2; --2.2 10进制转2进制 FUNCTION Dec_To_Bin(p_Dec NUMBER) RETURN VARCHAR2; --3.0 8进制转16进制 FUNCTION Oct_To_Hex(p_Str VARCHAR2) RETURN VARCHAR2; --3.1 8进制转10进制 FUNCTION Oct_To_Dec(p_Str VARCHAR2) RETURN NUMBER; --3.2 8进制转2进制 FUNCTION Oct_To_Bin(p_Str VARCHAR2) RETURN VARCHAR2; --4.0 2进制转16进制 FUNCTION Bin_To_Hex(p_Str VARCHAR2) RETURN VARCHAR2; --4.1 2进制转10进制 FUNCTION Bin_To_Dec(p_Str VARCHAR2) RETURN NUMBER; --4.2 2进制转8进制 FUNCTION Bin_To_Oct(p_Str VARCHAR2) RETURN VARCHAR2; END Base_Num_Change; / CREATE OR REPLACE PACKAGE BODY Base_Num_Change IS --============================================= --1.0 16进制转10进制 FUNCTION Hex_To_Dec(p_Str VARCHAR2) RETURN NUMBER AS p_Len NUMBER(9); p_Char VARCHAR2(1); p_Sub_Out NUMBER(3); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out NUMBER(18) := 0; p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '0123456789ABCDEF') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为2进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Length(p_Str); FOR i IN 1 .. p_Len LOOP p_Char := Substr(p_Sub_Str, 1, 1); SELECT Decode(p_Char, 'A', 10, 'B', 11, 'C', 12, 'D', 13, 'E', 14, 'F', 15, To_Number(p_Char)) INTO p_Sub_Out FROM Dual; p_Sub_Str := Substr(p_Sub_Str, 2); p_Out := p_Out * 16 + p_Sub_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Hex_To_Dec; --1.1 16进制转8进制 FUNCTION Hex_To_Oct(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN --得到基本数据 p_Out := Bin_To_Oct(Hex_To_Bin(p_Str)); -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Hex_To_Oct; --1.2 16进制转2进制 FUNCTION Hex_To_Bin(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Len NUMBER(9); p_Char VARCHAR2(1); p_Sub_Out VARCHAR2(4); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '0123456789ABCDEF') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为2进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Length(p_Str); FOR i IN 1 .. p_Len LOOP p_Char := Substr(p_Sub_Str, 1, 1); SELECT Decode(p_Char, '0', '0000', '1', '0001', '2', '0010', '3', '0011', '4', '0100', '5', '0101', '6', '0110', '7', '0111', '8', '1000', '9', '1001', 'A', '1010', 'B', '1011', 'C', '1100', 'D', '1101', 'E', '1110', 'F', '1111', '2222') INTO p_Sub_Out FROM Dual; p_Sub_Str := Substr(p_Sub_Str, 2); p_Out := p_Out || p_Sub_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Hex_To_Bin; --2.0 10进制转16进制 FUNCTION Dec_To_Hex(p_Dec NUMBER) RETURN VARCHAR2 AS p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN --得到基本数据 p_Out := Bin_To_Hex(Dec_To_Bin(p_Dec)); -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Dec_To_Hex; --2.1 10进制转8进制 FUNCTION Dec_To_Oct(p_Dec NUMBER) RETURN VARCHAR2 AS p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN --得到基本数据 p_Out := Bin_To_Oct(Dec_To_Bin(p_Dec)); -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Dec_To_Oct; --2.2 10进制转2进制 FUNCTION Dec_To_Bin(p_Dec NUMBER) RETURN VARCHAR2 AS p_Sub_Out VARCHAR2(4); p_Sub_Dec NUMBER(18) := p_Dec; p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Dec IS NULL THEN RETURN NULL; END IF; IF Trunc(p_Dec) <> p_Dec THEN p_Errstr := p_Dec || '不是整数,无法转换为2进制!'; RAISE p_Integrity; END IF;
LOOP p_Sub_Out := MOD(p_Sub_Dec, 2); p_Sub_Dec := Trunc(p_Sub_Dec / 2); p_Out := p_Sub_Out || p_Out; EXIT WHEN(p_Sub_Dec = 0); END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Dec_To_Bin; --3.0 8进制转16进制 FUNCTION Oct_To_Hex(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN --得到基本数据 p_Out := Bin_To_Hex(Oct_To_Bin(p_Str)); -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Oct_To_Hex; --3.1 8进制转10进制 FUNCTION Oct_To_Dec(p_Str VARCHAR2) RETURN NUMBER AS p_Len NUMBER(9); p_Char VARCHAR2(1); p_Sub_Out NUMBER(3); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out NUMBER(18) := 0; p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '01234567') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为2进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Length(p_Str); FOR i IN 1 .. p_Len LOOP p_Char := Substr(p_Sub_Str, 1, 1); p_Sub_Out := To_Number(p_Char); p_Sub_Str := Substr(p_Sub_Str, 2); p_Out := p_Out * 8 + p_Sub_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Oct_To_Dec; --3.2 8进制转2进制 FUNCTION Oct_To_Bin(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Len NUMBER(9); p_Char VARCHAR2(1); p_Sub_Out VARCHAR2(4); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '01234567') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为2进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Length(p_Str); FOR i IN 1 .. p_Len LOOP p_Char := Substr(p_Sub_Str, 1, 1); SELECT Decode(p_Char, '0', '000', '1', '001', '2', '010', '3', '011', '4', '100', '5', '101', '6', '110', '7', '111', '222') INTO p_Sub_Out FROM Dual; p_Sub_Str := Substr(p_Sub_Str, 2); p_Out := p_Out || p_Sub_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Oct_To_Bin; --4.0 2进制转16进制 FUNCTION Bin_To_Hex(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Len NUMBER(9); p_Char VARCHAR2(4); p_Sub_Out VARCHAR2(4); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '01') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为16进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Ceil(Length(p_Str) / 4); FOR i IN 1 .. p_Len LOOP p_Char := Lpad(Substr(p_Sub_Str,(CASE WHEN Length(p_Str) + 1 - 4 * i > 1 THEN Length(p_Str) + 1 - 4 * i ELSE 1 END)), 4, '0'); SELECT Decode(p_Char, '0000', '0', '0001', '1', '0010', '2', '0011', '3', '0100', '4', '0101', '5', '0110', '6', '0111', '7', '1000', '8', '1001', '9', '1010', 'A', '1011', 'B', '1100', 'C', '1101', 'D', '1110', 'E', '1111', 'F', 'G') INTO p_Sub_Out FROM Dual; p_Sub_Str := Substr(p_Sub_Str, 1, Length(p_Sub_Str) - 4); p_Out := p_Sub_Out || p_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Bin_To_Hex; --4.1 2进制转10进制 FUNCTION Bin_To_Dec(p_Str VARCHAR2) RETURN NUMBER AS p_Len NUMBER(9); p_Char VARCHAR2(1); p_Sub_Out NUMBER(3); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out NUMBER(18) := 0; p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '01') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为10进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Length(p_Str); FOR i IN 1 .. p_Len LOOP p_Char := Substr(p_Sub_Str, 1, 1); p_Sub_Out := To_Number(p_Char); p_Sub_Str := Substr(p_Sub_Str, 2); p_Out := p_Out * 2 + p_Sub_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Bin_To_Dec; --4.2 2进制转8进制 FUNCTION Bin_To_Oct(p_Str VARCHAR2) RETURN VARCHAR2 AS p_Len NUMBER(9); p_Char VARCHAR2(3); p_Sub_Out VARCHAR2(4); p_Sub_Str VARCHAR2(200) := Upper(p_Str); p_Out VARCHAR2(2000); p_Integrity EXCEPTION; p_Errstr VARCHAR2(200); BEGIN IF p_Str IS NULL THEN RETURN NULL; END IF; IF Ltrim(p_Sub_Str, '01') IS NOT NULL THEN p_Errstr := p_Str || '包含非法字符,无法转换为8进制!'; RAISE p_Integrity; END IF; --得到基本数据 p_Len := Ceil(Length(p_Str) / 3); FOR i IN 1 .. p_Len LOOP p_Char := Lpad(Substr(p_Sub_Str,(CASE WHEN Length(p_Str) + 1 - 3 * i > 1 THEN Length(p_Str) + 1 - 3 * i ELSE 1 END)), 3, '0'); SELECT Decode(p_Char, '000', '0', '001', '1', '010', '2', '011', '3', '100', '4', '101', '5', '110', '6', '111', '7', '9') INTO p_Sub_Out FROM Dual; p_Sub_Str := Substr(p_Sub_Str, 1, Length(p_Sub_Str) - 3); p_Out := p_Sub_Out || p_Out; END LOOP; -- RETURN p_Out; EXCEPTION WHEN p_Integrity THEN Raise_Application_Error(-20001, p_Errstr); END Bin_To_Oct; END Base_Num_Change; / |
16进制转10进制
SQL> select Base_Num_Change.Hex_To_Dec('ABC') from dual; BASE_NUM_CHANGE.HEX_TO_DEC('ABC') --------------------------------- 2748 |
10进制转2进制
SQL> select Base_Num_Change.Dec_To_Bin(2748) from dual; BASE_NUM_CHANGE.DEC_TO_BIN(2748) ------------------------------------------------------------------------------------------------- 101010111100 |
2进制转10进制
SQL> select Base_Num_Change.Bin_To_Dec(101010111100) from dual; BASE_NUM_CHANGE.BIN_TO_DEC(101010111100) ---------------------------------------- 2748 |
2进制转16进制
SQL> select Base_Num_Change.Bin_To_Hex(101010111100) from dual; BASE_NUM_CHANGE.BIN_TO_HEX(101010111100) ------------------------------------------------------------------------------------------------- ABC 其实,Oracle自带函数 to_number(),就可以搞定 SQL> select to_number('ABC','XXX') from dual; TO_NUMBER('ABC','XXX') 2748 |
10进制转16进制
SQL> select Base_Num_Change.Dec_To_Hex(2748) from dual; BASE_NUM_CHANGE.DEC_TO_HEX(2748) ------------------------------------------------------------------------------------------------- ABC 其实,Oracle自带to_char()函数 SQL> select to_char('2748','XXX') from dual; TO_C ---- ABC |
16进制转2进制
SQL> select Base_Num_Change.Hex_To_Bin('ABC') from dual; BASE_NUM_CHANGE.HEX_TO_BIN('ABC') -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 101010111100 |