在pl/sql中写一个类似Java中的split函数

据我了解，PL/SQL 中没有split函数，需要自己写。
create or replace type type_split as table of varchar2(50);  --创建一个　　type　　，如果为了使split函数具有通用性，请将其size 设大些。


--创建function
create or replace function split
(
    p_list varchar2,
    p_sep varchar2 := ','
)  return type_split pipelined
is
    l_idx   pls_integer;
    v_list  varchar2(50) := p_list;
begin
    loop
       l_idx := instr(v_list,p_sep);
      if l_idx > 0 then
          pipe row(substr(v_list,1,l_idx-1));
           v_list := substr(v_list,l_idx+length(p_sep));
      else
          pipe row(v_list);
          exit;
      end if;
   end loop;
   return;
end split;


SQL> select * from table(split('northsnow,塞北的雪',','));

COLUMN_VALUE
--------------------------------------------------
northsnow
塞北的雪

SQL>


---------------------------------------------------------------------------------------------------------------

PL/SQL中定义数组

declare
type tab_numbers is table of number; -- 定义数组类型
lt tab_numbers; -- 定义一个未初始化的数组
begin
lt := tab_numbers(); -- 初始化一个空数组，无任何元素
lt.extend; -- 扩展数组，扩展一个元素
lt(1) := 100; -- 数组下标从1开始
lt.extend(3); -- -- 扩展数组，扩展3个元素
lt(2) := 1002;
lt(3) := 1003;
lt(4) := 1004;
-- lt(5) := 0; 这里将不允许，因为不存在此下标之元素
for i in 1..lt.count loop -- lt.count 取得数组元素个数
dbms_output.put_line(lt(i));
end loop;
end;
/


转载：http://hi.baidu.com/%BA%C3%D1%F2%BE%CD%BA%C3%D1%F9/blog/item/a42c40f3306939cf0a46e0af.html