Oracle数组使用以及PLSQL操作记录

----------------------------固定长度数组
declare
type intarray is varray(30) of varchar2(100);
var_arr intarray := intarray('a','b','c','d');
begin
  for i in 1..var_arr.count
  loop
   dbms_output.put_line(var_arr(i));
  end loop;
end;
---------------------------未知长度数组
declare
type vararray is table of varchar2(50) index by binary_integer;
var_arr vararray;
begin
   for i in 1..15 loop
       var_arr(i) := i+10;
   end loop;
   dbms_output.put_line('Count: '|| var_arr.count);
   dbms_output.put_line(var_arr(11));
end;

------------------------自定义1
declare
var_phone varchar2(100);
idex   int;
nextIdex int;
iphone varchar2(100);
begin
var_phone := '10000,10001,10002,10003,10004';
dbms_output.put_line(var_phone);
idex := 0;
nextIdex := 1;
while nextIdex > 0 loop
   nextIdex := instr(var_phone, ',', idex+1);
   dbms_output.put_line(idex || ' --- ' || nextIdex);
   if nextIdex > 0 then
   iphone := substr(var_phone, idex+1, nextIdex-idex-1);
   else
   iphone := substr(var_phone, idex+1);
   end if;
   idex := nextIdex;
   dbms_output.put_line(iphone);
end loop;
end;

-------------------  自定义2  使用数组
declare
var_phone varchar2(100) := '1000';--'10000,10001,10002,10003,10004';
idex   int;
nextIdex int;
type charArray is table of varchar2(100) index by binary_integer;
phone_arr charArray;
arrCount int := 1;
begin
dbms_output.put_line(var_phone);
idex := 0;
nextIdex := 1;
while nextIdex > 0 loop
   nextIdex := instr(var_phone, ',', idex+1);
   dbms_output.put_line(idex || ' --- ' || nextIdex);
   if nextIdex > 0 then
      phone_arr(arrCount) := substr(var_phone, idex+1, nextIdex-idex-1);
      arrCount := arrCount + 1;
   else
      phone_arr(arrCount) := substr(var_phone, idex+1);
   end if;
   idex := nextIdex;
   --dbms_output.put_line();
end loop;
for i in 1..phone_arr.count loop
    dbms_output.put_line(phone_arr(i));
end loop;
end;