集合函数;
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;
/
