oracle report 字符串处理

需求：输入12345,56789.输出 '12345','56789'
report 中创建一个程序单元

FUNCTION CF_SPITFORMULA(P_STR IN VARCHAR2, P_SEPERATOR IN VARCHAR2) RETURN VARCHAR2
IS
v_str varchar2(1000);
v_tem varchar2(1000);
n_len number;
BEGIN
	v_tem := P_STR || P_SEPERATOR;
  	LOOP
  	  n_len := instr(v_tem, P_SEPERATOR);
  	  IF n_len > 0 THEN
  	  	v_str := v_str || substr(v_tem, 1, n_len-1) || ''',''';
  	  	v_tem := substr(v_tem, n_len+1);  	
  	  ELSE
  	    v_str := SUBSTR(v_str, 1, length(v_str) - 3);
  	  	EXIT;
  	  END IF;
  	END LOOP;
  RETURN v_str;
END;