自建的Oracle一个字符串截取函数split_string

create or replace function split_string(p_expression IN VARCHAR2 ,p_split_flag IN VARCHAR2,p_length IN INTEGER,p_start_point IN INTEGER,p_number IN INTEGER)
RETURN VARCHAR2 IS
v_result VARCHAR2(200);
v_length INTEGER;
v_start_point INTEGER;
v_number INTEGER;
v_temp varchar2(200);
t_num INTEGER;
/******************************************************************************
根据设定的分界符，截取字符串中出现的第几个分界符后指定长度的字符串内容
输入参数：
       p_expression  varchar2  被截取的字符串、
       p_split_flag  varchar2  分界符、
       p_length      INTEGER   截取的字符串长度、
       p_start_point INTEGER   开始位置
       p_number      INTEGER   从开始位置开始出现的第几个分界符

返回结果：
       v_result      varchar2  返回结果，截取出字符串

注意点：
       1、被截取的字符串不能为空
       2、分解符可以为空格
       3、截取长度和第几个分解符需要给出值，默认为1
       4、开始位置默认为空

--------------------------------------------------------------------------------
Version 1.0
Created By  Pracy.Chen   2011-11-02
Mail:pracy87@163.com


*******************************************************************************/
BEGIN
     t_num :=0;
     v_length :=0;
     v_start_point :=0;
     v_number :=0;
     --处理参数
     IF trim(p_expression) is null THEN
        v_result:='';
        RETURN v_result;
     END IF;
    
     IF p_length is null OR p_length = 0 THEN
        v_length:= 1;
     ELSE
        v_length:=p_length;
     END IF;
    
     IF p_number is null OR p_number = 0 THEN
        v_number:= 1;
     ELSE
        v_number:=p_number;
     END IF;
    
     IF p_split_flag = p_expression OR p_split_flag is null THEN
        v_result:= p_expression;
        RETURN v_result;
     END IF;
     IF p_start_point is null THEN
        v_start_point:= 1;
     ELSE
        v_start_point:=p_start_point;
     END IF;

     select instr(p_expression,p_split_flag,v_start_point,v_number) into t_num from dual;
    
     IF t_num = 0 THEN
        v_result := '';
        RETURN v_result;
     END IF;
       
    
     select substr(p_expression,t_num+1,v_length) into v_temp from dual;

     IF trim(v_temp)is null THEN
        v_result:=' ';
     ELSE
        v_result:=v_temp;
     END IF;

     RETURN v_result;

EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN ' ';
WHEN OTHERS THEN
-- Consider logging the error and then re-raise
return ' ';
END split_string;
/