CLASS

≫ CLASS ≫ 오늘의 퀴즈

[더비's 퀴즈]숫자를 한글로 변환하여 보여주자.

일반태그: 퀴즈.DB태그: SQL. 김지룡 7 Comments 2014년 10월 27일 463 (1)

평소 제가 존경해 마지않는 마농님의 문제를 가져와 보았습니다.

문제

with base
(SELECT 123456789012345 amt FROM dual
 UNION ALL SELECT 29000 FROM dual
 UNION ALL SELECT 309840 FROM dual)

위의 Base에 있는 숫자값들을 아래와 같이 표현하여 보세요.

AMT V
--------------- --------------------------------------------------------
123456789012345 일백이십삼조사천오백육십칠억팔천구백일만이천삼백사십오
          29000 이만구천
         309840 삼십만구천팔백사십

with base

(SELECT 123456789012345 amt FROM dual

UNION ALL SELECT 29000 FROM dual

UNION ALL SELECT 309840 FROM dual)

위의 Base에 있는 숫자값들을 아래와 같이 표현하여 보세요.

AMT V

--------------- --------------------------------------------------------

123456789012345 일백이십삼조사천오백육십칠억팔천구백일만이천삼백사십오

29000 이만구천

309840 삼십만구천팔백사십

1.문제 풀이

2.풀이 과정

3.결과

About the Author

View all posts by 김지룡
● (주)더비소프트 SI&ITO사업부 / ERP사업팀 팀원
● 경력 5년(현 LG전자 GERP DBA/Tuning 업무)

[퀴즈] [더비's 퀴즈]시작일과 종료일사이의 주말을 제외한 일수 구하기 14-12-15 일반태그: 퀴즈. DB태그: SQL.

7개의 댓글이 등록되었습니다.

김진규 2014년 10월 28일 00:21

DECLARE
    P_AMT  VARCHAR2(32765);
    P_TMP  VARCHAR2(32765);
    P_LEN  NUMBER := 0;
    ARRAY1 DBMS_SQL.VARCHAR2_TABLE;
    ARRAY2 DBMS_SQL.VARCHAR2_TABLE;
    ARRAY3 DBMS_SQL.VARCHAR2_TABLE;
    CURSOR MY_CURSOR IS
      WITH BASE
           AS (SELECT '123456789012345' amt
               FROM   DUAL
               UNION ALL
               SELECT '29000'
               FROM   DUAL
               UNION ALL
               SELECT '309840'
               FROM   DUAL)
      SELECT AMT
      FROM   BASE;
BEGIN
    DBMS_OUTPUT.ENABLE(1000000);
    ARRAY1(0) := '';
    ARRAY1(1) := '일';
    ARRAY1(2) := '이';
    ARRAY1(3) := '삼';
    ARRAY1(4) := '사';
    ARRAY1(5) := '오';
    ARRAY1(6) := '육';
    ARRAY1(7) := '칠';
    ARRAY1(8) := '팔';
    ARRAY1(9) := '구';
    ARRAY2(0) := '';
    ARRAY2(1) := '십';
    ARRAY2(2) := '백';
    ARRAY2(3) := '천';
    ARRAY2(4) := '만';
    ARRAY2(5) := '억';
    ARRAY2(6) := '조';
    ARRAY2(7) := '경';
    ARRAY3(0) := '';
    ARRAY3(1) := '만';
    ARRAY3(2) := '억';
    ARRAY3(3) := '조';
    ARRAY3(4) := '경';
    DBMS_OUTPUT.PUT_LINE('AMT V');
DBMS_OUTPUT.PUT_LINE('--------------- --------------------------------------------------------');
OPEN MY_CURSOR;
LOOP
    FETCH MY_CURSOR INTO P_AMT;
    EXIT WHEN MY_CURSOR%NOTFOUND;
    P_LEN := LENGTH(P_AMT);
    FOR I IN REVERSE 0.. (P_LEN - 1) LOOP
        P_TMP := P_TMP
                 || ARRAY1(TO_NUMBER(SUBSTRB(P_AMT, ( P_LEN - I ), 1)));
        IF 0 < TO_NUMBER(SUBSTRB(P_AMT, ( P_LEN - I ), 1)) THEN
          P_TMP := P_TMP
                   || ARRAY2(MOD(I, 4));
        END IF;
        IF MOD(I, 4) = 0
           AND 0 < I THEN
          P_TMP := P_TMP
                   || ARRAY3(I / 4);
        END IF;
    END LOOP;
    P_TMP := REPLACE(P_TMP, '   ', '백');
    P_TMP := REPLACE(P_TMP, '  ', '만');
    P_TMP := REPLACE(P_TMP, ' ', '십');
    DBMS_OUTPUT.PUT_LINE(P_AMT
                         || ' '
                         || P_TMP);
    P_TMP := '';
END LOOP;
CLOSE MY_CURSOR;
END;

DECLARE

P_AMT VARCHAR2(32765);

P_TMP VARCHAR2(32765);

P_LEN NUMBER := 0;

ARRAY1 DBMS_SQL.VARCHAR2_TABLE;

ARRAY2 DBMS_SQL.VARCHAR2_TABLE;

ARRAY3 DBMS_SQL.VARCHAR2_TABLE;

CURSOR MY_CURSOR IS

WITH BASE

AS (SELECT '123456789012345' amt

FROM DUAL

UNION ALL

SELECT '29000'

FROM DUAL

UNION ALL

SELECT '309840'

FROM DUAL)

SELECT AMT

FROM BASE;

BEGIN

DBMS_OUTPUT.ENABLE(1000000);

ARRAY1(0) := '';

ARRAY1(1) := '일';

ARRAY1(2) := '이';

ARRAY1(3) := '삼';

ARRAY1(4) := '사';

ARRAY1(5) := '오';

ARRAY1(6) := '육';

ARRAY1(7) := '칠';

ARRAY1(8) := '팔';

ARRAY1(9) := '구';

ARRAY2(0) := '';

ARRAY2(1) := '십';

ARRAY2(2) := '백';

ARRAY2(3) := '천';

ARRAY2(4) := '만';

ARRAY2(5) := '억';

ARRAY2(6) := '조';

ARRAY2(7) := '경';

ARRAY3(0) := '';

ARRAY3(1) := '만';

ARRAY3(2) := '억';

ARRAY3(3) := '조';

ARRAY3(4) := '경';

DBMS_OUTPUT.PUT_LINE('AMT V');

DBMS_OUTPUT.PUT_LINE('--------------- --------------------------------------------------------');

OPEN MY_CURSOR;

LOOP

FETCH MY_CURSOR INTO P_AMT;

EXIT WHEN MY_CURSOR%NOTFOUND;

P_LEN := LENGTH(P_AMT);

FOR I IN REVERSE 0.. (P_LEN - 1) LOOP

P_TMP := P_TMP

|| ARRAY1(TO_NUMBER(SUBSTRB(P_AMT, ( P_LEN - I ), 1)));

IF 0 < TO_NUMBER(SUBSTRB(P_AMT, ( P_LEN - I ), 1)) THEN

P_TMP := P_TMP

|| ARRAY2(MOD(I, 4));

END IF;

IF MOD(I, 4) = 0

AND 0 < I THEN

P_TMP := P_TMP

|| ARRAY3(I / 4);

END IF;

END LOOP;

P_TMP := REPLACE(P_TMP, ' ', '백');

P_TMP := REPLACE(P_TMP, ' ', '만');

P_TMP := REPLACE(P_TMP, ' ', '십');

DBMS_OUTPUT.PUT_LINE(P_AMT

|| ' '

|| P_TMP);

P_TMP := '';

END LOOP;

CLOSE MY_CURSOR;

END;

응답

강정식 2014년 10월 28일 13:46

김진규 과장님께서는 PL/SQL로 작성하셨군요 ^^

고수의 향기가 물씬 풍깁니다.

저도 나중에 한번 도전해 보도록 하겠습니다!!

응답
- 김진규 2014년 10월 28일 20:52
  
  뜨앜, 고수라뇨 ㄷㄷ; 너무 어거지로 짠거 같아요. ㅋ, 코드가 너무 길군요.ㅠㅠ
  퇴근 시간이 요즘 늦어, 문득 접속 했다가 풀어 본건데, 코드 올리다가 엔터시 P 태그가 자꾸 들어가서
  몇번 다시 올렸네요. 아마도 지룡대리님 메일로 똑같은 메시지가 여러번 왔을 거라는;;
  버그 인지는 몰라도 수고 스럽겠지만, 한팀장님께 신고는 해두웠습니다. ^^;;
  
  응답
  - 강정식 2014년 10월 29일 08:06
    
    ㅎㅎ 한팀장님이 또 한번 수고해 주시겠군요 ^^
    
    응답

강정식 2014년 11월 6일 13:46

김진규 과장님이 PL/SQL로 접근해 주셨는데 저는 SQL로 작성해 보았습니다.

현재 한글 수량 표시는 아래와 같다고 하여 아래 내용을 참고 하였습니다.

1. 한글수량표시

일 1
십 10
백 100 (10^2)
천 1000 (10^3)
만 10000 (10^4)
억 10000 0000 (10^8)
조 10000 0000 0000 (10^12)
경 10000 0000 0000 0000 (10^16)
해 10000 0000 0000 0000 0000 (10^20)
서 10000 0000 0000 0000 0000 0000 (10^24)
양 10000 0000 0000 0000 0000 0000 0000 (10^28)
구 10000 0000 0000 0000 0000 0000 0000 0000 (10^32)
간 10000 0000 0000 0000 0000 0000 0000 0000 0000 (10^36)
정 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^40)
재 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^44)
극 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^48)
항 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^56)
아 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^64)
나 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^72)
불 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^80)
무 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^88)

