oracle 输入16位银行卡号，在表中自动变为4位为一组的银行卡号，求自己写的函数。

老师让在 oracle 下 输入16位银行卡号，通过中自动变为4位为一组的银行卡号保存起来，求自己写的函数。各位大神们！！

函数例子:
CREATE OR REPLACe FUNCTION MY_FUN
(
  BANK_NO   NUMBER,
  SEPARATOR VARCHAR2 DEFAULT ' '
) RETURN VARCHAR2 IS
  STR1 VARCHAr2(100);
  STR2 VARCHAr2(100);
BEGIN
  STR1 := BANK_NO;
  WHILE STR1 IS NOT NULL LOOP
    STR2 := STR2 || SEPARATOR || SUBSTr(STR1, 1, 4);
    STR1 := SUBSTr(STR1, 5);
  END LOOP;
  RETURN LTRIm(STR2,SEPARATOR);
END;效果测试:

SQL> SELECT MY_FUN(1234123412341234) FROM DUAL;
MY_FUN(1234123412341234)
--------------------------------------------------------------------------------
1234 1234 1234 1234

SQL> SELECt MY_FUN(1234123412341234,',') FROM DUAL;
MY_FUN(1234123412341234,',')
--------------------------------------------------------------------------------
1234,1234,1234,1234

to_char(card,'9999,9999,9999,9999') 再看看别人怎么说的。