使用PL SQL 编写一个逗号分割字符串分割处理函数

create or replace function F_INTELLECT_FIRST_SALES_PROV(var_sales in varchar2,       var_first_sales IN VARCHAR2,        var_split in VARCHAR2) return varchar2 is  Result varchar2(1);    /****************************************************  ** 

  ** All rights reserved.  **  ** 函数名称：F_INTELLECT_FIRST_SALES_PROVINCE  ** 参    数：【名称】         【类型 】      【说明】  **           var_sales          varchar2       字符串1，逗号分隔的，如'aaa,bbb'               var_first_sales    varchar2       字符串2，逗号分割的，如'cc,aaa'  **           var_split        varchar2       要使用的分隔符  ** 返 回 值：Result           varchar2    处理后返回的值1/0  ** 摘    要：如果字符串2中的某一个分割的字符串在字符串1中就返回1，否则返回0                 **  ** 当前版本：1.0  **  ** 作    者：liuzhih  ** 完成日期：2013年1月29日  ** 备    注：  ****************************************************/  var_element varchar2(4000);  var_element2 varchar2(4000);  var_tmp     varchar2(4000);  var_tmp2    varchar2(4000);  BEGIN     RESULT := '0';     var_tmp := var_sales;     var_tmp2 := var_first_sales;       IF var_tmp2 IS NULL OR var_tmp2 ='' THEN    return(Result);  ELSIF var_tmp IS NULL OR var_tmp ='' THEN    return(Result);  ELSE    /*如果字符串1不为空，在后面加上一个特殊的字符,    这样循环时就可以直接在循环内部处理，不然需要在最外面循环出再一次处理var_tmp,因为最后一次var_tmp中不含有分隔符，不会进行loop循环*/    var_tmp := var_tmp || var_split || '-1';  END IF;     while instr(var_tmp, var_split) > 0 LOOP     /****循环字符串1，每次获得一个var_element****/     var_element := substr(var_tmp, 1, instr(var_tmp, var_split) - 1);      var_tmp     := substr(var_tmp,                          instr(var_tmp, var_split) + length(var_split),                          length(var_tmp));             while instr(var_tmp2, var_split) > 0 LOOP          /****循环字符串2，每次获得一个var_element2****/         var_element2 := substr(var_tmp2, 1, instr(var_tmp2, var_split) - 1);          var_tmp2     := substr(var_tmp2,                              instr(var_tmp2, var_split) + length(var_split),                              length(var_tmp2));           /*如果字符串1中有字符串2中的一个值，返回1*/           IF var_element = var_element2 THEN             RESULT := '1';             return(Result);           END IF;        END LOOP;                /*最后一个截取的var_tmp2 不会进入循环 所以在此处处理                                  如果字符串1中含有字符串2的一个值，返回1*/           IF var_element = var_tmp2 THEN             RESULT := '1';             return(Result);           END IF;        END LOOP;  return(Result);end F_INTELLECT_FIRST_SALES_PROV;