Comments on: How to convert a number from any base to any base in SQL

By: newkid

newkid — Fri, 25 Jun 2010 14:37:59 +0000

VAR STR VARCHAR2(10);
EXEC :STR := '1234WXYZ';

VAR FROM_BASE NUMBER;
EXEC :FROM_BASE :=36;

VAR TO_BASE NUMBER;
EXEC :TO_BASE :=16;

WITH n1 AS (
  SELECT SUM((CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                   ELSE ASCII(c)-ASCII('A')+10 
              END)*POWER(:FROM_BASE,len-rn)    
             ) AS the_num     
    FROM (SELECT SUBSTR(:STR,ROWNUM,1) c  
                ,LENGTH(:STR) len         
                ,ROWNUM rn                
            FROM DUAL 
          CONNECT BY ROWNUM<=LENGTH(:STR)
          )
)
,n2 AS (
  SELECT (CASE WHEN n <10 THEN TO_CHAR(n) ELSE CHR(ASCII('A')+n-10) END) AS digi   
        ,rn
    FROM (SELECT MOD(TRUNC(the_num/POWER(:TO_BASE,ROWNUM -1)),:TO_BASE) n   
                ,ROWNUM rn        
            FROM n1
          CONNECT BY ROWNUM <= TRUNC(LOG(:TO_BASE,the_num))+1  
         )
)
SELECT REPLACE(SYS_CONNECT_BY_PATH(digi,'*'),'*') AS result  
  FROM n2
WHERE rn=1    
START WITH rn = (SELECT MAX(rn) FROM n2)  
CONNECT BY rn = PRIOR rn -1;



WITH n1(the_num,lvl,c) AS ( 
  SELECT 0,1,SUBSTR(:STR,1,1) FROM DUAL
  UNION ALL
  SELECT the_num*:FROM_BASE  
         +(CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                ELSE ASCII(c)-ASCII('A')+10 
           END)
        ,lvl+1
        ,SUBSTR(:STR,lvl+1,1)
    FROM n1
   WHERE lvl<=LENGTH(:STR)
  )
,n2(the_num,n,result) AS ( 
  SELECT TRUNC(the_num/:TO_BASE),MOD(the_num,:TO_BASE),'' 
    FROM n1 
   WHERE lvl=LENGTH(:STR)+1
  UNION ALL
  SELECT (CASE WHEN the_num=0 THEN -1   
               ELSE TRUNC(the_num/:TO_BASE) 
          END)
        ,MOD(the_num,:TO_BASE)   
        ,(CASE WHEN n <10 THEN TO_CHAR(n) ELSE CHR(ASCII('A')+n-10) END)||result  
    FROM n2
   WHERE the_num>=0
  )
SELECT result FROM n2 WHERE the_num<0
;

By: newkid

newkid — Thu, 24 Jun 2010 17:45:21 +0000

VAR STR VARCHAR2(10);
EXEC :STR := '1234WXYZ';

VAR FROM_BASE NUMBER;
EXEC :FROM_BASE :=36;

VAR TO_BASE NUMBER;
EXEC :TO_BASE :=16;

          
WITH n1 AS (
  SELECT SUM((CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                   ELSE ASCII(c)-ASCII('A')+10 
              END)*POWER(:FROM_BASE,len-rn)    
             ) AS the_num     
    FROM (SELECT SUBSTR(:STR,ROWNUM,1) c  
                ,LENGTH(:STR) len         
                ,ROWNUM rn                
            FROM DUAL 
          CONNECT BY ROWNUM<=LENGTH(:STR)
          )
)
,n2 AS (
  SELECT (CASE WHEN n <10 THEN TO_CHAR(n) ELSE CHR(ASCII('A')+n-10) END) AS digi   
        ,rn
    FROM (SELECT MOD(TRUNC(the_num/POWER(:TO_BASE,ROWNUM -1)),:TO_BASE) n   
                ,ROWNUM rn        
            FROM n1
          CONNECT BY ROWNUM <= TRUNC(LOG(:TO_BASE,the_num))+1  
         )
)
SELECT REPLACE(SYS_CONNECT_BY_PATH(digi,'*'),'*') AS result  
  FROM n2
