[置顶]ORACLE编程的套路字符串分解

create or replace function FUN_STRING_SPLIT (
 v_string IN VARCHAR2, 
 v_sep IN VARCHAR2)
 return fs.stringList IS
/***************************************************************************/
/* */
/* 字符串分割函数 for ORACLE */
/* @param v_string 母字符串 */
/* @param v_sep 分隔符 */
/* @return 字符串列表 */
/* TYPE stringList IS TABLE OF VARCHAR2(256) INDEX BY BINARY_INTEGER; */
/* @author foolstudio@qq.com */
/* All rights reserved. 未经许可，不得用于商业用途 */
/* */
/***************************************************************************/

 --分隔符长度
 C_LEN int;
 --删除空格后的字符串
 v_str varchar2(256);
 --分隔符位置
 v_pos int;
 --子字符串
 v_sub varchar2(256);
 --数组计数器
 v_i int;
 --结果
 Result fs.stringList;

BEGIN

 v_str := TRIM(v_string);
 --dbms_output.put_line(v_str);
 v_pos := INSTR(v_str, v_sep);
 v_i := 0;
 C_LEN := LENGTH(v_sep);

 --无匹配，整字符串返回
 IF v_pos < 1 AND LENGTH(v_str) > 0 THEN
 Result(v_i) := v_str;
 return Result;
 END IF;

 WHILE v_pos > 0 LOOP

 v_sub := SUBSTR(v_str, 0, v_pos-1);

 --添加到结果数组
 IF LENGTH(v_sub) > 0 THEN
 Result(v_i) := v_sub;
 v_i := v_i+1;
 END IF;

 --dbms_output.put_line(v_sub);
 v_str := SUBSTR(v_str, v_pos+C_LEN);
 --dbms_output.put_line(v_str);
 v_pos := INSTR(v_str, v_sep);

 END LOOP;

 --已无匹配，剩余字符串添加到结果数组
 IF LENGTH(v_str) > 0 THEN
 Result(v_i) := v_str;
 END IF;

 --调试