集合函数;

declare

        type list_nested is table of varchar2(100) not null;

        v_all list_nested := list_nested('changan','hubei','shanghai','beijing','Android','Java-Android');

BEGIN

        v_all.delete(1);

        for x in v_all.first .. v_all.last loop

            dbms_output.put_line(v_all(x));

        end loop;

        --dbms_output.put_line('list leng:' || v_all.count );

end;

/

declare

        type list_nested is table of varchar2(100) not null;

        v_all list_nested := list_nested('changan','hubei','shanghai','beijing','Android','Java-Android');

BEGIN

        v_all.delete(1,3); --指定删除索引范围的数据;

        for x in v_all.first .. v_all.last loop

            dbms_output.put_line(v_all(x));

        end loop;

        dbms_output.put_line('list leng:' || v_all.count );

end;

/

declare

        type list_nested is table of varchar2(100) not null;

        v_all list_nested := list_nested('changan','hubei','shanghai','beijing','Android','Java-Android');

BEGIN

        if v_all.EXISTS(1) then

            dbms_output.put_line('索引为1的数据存在');

        end if;

        if not v_all.EXISTS(10) then

            dbms_output.put_line('索引为10的数据不存在');

        end if;

    end;

/

declare

        type list_nested is table of varchar2(100) not null;

        v_all list_nested := list_nested('FireFox','firefox.com','www.firefox.com');

begin

        dbms_output.put_line('原始长度' || v_all.count);

        v_all.extend(2);

        dbms_output.put_line('扩充之后长度' || v_all.count);

        v_all(4) := 'www.google.com';

        v_all(5) := 'Google.com';

        for x in v_all.first  .. v_all.last loop

            dbms_output.put_line(v_all(x));

        end loop;

    end;

/

范例

    扩充集合长度，并使用已有内容填充

declare

        type list_nested is table of varchar2(100) not null;

        v_all list_nested := list_nested('FireFox','firefox.com','www.firefox.com');

begin

        dbms_output.put_line('原始长度' || v_all.count);

        v_all.extend(2 , 3);

        dbms_output.put_line('扩充之后长度' || v_all.count);

        for x in v_all.first  .. v_all.last loop

            dbms_output.put_line(v_all(x));

        end loop;

    end;

/

范例

    集合函数count limit

declare

    type list_varray is  varray(20) of varchar2(100);

    v_info list_varray := list_varray('firefox.com','www.firefox.com','www.oracle.com');

begin

    dbms_output.put_line('数组集合的最大长度' || v_info.limit);

    dbms_output.put_line('数组集合的数据量' || v_info.count);

end;

/

declare

        type info_index is table of varchar2(20) index by PLS_INTEGER;

        v_info info_index;

        v_foot number;

begin

        v_info(1) := 'FireFox';

        v_info(10) := 'Java';

        v_info(-10) := 'oracle';

        v_info(-20) := 'EJB';

        v_info(30) := 'Android';

        v_foot := v_info.first;

        while (v_info.exists(v_foot)) loop

            dbms_output.put_line('v_info (' || v_foot ||') = ' || v_info(v_foot);

            v_foot := v_info.next(v_foot) ;

        end loop;

    end;

/ 

declare

        type info_index is table of varchar2(20) index by PLS_INTEGER;

        v_info info_index;

        v_foot number;

begin

        v_info(1) := 'FireFox';

        v_info(10) := 'Java';

        v_info(-10) := 'oracle';

        v_info(-20) := 'EJB';

        v_info(30) := 'Android';

        DBMS_OUTPUT.put_line('索引为10的下一个索引是:' || v_info.next(10));

        dbms_output.put_line('索引为-10的上一个索引是:' || v_info.prior(-10));

    end;

/ 

declare

        type list_varray is varray(8) of varchar2(50);

        v_info list_varray :=  list_varray('FireFox','www.FireFox','www.Google.com','EJB');

begin

        dbms_output.put_line();

        for x in v_info.first .. v_info.last loop

                dbms_output.put_line(v_info(x));

        end loop;

    end;

/

declare

        type list_varray is varray(8) of varchar2(100);

        v_info list_varray := list_varray('FireFox','www.firefox.com','oracle','oracle_username');

begin

        dbms_output.put_line('删除集合之前的数量:' || v_info.count);

        v_info.trim; -- 删除一个数据;

        dbms_output.put_line('v_info.trim 删除集合之后的数据量 :' || v_info.count);

        v_info.trim(2); -- 删除2个数据;

        dbms_output.put_line('v_info.trim(2) 删除集合之后的数据量 :' || v_info.count);

        for x in v_info.first .. v_info.last loop

            dbms_output.put_line(v_info(x));

        end loop;

    end;

/