CREATE OR REPLACE PACKAGE cux_char_handle_util_pkg ISTYPE char_var_typeISRECORD(
char_valueVARCHAR2(200));
TYPE char_var_tblIS TABLE OF char_var_type INDEX BYBINARY_INTEGER;
g_char_var_tbl char_var_tbl;FUNCTION splitstr(p_string IN VARCHAR2, p_delimiter IN VARCHAR2)RETURNcux_str_split_type
PIPELINED;PROCEDURE prepare_char_value(p_str_var VARCHAR2, p_delimiter IN VARCHAR2);FUNCTION make_char_str(p_str VARCHAR2, p_delimiter IN VARCHAR2)RETURN VARCHAR2;END;/
CREATE OR REPLACE PACKAGE BODY cux_char_handle_util_pkg IS
--拆分字符串
FUNCTION splitstr(p_string IN VARCHAR2, p_delimiter IN VARCHAR2)RETURNcux_str_split_type
PIPELINEDASv_lengthNUMBER :=length(p_string);
v_startNUMBER := 1;
v_indexNUMBER;BEGIN
WHILE (v_start <=v_length) LOOP
v_index :=instr(p_string, p_delimiter, v_start);IF v_index = 0 THEN
PIPEROW(substr(p_string