--首先创建两个类

SQL> create type type_item_obj is object(str varchar2(100));
2  /
Type created
SQL> create type type_arr_obj istableof type_item_obj;
2  /
Type created
SQL>
--创建一个函数，用来将'xxx','xxxx','xxxxx'形式的字符串拆分成一组字符串放到数组中

SQL> createorreplacefunction f_dividing(i_str in varchar2) return type_arr_obj
2    PIPELINED is
3   -- arr_str type_arr_obj := type_arr_obj();
4  begin
5    for i in 1 .. trunc((length(i_str) - length(replace(i_str, ''''))) / 2) loop
6      --arr_str.extend;
7      pipe row(type_item_obj(substr(i_str,
8                                    instr(i_str, '''', 1, i * 2 - 1) + 1,
9                                    instr(i_str, '''', 1, i * 2) -
10                                    instr(i_str, '''', 1, i * 2 - 1) - 1)));
11    end loop;
12    return;
13  end f_dividing;
14  /
Function created
SQL> set serverout on
SQL>
--测试。将该数组结合游标使用
SQL> declare
2    v_str varchar2(10000) := '''7369'',''7499'',''1234''';
3    cursor cur_empinfo(p_str varchar2) is
4      select ename
5        from scott.emp
6       where empno in (select str fromtable(f_dividing(p_str)));
7    v_ename varchar2(100);
8  begin
9    open cur_empinfo(v_str);
10    loop
11      fetch cur_empinfo
12        into v_ename;
13      exit when cur_empinfo%notfound;
14      dbms_output.put_line(v_ename);
15    end loop;
16    close cur_empinfo;
17  end;
18  /
SMITH
ALLEN
PL/SQL procedure successfully completed
SQL>

SQL>
SQL> create type typ_point1 as object(obj1 varchar2(3),obj2 varchar2(8))
2  /
Type created
SQL> create type typ_point1newt astableof typ_point1
2  /
Type created
SQL>
SQL>
SQL> createtable test_array(
2  id number,
3  obj typ_point1newt
4  )
5  nested table obj store as nested_tab returnas value
6  /
Table created
SQL>
SQL> --造些数据

SQL>
SQL> createorreplacefunction f_dividing(i_str in varchar2) return typ_point1newt
2    PIPELINED is
3  begin
4    for i in 1 .. length(i_str) - length(replace(i_str, ','))+1  loop
5      pipe row(typ_point1(i,
6                          substr(i_str,
7                                 instr(',' i_str, ',', 1, i ) ,
8                                 instr(i_str ',', ',', 1, i ) -
9                                 instr(',' i_str, ',', 1, i ) )));
10    end loop;
11    return;
12  end f_dividing;
13  /
Function created
SQL> insertinto test_array values(1,f_dividing('a,b,c,d'));
1 row inserted
SQL> insertinto test_array values(2,typ_point1newt(typ_point1(1,'1'),typ_point1(2,'2'),typ_point1(3,'3'),typ_point1(4,'4'),typ_point1(5,'5')));
1 row inserted
SQL> commit;
Commit complete
SQL> --存储过程操作数组

SQL> set serverout on
SQL>
SQL> declare
2  v_obj typ_point1newt; --从表中获取数据

3  type typ_varray is varray(100) of varchar2(10);
4  v_array typ_varray:=typ_varray(); --定义数组

5  begin
6    select obj into v_obj from test_array where id=1;
7    for i in 1..v_obj.count loop
8      --存入数组

9      v_array.extend;
10      v_array(i):=v_obj(i).obj2;
11    end loop;
12    --输出数组

13    for j in 1..v_array.count loop
14      dbms_output.put_line(v_array(j));
15    end loop;
16  end;
17  /
a
b
c
d
PL/SQL procedure successfully completed
SQL>

--转自