일 1

십 10

백 100 (10^2)

천 1000 (10^3)

만 10000 (10^4)

억 10000 0000 (10^8)

조 10000 0000 0000 (10^12)

경 10000 0000 0000 0000 (10^16)

해 10000 0000 0000 0000 0000 (10^20)

서 10000 0000 0000 0000 0000 0000 (10^24)

양 10000 0000 0000 0000 0000 0000 0000 (10^28)

구 10000 0000 0000 0000 0000 0000 0000 0000 (10^32)

간 10000 0000 0000 0000 0000 0000 0000 0000 0000 (10^36)

정 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^40)

재 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^44)

극 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^48)

항 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^56)

아 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^64)

나 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^72)

불 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^80)

무 10000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 (10^88)

숫자는 오라클에서 허용할 수 있는 NUMBER 최대 자리수가 36자까지 허용되어 ‘간’ 부분까지만 표시가 되지만, 일단 ‘극’까지는 로직을 구현했습니다. 참고로 LISTAGG() 함수를 사용하였기 때문에 Oracle 11g 이상에서만 수행이 가능합니다.

2. SQL

WITH TAB AS (
    SELECT 1 GUBN, 210389012380128390128 VAL FROM DUAL UNION ALL
    SELECT 2 GUBN, 2342321               VAL FROM DUAL UNION ALL
    SELECT 3 GUBN, 43545634432           VAL FROM DUAL UNION ALL
    SELECT 4 GUBN, 4352436254625426456   VAL FROM DUAL     
)
SELECT MAX(KO_CONV) KO_CONV
FROM   (SELECT GUBN, 
               LISTAGG(KO_GOAL, '') WITHIN GROUP (ORDER BY CNT_1) OVER(PARTITION BY GUBN) AS KO_CONV
        FROM   (SELECT T.GUBN,
                       A.CNT_1,
                       KO_LAN_1 || 
                       CASE WHEN KO_LAN_1 IS NULL THEN NULL ELSE KO_LAN_2 END || 
                       DECODE(LENGTH(T.VAL) - CNT_1 + 1, 5,  '만 ',
                                                         9,  '억 ',
                                                         13, '조 ',
                                                         17, '경 ',
                                                         21, '해 ',
                                                         25, '서 ',
                                                         29, '양 ',
                                                         33, '구 ',
                                                         37, '간 ',
                                                         41, '정 ',
                                                         45, '재 ',
                                                         49, '극 ') KO_GOAL
                FROM   -- 대상 숫자
                       TAB T,
                       -- 가상 집합
                       (SELECT LEVEL CNT_1 
                        FROM   DUAL 
                        CONNECT BY LEVEL <= 100
                       ) A,
                       -- 한자리 한글로 변환 집합
                       (SELECT LEVEL - 1 CNT_2, 
                               DECODE(LEVEL - 1, 0, '',
                                                 1, '일',
                                                 2, '이',
                                                 3, '삼',
                                                 4, '사',
                                                 5, '오',
                                                 6, '육',
                                                 7, '칠',
                                                 8, '팔',
                                                 9, '구') KO_LAN_1
                         FROM DUAL CONNECT BY LEVEL <= 10
                        ) B,
                       -- 4자리 한글로 변환 집합
                       (SELECT DECODE(LEVEL, 4, 0, LEVEL) CNT_3,
                               DECODE(LEVEL, 2, '십',
                                             3, '백',
                                             4, '천') KO_LAN_2 
                        FROM   DUAL
                        CONNECT BY LEVEL <= 4) C
                WHERE  LENGTH(T.VAL)                    >= A.CNT_1
                AND    SUBSTR(T.VAL, CNT_1, 1)          =  B.CNT_2
                AND    MOD(LENGTH(T.VAL) - CNT_1 + 1, 4) = C.CNT_3
                ORDER BY A.CNT_1
                )
        )
