CREATE OR REPLACE FUNCTION f_str2tab(p_str IN VARCHAR2 --傳入的字串,格式為1,2,3,4,5
) RETURN type_varc IS
/******************************************************************
Ver1.0 Created by xsb on 2008-04-14
把字串(1,2,3,4,5)轉換為記憶體表形式
create or replace type type_varc is table of varchar2(1000);
測試用例:SELECT * FROM TABLE(f_str2tab('a,s,d,12,3,4,5'));
******************************************************************/[@more@]

v_str VARCHAR2(4000) := p_str || ',';
v_cnt NUMBER := length(v_str) - length(REPLACE(v_str, ','));
v_numtab type_varc := type_varc(); --返回記憶體表

BEGIN
FOR i IN 1 .. v_cnt LOOP
v_numtab.EXTEND;
v_numtab(i) := substr(v_str, 1, instr(v_str, ',') - 1);
v_str := substr(v_str, instr(v_str, ',') + 1);
END LOOP;
RETURN v_numtab;

EXCEPTION
WHEN OTHERS THEN
v_numtab.DELETE;

END;

把字串(1,2,3,4,5)轉換為記憶體表形式

相關文章