在PLSQL中实现分割字符串

首先在SQL窗口创建table类型变量，用来声明函数返回的数组类型：

/*变量类型声明*/
CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);

/*函数*/
CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)  
  RETURN ty_str_split  
  IS  
  j INT := 0;  
  i INT := 1;  
  len INT := 0;  
  len1 INT := 0;  
  str VARCHAR2 (4000);  
  str_split ty_str_split := ty_str_split ();  
  BEGIN  
    len := LENGTH (p_str);  
    len1 := LENGTH (p_delimiter);   
    WHILE j < len  
      LOOP  
        j := INSTR (p_str, p_delimiter, i);   
		/*INSTR(x, find_string [, start] [, occurrence]);搜索find_string在x中并返回它出现的位置*/
		
		/*如果String2在String1中没有找到，instr函数返回0*/
       IF j = 0  THEN  
            j := len;  
            /*j等于待分割的字符串最后一个位置*/
            str := SUBSTR (p_str, i);    
            /*str等于将待分割字符串从i位置分割到结束位置*/
	    /*添加到数组*/
            str_split.EXTEND;  
            str_split (str_split.COUNT) := str;   
            /*数组.count可以获取到数组实际长度*/
	    /*i代表待分割的字符串开始分割的位置，len代表待分割字符串长度或结束位置，如果待分割的字符串开始分割的位置>=待分割字符串长度或结束位置则分割结束，退出循环*/
            IF i >= len  
            THEN  
              EXIT;  
            END IF;  
        ELSE  
            str := SUBSTR (p_str, i, j - i);  
	    /*SUBSTR(x, start [, length]); 返回x的一个子开始于由start指定的位置。可选长度为子字符串*/
	    /*i变成j+分割符长度的位置*/	
            i := j + len1;  
	    /*添加到数组*/
            str_split.EXTEND;  
            str_split (str_split.COUNT) := str;  
        END IF;  
      END LOOP;  
      
    RETURN str_split;  
END fn_split;

测试代码:

/*测试代码*/
declare
  -- Non-scalar parameters require additional processing 
  s ty_str_split;
  len INTEGER;
begin
  -- Call the function
  s := fn_split('1,2,3',',');
  len :=s.count;
  dbms_output.put_line('数组长度:'||len);
  FOR i IN 1..len 
    LOOP
      dbms_output.put_line(s(i));
    END LOOP;
  
end;

输出：

参考易百教程