ORACLE Ä£Äâ java SPLIT

CREATE OR REPLACE FUNCTION F_HPS_SPLIT
/*
 * ¹¦    ÄÜ: split.
 * ÊäÈë²ÎÊý: Liststr  string
 * ÊäÈë²ÎÊý: Sepe     index
 * ÊäÈë²ÎÊý: Sepe     separator. default is ','.
 * return sepeCount
 */
(
  Liststr in varchar2,
  inde    in number,
  Sepe    in varchar2 := ','
) return varchar2 is
  -- È¥µôÇ°ºó·Ö¸ô·ûºóµÄ×Ö·û´®
  Str       varchar2(4000);
  -- Òª·µ»ØµÄ×Ö·û´®
  retStr    varchar2(100);
  -- ·Ö¸ô·û¸öÊý
  sepeCount number(4);
begin
  -- È¥µôÇ°ºóµÄ·Ö¸ô·û;
  Str       := TRIM(BOTH Sepe from Liststr);
  sepeCount := f_hps_getsepcount(Liststr, Sepe);
  IF sepeCount = 0 THEN
     return Liststr;
  END IF;
  IF inde > sepeCount THEN
    retStr := '0';
  ELSIF inde = sepeCount THEN
    retStr := Substr(str, Instr(str, Sepe, 1, inde) + 1, length(Str));
  ELSIF inde = 0 THEN
    retStr := Substr(str, 1, Instr(str, Sepe, 1, 1) - 1);
  ELSE
    str    := SubStr(Str, Instr(str, Sepe, 1, inde) + 1, length(str));
    retStr := Substr(str, 1, Instr(str, Sepe, 1, 1) - 1);
  END IF;
  return retStr;
end;