【入门】plsql中各种集合方法的使用（2）

为什么80%的码农都做不了架构师？>>>   

接（1）

declare
	type t_array is varray(10) of number; --可变长数组类型，最大长度为10
    type t_nesttab is table of number;--嵌套表，最大长度没有限制
    type t_indextab is table of number index by binary_integer;--索引表，最大长度没有限制
    
    v_array t_array := t_array();--声明可变长数组变量，并用构造函数初始化
    v_nesttab t_nesttab := t_nesttab();--声明嵌套表类型的变量，并用构造函数初始化
    v_indextab t_indextab;--声明索引表类型的变量，使用前，没有必要进行初始化

begin
    
    dbms_output.put_line('----------prior方法使用----------');
    --prior使用方法 返回指定元素的前一个元素
    dbms_output.put_line('索引3的前一个元素索引是:' || v_array.prior(3));
	dbms_output.put_line('索引3的前一个元素索引是:' || v_nesttab.prior(3));
	dbms_output.put_line('索引3的前一个元素索引是:' || v_indextab.prior(3));
    
    dbms_output.put_line('----------next方法使用----------');
    --next方法是用 放回指定元素的下一个元素
    dbms_output.put_line('索引3的后一个元素索引是:' || v_array.next(3));
    dbms_output.put_line('索引3的后一个元素索引是:' || v_nesttab.next(3));
    dbms_output.put_line('索引3的后一个元素索引是:' || v_indextab.next(3));
   
    dbms_output.put_line('----------trim方法使用----------');
    --trim方法是用 删除集合中的元素，被删除的元素不在占用空间
    v_array.trim;--删除集合最后一个元素
	dbms_output.put_line('v_array:' || v_array.count);
    v_array.trim(2);--删除集合最后2个元素
    dbms_output.put_line('v_array:' || v_array.count);
    
    v_nesttab.trim;--删除集合最后一个元素
    dbms_output.put_line('v_nesttab:' || v_nesttab.count);
    v_nesttab.trim(2);--删除集合最后2个元素
    dbms_output.put_line('v_nesttab:' || v_nesttab.count);
	
   --v_indextab.trim();--索引表没有trim方法
   
   dbms_output.put_line('----------delete方法使用----------');
	--delete方法使用 删除指定索引的元素，但保留它的空间
    v_array.delete; --可变长数组只能用不带参数的delete,应为它是数据密集
    if not v_array.exists(3) then
		dbms_output.put_line('index 3 is not exists');
    end if;
 
    v_nesttab.delete(1); --删除第一个元素，保留内存空间
    if not v_nesttab.exists(1) then
		dbms_output.put_line('index 1 is not exists');
    end if; 
    v_nesttab.delete(1,2); --删除1到2之间的数据 保留内存空间
    if not v_nesttab.exists(2) then
		dbms_output.put_line('index 2 is not exists');
    end if;
    v_nesttab.delete; --删除全部数据，释放所有内存空间
	if not v_nesttab.exists(3) then
		dbms_output.put_line('index 3 is not exists');
    end if;
    
	v_indextab.delete(1); --删除第一个元素，保留内存空间
    if not v_indextab.exists(1) then
		dbms_output.put_line('index 1 is not exists');
    end if;
	v_indextab.delete(1,2); --删除1到2之间的数据，保留内存空间
    if not v_indextab.exists(2) then
		dbms_output.put_line('index 2 is not exists');
    end if;
    v_indextab.delete; --删除全部数据，释放内存所有内存空间
	if not v_indextab.exists(3) then
		dbms_output.put_line('index 3 is not exists');
    end if; 
end;
/

转载于:https://my.oschina.net/shiwb/blog/127765