oracle 字符包含另一个字符串,Oracle判断指定字符串拆分后是否包含另一个字符换...

create or replace function isContained /****************************************************   ** created by lixiaobin   ** 函数名称：isContained   ** 作    用：拆分源字符串和目标字符串，并逐项比较   ** 参    数：【名称】         【类型 】      【说明】                p_SrcStr         varchar2       源字符串                p_DesStr         varchar2       目标字符串                p_Mode           integer        比较模式：0:或比较* 1:与比较*                p_SrcDel         varchar2       源字符串的分隔符(1字符)                p_DesDel         varchar2       目标字符串的分隔符(1字符)   ** 返 回 值：v_Ret_0          varchar2       或比较时的返回值(0不匹配1匹配)                v_Ret_1          varchar2      与比较时的返回值(0不匹配1匹配)   解释：    或比较：目标字符串任何项目包含在源字符串中则匹配成功   与比较：目标字符串所有项目包含在源字符串中则匹配成功   调用 举例：   select isContained('78;77;76;79','77;78',0,';',';') from dual;   ****************************************************/ (   p_SrcStr varchar2, p_DesStr varchar2, p_Mode integer := 0,   p_SrcDel varchar2 := ';', p_DesDel varchar2 := ';' ) return integer as   type t_SrcArr is table of varchar2(100) index by binary_integer;   v_SrcArr t_SrcArr;   v_SrcStr varchar2(32767);   v_DesStr varchar2(32767);   v_SrcItm varchar2(100);   v_DesItm varchar2(100);   i        pls_integer;   v_Count  pls_integer;   v_Ret_0  integer := 0;   v_Ret_1  integer := 1; begin   if p_SrcStr is null or p_DesStr is null then     return 0;   end if;   v_SrcStr := p_SrcStr || p_SrcDel;   v_DesStr := p_DesStr || p_DesDel;   i        := 1;   while instr(v_SrcStr, p_SrcDel) > 0   loop     v_SrcItm := substr(v_SrcStr, 1, instr(v_SrcStr, p_SrcDel) - 1);     v_SrcStr := substr(v_SrcStr, instr(v_SrcStr, p_SrcDel) + 1);     v_SrcArr(i) := v_SrcItm;     i := i + 1;   end loop;   while instr(v_DesStr, p_DesDel) > 0   loop     if p_Mode = 1 and v_Ret_1 = 0 then       return 0;     end if;     v_DesItm := substr(v_DesStr, 1, instr(v_DesStr, p_DesDel) - 1);     v_DesStr := substr(v_DesStr, instr(v_DesStr, p_DesDel) + 1);     v_Ret_1  := 0;     for i in 1 .. v_SrcArr.count     loop       if v_DesItm = v_SrcArr(i) then         if p_Mode = 0 then           return 1;         else           v_Ret_1 := 1;           exit;         end if;       end if;     end loop;   end loop;   if p_Mode = 0 then     return v_Ret_0;   else     return v_Ret_1;   end if; end;