GROUP BY GUBN
ORDER BY GUBN
;

KO_CONV
--------------------------------------------------------------------------------
이해 일천삼십팔경 구천일십이조 삼천팔백일억 이천팔백삼십구만 일백이십팔
이백삼십사만 이천삼백이십일
사백삼십오억 사천오백육십삼만 사천사백삼십이
사백삼십오경 이천사백삼십육조 이천오백사십육억 이천오백사십이만 육천사백오십육
;

WITH TAB AS (

SELECT 1 GUBN, 210389012380128390128 VAL FROM DUAL UNION ALL

SELECT 2 GUBN, 2342321 VAL FROM DUAL UNION ALL

SELECT 3 GUBN, 43545634432 VAL FROM DUAL UNION ALL

SELECT 4 GUBN, 4352436254625426456 VAL FROM DUAL

)

SELECT MAX(KO_CONV) KO_CONV

FROM (SELECT GUBN,

LISTAGG(KO_GOAL, '') WITHIN GROUP (ORDER BY CNT_1) OVER(PARTITION BY GUBN) AS KO_CONV

FROM (SELECT T.GUBN,

A.CNT_1,

KO_LAN_1 ||

CASE WHEN KO_LAN_1 IS NULL THEN NULL ELSE KO_LAN_2 END ||

DECODE(LENGTH(T.VAL) - CNT_1 + 1, 5, '만 ',

9, '억 ',

13, '조 ',

17, '경 ',

21, '해 ',

25, '서 ',

29, '양 ',

33, '구 ',

37, '간 ',

41, '정 ',

45, '재 ',

49, '극 ') KO_GOAL

FROM -- 대상 숫자

TAB T,

-- 가상 집합

(SELECT LEVEL CNT_1

FROM DUAL

CONNECT BY LEVEL <= 100

) A,

-- 한자리 한글로 변환 집합

(SELECT LEVEL - 1 CNT_2,

DECODE(LEVEL - 1, 0, '',

1, '일',

2, '이',

3, '삼',

4, '사',

5, '오',

6, '육',

7, '칠',

8, '팔',

9, '구') KO_LAN_1

FROM DUAL CONNECT BY LEVEL <= 10

) B,

-- 4자리 한글로 변환 집합

(SELECT DECODE(LEVEL, 4, 0, LEVEL) CNT_3,

DECODE(LEVEL, 2, '십',

3, '백',

4, '천') KO_LAN_2

FROM DUAL

CONNECT BY LEVEL <= 4) C

WHERE LENGTH(T.VAL) >= A.CNT_1

AND SUBSTR(T.VAL, CNT_1, 1) = B.CNT_2

AND MOD(LENGTH(T.VAL) - CNT_1 + 1, 4) = C.CNT_3

ORDER BY A.CNT_1

)

GROUP BY GUBN

ORDER BY GUBN

;

KO_CONV

--------------------------------------------------------------------------------

이해 일천삼십팔경 구천일십이조 삼천팔백일억 이천팔백삼십구만 일백이십팔

이백삼십사만 이천삼백이십일

사백삼십오억 사천오백육십삼만 사천사백삼십이

사백삼십오경 이천사백삼십육조 이천오백사십육억 이천오백사십이만 육천사백오십육

;

응답

김지룡 2014년 11월 12일 19:27

–숫자를 한글로 변환 풀이 및 정답
이 문제를 풀기 위해서는 하나의 기준이 필요합니다.
한국의 화폐단위별 자르기 인데요 이를 위해서는 우리나라 화폐의 특성상 4자리씩 끊어야 되지요
4자리 이상이 되면 만 또 4자리위는 억 조 경 해 이렇게 올라가기 때문이죠
여기에 그아래 자리는 십 백 천의 반복이니까요.
–1단계

with base as
(select 123456789012345 amt FROM dual
 UNION ALL SELECT 29000 FROM dual
 UNION ALL SELECT 309840 FROM dual)
SELECT amt 
     , SUBSTR(v, 1,1)||'천'
    || SUBSTR(v, 2,1)||'백'
    || SUBSTR(v, 3,1)||'십'
    || SUBSTR(v, 4,1)||'조'
    || SUBSTR(v, 5,1)||'천'
    || SUBSTR(v, 6,1)||'백'
    || SUBSTR(v, 7,1)||'십'
    || SUBSTR(v, 8,1)||'억'
    || SUBSTR(v, 9,1)||'천'
    || SUBSTR(v,10,1)||'백'
    || SUBSTR(v,11,1)||'십'
    || SUBSTR(v,12,1)||'만'
    || SUBSTR(v,13,1)||'천'
    || SUBSTR(v,14,1)||'백'
    || SUBSTR(v,15,1)||'십'
    || SUBSTR(v,16,1) v 
  FROM (SELECT amt, LPAD(amt,16,'0') v FROM base)

            AMT   V                                               
---------------  ------------------------------------------------
123456789012345  0천1백2십3조4천5백6십7억8천9백0십1만2천3백4십5  
          29000  0천0백0십0조0천0백0십0억0천0백0십2만9천0백0십0  
         309840  0천0백0십0조0천0백0십0억0천0백3십0만9천8백4십0  

짜잔! 이렇게 자리별로 LPAD함수를 써서 Base값의 숫자수를 고정하고
각 자리수별로 단위를 표현을 하였습니다.
하지만 불필요한 자리수까지 표현되고 있는 상황이네요.

--2단계
with base as
(select 123456789012345 amt FROM dual
 UNION ALL SELECT 29000 FROM dual
 UNION ALL SELECT 309840 FROM dual)
SELECT amt 
     , SUBSTR(v, 1,1)||DECODE(SUBSTR(v, 1,1),0,'','천') 
    || SUBSTR(v, 2,1)||DECODE(SUBSTR(v, 2,1),0,'','백')
    || SUBSTR(v, 3,1)||DECODE(SUBSTR(v, 3,1),0,'','십') 
    || SUBSTR(v, 4,1)||DECODE(SUBSTR(v, 1,4),0,'','조') 
    || SUBSTR(v, 5,1)||DECODE(SUBSTR(v, 5,1),0,'','천') 
    || SUBSTR(v, 6,1)||DECODE(SUBSTR(v, 6,1),0,'','백') 
    || SUBSTR(v, 7,1)||DECODE(SUBSTR(v, 7,1),0,'','십') 
    || SUBSTR(v, 8,1)||DECODE(SUBSTR(v, 5,4),0,'','억') 
    || SUBSTR(v, 9,1)||DECODE(SUBSTR(v, 9,1),0,'','천')
    || SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백') 
    || SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십') 
    || SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만') 
    || SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천') 
    || SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백') 
    || SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십') 
    || SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만') 
    || SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천') 
    || SUBSTR(v,14,1)||DECODE(SUBSTR(v,14,1),0,'','백') 
    || SUBSTR(v,15,1)||DECODE(SUBSTR(v,15,1),0,'','십')
    || SUBSTR(v,16,1) v 
  FROM (SELECT amt, LPAD(amt,16,'0') v FROM base);
            AMT   V                                               
---------------  ------------------------------------------------
123456789012345  01백2십3조4천5백6십7억8천9백01만2천3백4십5
          29000  000000000002만9천000                      
         309840  00000000003십0만9천8백4십0

위와 같이 불필요한 단위는 Decode를 사용하여 없애 보았습니다.
하지만 그래도 00000 이라는 값들이 눈에 보이네요?

--결과
with base as
(select 123456789012345 amt FROM dual
 UNION ALL SELECT 29000 FROM dual
 UNION ALL SELECT 309840 FROM dual)
SELECT amt 
     , TRANSLATE 
     ( SUBSTR(v, 1,1)||DECODE(SUBSTR(v, 1,1),0,'','천') 
    || SUBSTR(v, 2,1)||DECODE(SUBSTR(v, 2,1),0,'','백') 
    || SUBSTR(v, 3,1)||DECODE(SUBSTR(v, 3,1),0,'','십') 
    || SUBSTR(v, 4,1)||DECODE(SUBSTR(v, 1,4),0,'','조') 
    || SUBSTR(v, 5,1)||DECODE(SUBSTR(v, 5,1),0,'','천')
    || SUBSTR(v, 6,1)||DECODE(SUBSTR(v, 6,1),0,'','백') 
    || SUBSTR(v, 7,1)||DECODE(SUBSTR(v, 7,1),0,'','십') 
    || SUBSTR(v, 8,1)||DECODE(SUBSTR(v, 5,4),0,'','억') 
    || SUBSTR(v, 9,1)||DECODE(SUBSTR(v, 9,1),0,'','천') 
    || SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백') 
    || SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십') 
    || SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만') 
    || SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천')
    || SUBSTR(v,14,1)||DECODE(SUBSTR(v,14,1),0,'','백') 
    || SUBSTR(v,15,1)||DECODE(SUBSTR(v,15,1),0,'','십') 
    || SUBSTR(v,16,1) 
     , '1234567890', '일이삼사오육칠팔구') v 
  FROM (SELECT amt, LPAD(amt,16,'0') v FROM base);

            AMT   V                                               
---------------  ------------------------------------------------
123456789012345  일백이십삼조사천오백육십칠억팔천구백일만이천삼백사십오  
          29000  이만구천                                                
         309840  삼십만구천팔백사십      

이제야 원했던 형태로 값이 나오게 됬네요.
위에 보이면 Translate함수를 추가하여 숫자를 한글로 치환하였습니다.
이 퀴즈를 가져 온 이유이기도 한 함수인데요.
이 함수를 이용하면 숫자를 한글로도 만들 수 있지만 한글과 숫자같은 데이터 타입이 다른 데이터도
한글만 추출하거나 숫자만 추출할 수 있는 유용한 함수입니다.

이 기회를 빌어 Translate함수를 알아보는 시간이 되었길 빌어요~!

100

101

102

103

104

105

106

107

108

with base as

(select 123456789012345 amt FROM dual

UNION ALL SELECT 29000 FROM dual

UNION ALL SELECT 309840 FROM dual)

SELECT amt

, SUBSTR(v, 1,1)||'천'

|| SUBSTR(v, 2,1)||'백'

|| SUBSTR(v, 3,1)||'십'

|| SUBSTR(v, 4,1)||'조'

|| SUBSTR(v, 5,1)||'천'

|| SUBSTR(v, 6,1)||'백'

|| SUBSTR(v, 7,1)||'십'

|| SUBSTR(v, 8,1)||'억'

|| SUBSTR(v, 9,1)||'천'

|| SUBSTR(v,10,1)||'백'

|| SUBSTR(v,11,1)||'십'

|| SUBSTR(v,12,1)||'만'

|| SUBSTR(v,13,1)||'천'

|| SUBSTR(v,14,1)||'백'

|| SUBSTR(v,15,1)||'십'

|| SUBSTR(v,16,1) v

FROM (SELECT amt, LPAD(amt,16,'0') v FROM base)

AMT V

--------------- ------------------------------------------------

123456789012345 0천1백2십3조4천5백6십7억8천9백0십1만2천3백4십5

29000 0천0백0십0조0천0백0십0억0천0백0십2만9천0백0십0

309840 0천0백0십0조0천0백0십0억0천0백3십0만9천8백4십0

짜잔! 이렇게 자리별로 LPAD함수를 써서 Base값의 숫자수를 고정하고

각 자리수별로 단위를 표현을 하였습니다.

하지만 불필요한 자리수까지 표현되고 있는 상황이네요.

--2단계

with base as

(select 123456789012345 amt FROM dual

UNION ALL SELECT 29000 FROM dual

UNION ALL SELECT 309840 FROM dual)

SELECT amt

, SUBSTR(v, 1,1)||DECODE(SUBSTR(v, 1,1),0,'','천')

|| SUBSTR(v, 2,1)||DECODE(SUBSTR(v, 2,1),0,'','백')

|| SUBSTR(v, 3,1)||DECODE(SUBSTR(v, 3,1),0,'','십')

|| SUBSTR(v, 4,1)||DECODE(SUBSTR(v, 1,4),0,'','조')

|| SUBSTR(v, 5,1)||DECODE(SUBSTR(v, 5,1),0,'','천')

|| SUBSTR(v, 6,1)||DECODE(SUBSTR(v, 6,1),0,'','백')

|| SUBSTR(v, 7,1)||DECODE(SUBSTR(v, 7,1),0,'','십')

|| SUBSTR(v, 8,1)||DECODE(SUBSTR(v, 5,4),0,'','억')

|| SUBSTR(v, 9,1)||DECODE(SUBSTR(v, 9,1),0,'','천')

|| SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백')

|| SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십')

|| SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만')

|| SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천')

|| SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백')

|| SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십')

|| SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만')

|| SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천')

|| SUBSTR(v,14,1)||DECODE(SUBSTR(v,14,1),0,'','백')

|| SUBSTR(v,15,1)||DECODE(SUBSTR(v,15,1),0,'','십')

|| SUBSTR(v,16,1) v

FROM (SELECT amt, LPAD(amt,16,'0') v FROM base);

AMT V

--------------- ------------------------------------------------

123456789012345 01백2십3조4천5백6십7억8천9백01만2천3백4십5

29000 000000000002만9천000

309840 00000000003십0만9천8백4십0

위와 같이 불필요한 단위는 Decode를 사용하여 없애 보았습니다.

하지만 그래도 00000 이라는 값들이 눈에 보이네요?

--결과

with base as

(select 123456789012345 amt FROM dual

UNION ALL SELECT 29000 FROM dual

UNION ALL SELECT 309840 FROM dual)

SELECT amt

, TRANSLATE

( SUBSTR(v, 1,1)||DECODE(SUBSTR(v, 1,1),0,'','천')

|| SUBSTR(v, 2,1)||DECODE(SUBSTR(v, 2,1),0,'','백')

|| SUBSTR(v, 3,1)||DECODE(SUBSTR(v, 3,1),0,'','십')

|| SUBSTR(v, 4,1)||DECODE(SUBSTR(v, 1,4),0,'','조')

|| SUBSTR(v, 5,1)||DECODE(SUBSTR(v, 5,1),0,'','천')

|| SUBSTR(v, 6,1)||DECODE(SUBSTR(v, 6,1),0,'','백')

|| SUBSTR(v, 7,1)||DECODE(SUBSTR(v, 7,1),0,'','십')

|| SUBSTR(v, 8,1)||DECODE(SUBSTR(v, 5,4),0,'','억')

|| SUBSTR(v, 9,1)||DECODE(SUBSTR(v, 9,1),0,'','천')

|| SUBSTR(v,10,1)||DECODE(SUBSTR(v,10,1),0,'','백')

|| SUBSTR(v,11,1)||DECODE(SUBSTR(v,11,1),0,'','십')

|| SUBSTR(v,12,1)||DECODE(SUBSTR(v, 9,4),0,'','만')

|| SUBSTR(v,13,1)||DECODE(SUBSTR(v,13,1),0,'','천')

|| SUBSTR(v,14,1)||DECODE(SUBSTR(v,14,1),0,'','백')

|| SUBSTR(v,15,1)||DECODE(SUBSTR(v,15,1),0,'','십')

|| SUBSTR(v,16,1)

, '1234567890', '일이삼사오육칠팔구') v

FROM (SELECT amt, LPAD(amt,16,'0') v FROM base);

AMT V

--------------- ------------------------------------------------

123456789012345 일백이십삼조사천오백육십칠억팔천구백일만이천삼백사십오

29000 이만구천

309840 삼십만구천팔백사십

이제야 원했던 형태로 값이 나오게 됬네요.

위에 보이면 Translate함수를 추가하여 숫자를 한글로 치환하였습니다.

이 퀴즈를 가져 온 이유이기도 한 함수인데요.

이 함수를 이용하면 숫자를 한글로도 만들 수 있지만 한글과 숫자같은 데이터 타입이 다른 데이터도

한글만 추출하거나 숫자만 추출할 수 있는 유용한 함수입니다.

이 기회를 빌어 Translate함수를 알아보는 시간이 되었길 빌어요~!

응답

김민호 2014년 11월 17일 00:49

전 지룡대리님께서 답을 올려주신 관계로 Package(내부 Function 2개)로 구성해봤습니다.

create or replace package body Quiz4 is

FUNCTION numtokor_func( amt NUMBER) RETURN VARCHAR2
IS

v_return_value VARCHAR2(100);
v_charamt      VARCHAR2(16);

/* Declare Table Type */
TYPE arr_varchar2 IS TABLE OF VARCHAR2(4) INDEX BY BINARY_INTEGER;
v_Danwi        arr_varchar2;

v_tmp          VARCHAR2(10);
v_row          NUMBER;

 BEGIN
  v_Danwi(1)  := ''  ;
  v_Danwi(2)  := '십';
  v_Danwi(3)  := '백';
  v_Danwi(4)  := '천';
  v_Danwi(5)  := '만';
  v_Danwi(6)  := '십';
  v_Danwi(7)  := '백';
  v_Danwi(8)  := '천';
  v_Danwi(9)  := '억';
  v_Danwi(10) := '십';
  v_Danwi(11) := '백';
  v_Danwi(12) := '천';
  v_Danwi(13) := '조';
  v_Danwi(14) := '십';
  v_Danwi(15) := '백';
  v_Danwi(16) := '천';

     v_charamt := TO_CHAR(amt);

  IF SUBSTR(v_charamt,  LENGTH(v_charamt) - 7, 4) = '0000' THEN
  v_Danwi(5) := '';
  END IF;

  IF SUBSTR(v_charamt, LENGTH(v_charamt) - 11, 4) = '0000' THEN
   v_Danwi(9) := '';
  END IF;

  FOR V_ROW IN 1..LENGTH(v_charamt) LOOP
    BEGIN
      v_tmp := num_gunb_func(SUBSTR(v_charamt, LENGTH(v_charamt) - V_ROW + 1, 1));
   IF v_tmp = '0' THEN
      IF V_ROW <> 5 AND V_ROW <> 9 THEN
         V_DANWI(V_ROW) := '';
      END IF;
      v_tmp := '';
   END IF;
            v_return_value := v_tmp || V_DANWI(V_ROW) || v_return_value;
   END;
  END LOOP;
  v_return_value := v_return_value || '원';
  RETURN v_return_value;
 
END numtokor_func;

/* 숫자로 들어온 Input 값을 한글로 치환하는 function */
FUNCTION num_gunb_func( amt VARCHAR2) RETURN VARCHAR2
IS

v_return_value VARCHAR2(2);

BEGIN
  IF amt='1' THEN
   v_return_value := '일';
  END IF;
  IF amt='2' THEN
   v_return_value := '이';
  END IF;
  IF amt='3' THEN
   v_return_value := '삼';
  END IF;
  IF amt='4' THEN
   v_return_value := '사';
  END IF;
  IF amt='5' THEN
   v_return_value := '오';
  END IF;
  IF amt='6' THEN
   v_return_value := '육';
  END IF;
  IF amt='7' THEN
   v_return_value := '칠';
  END IF;
  IF amt='8' THEN
   v_return_value := '팔';
  END IF;
  IF amt='9' THEN
   v_return_value := '구';
  END IF;
  IF amt='0' THEN
   v_return_value := '0';
  END IF;
  RETURN v_return_value;
END num_gunb_func;

end Quiz4;

/* 결과값 */
SQL> SELECT Quiz4.numtokor_func(75820000) FROM dual;

QUIZ4.NUMTOKOR_FUNC(75820000)
--------------------------------------------------------------------------------
칠천오백팔십이만원

100

101

102

103

104

105

106

107

108

create or replace package body Quiz4 is

FUNCTION numtokor_func( amt NUMBER) RETURN VARCHAR2

v_return_value VARCHAR2(100);

v_charamt VARCHAR2(16);

/* Declare Table Type */

TYPE arr_varchar2 IS TABLE OF VARCHAR2(4) INDEX BY BINARY_INTEGER;

v_Danwi arr_varchar2;

v_tmp VARCHAR2(10);

v_row NUMBER;

BEGIN

v_Danwi(1) := '' ;

v_Danwi(2) := '십';

v_Danwi(3) := '백';

v_Danwi(4) := '천';

v_Danwi(5) := '만';

v_Danwi(6) := '십';

v_Danwi(7) := '백';

v_Danwi(8) := '천';

v_Danwi(9) := '억';

v_Danwi(10) := '십';

v_Danwi(11) := '백';

v_Danwi(12) := '천';

v_Danwi(13) := '조';

v_Danwi(14) := '십';

v_Danwi(15) := '백';

v_Danwi(16) := '천';

v_charamt := TO_CHAR(amt);

IF SUBSTR(v_charamt, LENGTH(v_charamt) - 7, 4) = '0000' THEN

v_Danwi(5) := '';

END IF;

IF SUBSTR(v_charamt, LENGTH(v_charamt) - 11, 4) = '0000' THEN

v_Danwi(9) := '';

END IF;

FOR V_ROW IN 1..LENGTH(v_charamt) LOOP

BEGIN

v_tmp := num_gunb_func(SUBSTR(v_charamt, LENGTH(v_charamt) - V_ROW + 1, 1));

IF v_tmp = '0' THEN

IF V_ROW <> 5 AND V_ROW <> 9 THEN

V_DANWI(V_ROW) := '';

END IF;

v_tmp := '';

END IF;

v_return_value := v_tmp || V_DANWI(V_ROW) || v_return_value;

END;

END LOOP;

v_return_value := v_return_value || '원';

RETURN v_return_value;

END numtokor_func;

/* 숫자로 들어온 Input 값을 한글로 치환하는 function */

FUNCTION num_gunb_func( amt VARCHAR2) RETURN VARCHAR2

v_return_value VARCHAR2(2);

BEGIN

IF amt='1' THEN

v_return_value := '일';

END IF;

IF amt='2' THEN

v_return_value := '이';

END IF;

IF amt='3' THEN

v_return_value := '삼';

END IF;

IF amt='4' THEN

v_return_value := '사';

END IF;

IF amt='5' THEN

v_return_value := '오';

END IF;

IF amt='6' THEN

v_return_value := '육';

END IF;

IF amt='7' THEN

v_return_value := '칠';

END IF;

IF amt='8' THEN

v_return_value := '팔';

END IF;

IF amt='9' THEN

v_return_value := '구';

END IF;

IF amt='0' THEN

v_return_value := '0';

END IF;

RETURN v_return_value;

END num_gunb_func;

end Quiz4;

/* 결과값 */

SQL> SELECT Quiz4.numtokor_func(75820000) FROM dual;

QUIZ4.NUMTOKOR_FUNC(75820000)

--------------------------------------------------------------------------------

칠천오백팔십이만원

응답

Tag Cloud

Recent Comments

[더비's 퀴즈]숫자를 한글로 변환하여 보여주자.

About the Author

Related Posts

7개의 댓글이 등록되었습니다.

Leave a Reply

댓글작성시 Code-Highlighter 삽입방법