PL/SQL 十进制数转任意进制

Posted 2020-11-22 thenbz3

很简单

SET SERVEROUTPUT ON SIZE 99999;
DECLARE 
   total integer; 
   y NUMBER ;
   i NUMBER ;
   n NUMBER := # 
   x NUMBER := &zh; 
   j NUMBER := 1;
   s NUMBER := 1;
   a VARCHAR2(100) := '';
   type ruanchar IS VARRAY(1000) OF VARCHAR2(1);
   type ruannum IS VARRAY(1000) OF NUMBER(2);
   nums ruanchar;
   sznums ruannum;
BEGIN 
   nums := ruanchar('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
   sznums := ruannum();
   
   i := 1;
   WHILE s!=0 LOOP
       s := trunc(n/x);
       y := MOD(n,x);
       sznums.EXTEND;
       sznums(i) := y;
       i := i+1;
       n := s;
   END LOOP;

   total := sznums.count;
   FOR j in 1 .. total LOOP 
      a := a||nums(sznums(total-j+1)+1)||''; 
   END LOOP;
   dbms_output.put_line(a); 
END; 
/