WHERE rn=1    
START WITH rn = (SELECT MAX(rn) FROM n2)  
CONNECT BY rn = PRIOR rn -1;


RESULT
------------
134DAA43FB


11GR2:
WITH n1(the_num,lvl,c) AS ( 
  SELECT 0,1,SUBSTR(:STR,1,1) FROM DUAL
  UNION ALL
  SELECT the_num*:FROM_BASE  
         +(CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                ELSE ASCII(c)-ASCII('A')+10 
           END)
        ,lvl+1
        ,SUBSTR(:STR,lvl+1,1)
    FROM n1
   WHERE lvl<=LENGTH(:STR)
  )
,n2(the_num,n,result) AS ( 
  SELECT TRUNC(the_num/:TO_BASE),MOD(the_num,:TO_BASE),'' 
    FROM n1 
   WHERE lvl=LENGTH(:STR)+1
  UNION ALL
  SELECT (CASE WHEN the_num=0 THEN -1   
               ELSE TRUNC(the_num/:TO_BASE) 
          END)
        ,MOD(the_num,:TO_BASE)   
        ,(CASE WHEN n =0
  )
SELECT result FROM n2 WHERE the_num<0
;

RESULT
----------------
134DAA43FB

By: newkid

newkid — Thu, 24 Jun 2010 17:44:18 +0000

VAR STR VARCHAR2(10);
EXEC :STR := '1234WXYZ';

VAR FROM_BASE NUMBER;
EXEC :FROM_BASE :=36;

VAR TO_BASE NUMBER;
EXEC :TO_BASE :=16;

          
WITH n1 AS (
  SELECT SUM((CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                   ELSE ASCII(c)-ASCII('A')+10 
              END)*POWER(:FROM_BASE,len-rn)    
             ) AS the_num     
    FROM (SELECT SUBSTR(:STR,ROWNUM,1) c  
                ,LENGTH(:STR) len         
                ,ROWNUM rn                
            FROM DUAL 
          CONNECT BY ROWNUM<=LENGTH(:STR)
          )
)
,n2 AS (
  SELECT (CASE WHEN n <10 THEN TO_CHAR(n) ELSE CHR(ASCII('A')+n-10) END) AS digi   
        ,rn
    FROM (SELECT MOD(TRUNC(the_num/POWER(:TO_BASE,ROWNUM -1)),:TO_BASE) n   
                ,ROWNUM rn        
            FROM n1
          CONNECT BY ROWNUM <= TRUNC(LOG(:TO_BASE,the_num))+1  
         )
)
SELECT REPLACE(SYS_CONNECT_BY_PATH(digi,'*'),'*') AS result  
  FROM n2
WHERE rn=1    
START WITH rn = (SELECT MAX(rn) FROM n2)  
CONNECT BY rn = PRIOR rn -1;


RESULT
------------
134DAA43FB


11GR2:
WITH n1(the_num,lvl,c) AS ( 
  SELECT 0,1,SUBSTR(:STR,1,1) FROM DUAL
  UNION ALL
  SELECT the_num*:FROM_BASE  
         +(CASE WHEN c BETWEEN '0' AND '9' THEN TO_NUMBER(c) 
                ELSE ASCII(c)-ASCII('A')+10 
           END)
        ,lvl+1
        ,SUBSTR(:STR,lvl+1,1)
    FROM n1
   WHERE lvl<=LENGTH(:STR)
  )
,n2(the_num,n,result) AS ( 
  SELECT TRUNC(the_num/:TO_BASE),MOD(the_num,:TO_BASE),'' 
    FROM n1 
   WHERE lvl=LENGTH(:STR)+1
  UNION ALL
  SELECT (CASE WHEN the_num=0 THEN -1   
               ELSE TRUNC(the_num/:TO_BASE) 
          END)
        ,MOD(the_num,:TO_BASE)   
        ,(CASE WHEN n =0
  )
SELECT result FROM n2 WHERE the_num<0
;

RESULT
----------------
134DAA43FB

By: DP1234

DP1234 — Fri, 02 Apr 2010 20:42:07 +0000

Here is a nice elegant solution using plain SQL that was posted over on StackOverflow for converting bases:

http://stackoverflow.com/questions/2568668/base-36-to-base-10-conversion-using-sql-only