oracle中将字符串转换成数组

--- 将字符串转换成数组,并根据需要返回指定位置的数组成员

create or replace function GetElementFromArrayByIndex(Liststr in varchar2,sPlitVal in varchar2,iPos integer) return varchar2 is
/*
Liststr--传入将要被分割的字符串
sPlitVal--用来分割的字符串
iPos--获取分割后的数组中该位置的元素值


*/
  type tt_type is table of varchar2(100) INDEX BY BINARY_INTEGER;
  V1 tt_type;
  --FieldNames转化为数组
  TmpStr varchar2(100);
  Str    varchar2(4000);
  j      integer;
begin
  Str := Liststr;
  j   := 0;
  IF Instr(Liststr, sPlitVal, 1, 1) = 0 THEN
    V1(j) := Liststr;
    j := j + 1;
  else
    While Instr(str, sPlitVal, 1, 1) > 0 Loop
      TmpStr := Substr(str, 1, Instr(str, sPlitVal, 1, 1) - 1);
    
      V1(j) := TmpStr;
      str := SubStr(Str, Instr(str, sPlitVal, 1, 1) + length(sPlitVal), length(str));
      j := j + 1;
    end loop;
    if not str is null then
      --将最后一个保存
      V1(j) := str;
      j := j + 1;
    end if;
  end if;
  if iPos>j-1 or iPos<0 then
    --超出数组长度
    return '';
  end if;
  return V1(ipos);
end;