create or replace package ArrayTestPKG1 is

type tt_type is table of varchar(32) INDEX BY BINARY_INTEGER;? --- 定義數(shù)組

type table2 is table of tableA.columnA%type index by binary_integer;

function toArray(Liststr in varchar, V1 out tt_type) return number;

Procedure test;

END ArrayTestPKG1;

/

show errors;

create or replace package body ArrayTestPKG1 is

function toArray(Liststr in varchar, V1 out tt_type) return number is

TmpStr varchar(32);

Str??? varchar(4000);

j????? number;

begin

Str := Liststr;

j?? := 0;

IF Instr(Liststr, ',', 1, 1) = 0 THEN

V1(j) := Liststr;

j := j + 1;

else

While Instr(str, ',', 1, 1) > 0 Loop

TmpStr := Substr(str, 1, Instr(str, ',', 1, 1) - 1);

V1(j) := TmpStr;

str := SubStr(Str, Instr(str, ',', 1, 1) + 1, length(str));

j := j + 1;

end loop;

if not str is null then

--將最后一個(gè)保存

V1(j) := str;

j := j + 1;

end if;

end if;

return J;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('sqlerrm:'||sqlerrm);

end;

--計(jì)算某一天所有上下文的消費(fèi)數(shù)據(jù)

Procedure test Is

t1 tt_type;

v_char varchar(150):='';

v_cnt? number:=0;

Begin

dbms_output.put_line('start!!!');

v_char:='aaaa,bbbb,cccc,dddd,eee,ffff';

v_cnt := toArray(v_char,t1);

dbms_output.put_line('v_char:'||v_char);

dbms_output.put_line('v_cnt:'||v_cnt);

dbms_output.put_line('t1:'||t1(3));

dbms_output.put_line('end!!!');

End;

begin

-- Initialization

Null;

end ArrayTestPKG1;

/

show errors;

SQL> exec ArrayTestPKG1.test;

start!!!

v_char:aaaa,bbbb,cccc,dddd,eee,ffff

v_cnt:6

t1:dddd

end!!!

PL/SQL procedure successfully completed.

總結(jié)

以上是生活随笔為你收集整理的oracle 数组的用法,oracle存储过程中数组的使用的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。