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;