oracle func_multi_like函数实现模糊匹配多个

create or replace function func_multi_like(p_src varchar2, p_str varchar2)
return number
is
v_result number default 0;
v_str varchar2(200);
v_posistion number;
v_sub_str varchar2(200);  --截取的STR
v_tmp_str varchar2(200); --截取后剩下的str
begin
--全角半角转换
v_str := REPLACE(p_str,'，',',');
v_str := trim(v_str);

v_posistion:= instr(v_str,',');
--判断有没有逗号？
if v_posistion > 0 then

--有逗号 截取str
v_sub_str := trim(substr(v_str,0,v_posistion));
--截取后剩下的str
v_tmp_str := trim(substr(v_str,v_posistion+1 ,LENGTH(v_str)-v_posistion));

--找不到逗号时，退出
while v_posistion <> 0 loop
--重置
v_posistion := 0;

--如果截取下来的不仅仅是逗号，则进截取数据判断。
--如果有一个匹配成功，则result>0
if LENGTH(v_sub_str)>1 and instr(p_src,trim(substr(v_sub_str,0,LENGTH(v_sub_str)-1)))> 0
then
v_result:= instr(p_src,trim(substr(v_sub_str,0,LENGTH(v_sub_str)-1)));
exit;
end if;

v_posistion:= instr(v_tmp_str,',');

v_sub_str := trim(substr(v_tmp_str,0,v_posistion));
v_tmp_str := trim(substr(v_tmp_str,v_posistion+1,LENGTH(v_tmp_str)-v_posistion));

end loop;

if instr(p_src,trim(v_tmp_str))> 0
then v_result:= instr(p_src,trim(v_tmp_str));
end if;

else
--没有逗号，直接匹配
v_result:= instr(p_src,v_str) ;
end if;

return v_result;  --返回0，则匹配失败，返回大于0则匹配成功。
end;