1.创建自己的类型 VARCHAR2ARRAY

CREATE OR REPLACE TYPE "VARCHAR2ARRAY" as table of varchar2(300);

2.创建函数SPLITSTR

CREATE OR REPLACE FUNCTION "SPLITSTR" (p_str       IN VARCHAR2,
                                    p_delimiter IN VARCHAR2)
  RETURN varchar2array IS
  /**
   *  对字符串进行对应的切割  p_str:字符串  p_delimiter:切割的字符
   **/
  j        INT := 0;
  i        INT := 1;
  len      INT := 0;
  len1     INT := 0;
  str      VARCHAR2(4000);
  my_split varchar2array := varchar2array();
BEGIN
  len  := LENGTH(p_str);
  len1 := LENGTH(p_delimiter);
  WHILE j < len LOOP
    j := INSTR(p_str, p_delimiter, i);
    IF j = 0 THEN
      j   := len;
      str := SUBSTR(p_str, i);
      my_split.EXTEND;
      my_split(my_split.COUNT) := str;
      IF i >= len THEN
        EXIT;
      END IF;
    ELSE
      str := SUBSTR(p_str, i, j - i);
      i   := j + len1;
      my_split.EXTEND;
      my_split(my_split.COUNT) := str;
    END IF;
  END LOOP;
  RETURN my_split;
END SPLITSTR;

 

3.怎样使用,一般在存储过程中使用。

declare
 mysplit varchar2array;
begin
  select SPLITSTR('a,b,44,',',') into mysplit from dual;--用逗号拆分。
  dbms_output.put_line(mysplit(1));
  dbms_output.put_line(mysplit(2));--位置2的结果为b
  dbms_output.put_line(to_number(mysplit(3)));
end;
打印结果:

a
b
44