分隔字符串

注：此SQL原作者 袁老大

CREATE OR REPLACE PACKAGE split_pck IS

type char_table is table of varchar2(4000);

function split_string(pi_str in varchar2, pi_separator in varchar2) return char_table;

procedure test_split_string(pi_string in varchar, pi_separator in varchar2);

end split_pck;


CREATE OR REPLACE PACKAGE BODY split_pck IS

function split_string(pi_str in varchar2, pi_separator in varchar2) return char_table is 
  v_char_table char_table;  
  v_temp varchar2(4000);  
  v_element varchar2(4000);  
begin 
   v_char_table := char_table(); --数组初始化（必须）-- 
   v_temp := pi_str;  
   while instr(v_temp, pi_separator) > 0   
    loop  
        v_element := substr(v_temp,1,instr(v_temp, pi_separator)-1);  
        v_temp := substr(v_temp, instr(v_temp,pi_separator)+ length(pi_separator) , length(v_temp));  
        v_char_table.extend;  
        v_char_table(v_char_table.count) := v_element;  
 
   end loop;  
   --以下两句是为了把最后一个分隔符身后的内容装进数组--
    v_char_table.extend;--给数组动态分配空间--  
    v_char_table(v_char_table.count) := v_temp;   --(v_char_table.count)数组的下标--
   return v_char_table;  
end split_string;

procedure test_split_string(pi_string in varchar, pi_separator in varchar2) is   
v_char_table char_table;  
begin 
   v_char_table := split_string(pi_string, pi_separator);  
   for i in 1 .. v_char_table.count 
   loop  
       dbms_output.put_line(v_char_table(i));  
   end loop;  
end test_split_string; 

end split_pck;


补充：
创建类型的SQL
create or replace type char_table is table of varchar2(4000);