一、实现 mysql find_in_set函数
CREATE OR REPLACE FUNCTION FIND_IN_SET(piv_str1 varchar2, piv_str2 varchar2, p_sep varchar2 := ',')
RETURN NUMBER IS
l_idx number:=0;
str varchar2(500);
piv_str varchar2(4000) := piv_str2;
res number:=0;
BEGIN
IF instr(piv_str, p_sep, 1) = 0 THEN
IF piv_str = piv_str1 THEN
res:= 1;
END IF;
ELSE
LOOP
l_idx := instr(piv_str,p_sep);
IF l_idx > 0 THEN
str:= substr(piv_str,1,l_idx-1);
IF str = piv_str1 THEN
res:= 1;
EXIT;
END IF;
piv_str := substr(piv_str,l_idx+length(p_sep));
ELSE
IF piv_str = piv_str1 THEN
res:= 1;
END IF;
EXIT;
END IF;
END LOOP;
END IF;
RETURN res;
END FIND_IN_SET;
二、只要前面的id串中,有一个id出现在后面的串,就返回1,否则返回0
CREATE OR REPLACE FUNCTION CHECKS2(piv_str1 varchar2, piv_str2 varchar2, p_sep varchar2 :=
RETURN NUMBER IS
l_idx number:=0; -- 用于计算piv_str1中分隔符的位置
str varchar2(500); -- 根据分隔符截取的子字符串
piv_str0 varchar2(4000) := piv_str1; -- 将piv_str1赋值给piv_str0
piv_str varchar2(4000) := piv_str2; -- 将piv_str2赋值给piv_str
res number:=0; -- 返回结果
BEGIN
-- 如果piv_str中没有分割符,直接判断piv_str1和piv_str是否相等,相等 res=1
IF instr(piv_str, p_sep, 1) = 0 and instr(piv_str0, p_sep, 1) = 0 THEN
IF piv_str0 = piv_str THEN
res:= 1;
END IF;
ELSE
if (piv_str0 is not null) then
loop
str:=
mx_splitstring(piv_str0,
if str is not null then
if find_in_set(str,piv_str)>0 then
res:=1;
return res;
end if;
end if;
exit when piv_str0 is null;
end loop;
end if;
/*
-- 循环按分隔符截取piv_str
LOOP
l_idx := instr(piv_str0,p_sep);
-- 当piv_str中还有分隔符时
IF l_idx > 0 THEN
-- 截取第一个分隔符前的字段str
str:= substr(piv_str0,1,l_idx-1);
res:= Find_IN_set(str, piv_str2);
IF res > 0 THEN
EXIT;
END IF;
piv_str0 := substr(piv_str0,l_idx+length(p_sep));
-- ELSE
-- 当截取后的piv_str 中不存在分割符时,判断piv_str和piv_str1是否相等,相等 res=1
-- IF piv_str0 = piv_str1 THEN
-- res:= 1;
-- END IF;
-- -- 无论最后是否相等,都跳出循环
-- EXIT;
END IF;
END LOOP;
-- 结束循环
*/
END IF;
-- 返回res
RETURN res;
END ;
三、后面的ID串是否全部包含前面的ID串,如果是则返回1,否则返回0
CREATE OR REPLACE FUNCTION CHECKS_all_in(piv_str1 varchar2, piv_str2 varchar2, p_sep varchar2 :=
RETURN NUMBER IS
l_idx number:=0; -- 用于计算piv_str1中分隔符的位置
str varchar2(500); -- 根据分隔符截取的子字符串
piv_str0 varchar2(4000) := piv_str1; -- 将piv_str1赋值给piv_str0
piv_str varchar2(4000) := piv_str2; -- 将piv_str2赋值给piv_str
res number:=1; -- 返回结果
BEGIN
-- 如果piv_str中没有分割符,直接判断piv_str1和piv_str是否相等,相等 res=1
IF instr(piv_str, p_sep, 1) = 0 and instr(piv_str0, p_sep, 1) = 0 THEN
IF piv_str0 = piv_str THEN
res:= 1;
END IF;
ELSE
if (piv_str0 is not null) then
loop
str:=
mx_splitstring(piv_str0,
if str is not null then
if find_in_set(str,piv_str)<=0 then
res:=0;
return res;
end if;
end if;
exit when piv_str0 is null;
end loop;
end if;
/*
-- 循环按分隔符截取piv_str
LOOP
l_idx := instr(piv_str0,p_sep);
-- 当piv_str中还有分隔符时
IF l_idx > 0 THEN
-- 截取第一个分隔符前的字段str
str:= substr(piv_str0,1,l_idx-1);
res:= Find_IN_set(str, piv_str2);
IF res > 0 THEN
EXIT;
END IF;
piv_str0 := substr(piv_str0,l_idx+length(p_sep));
-- ELSE
-- 当截取后的piv_str 中不存在分割符时,判断piv_str和piv_str1是否相等,相等 res=1
-- IF piv_str0 = piv_str1 THEN
-- res:= 1;
-- END IF;
-- -- 无论最后是否相等,都跳出循环
-- EXIT;
END IF;
END LOOP;
-- 结束循环
*/
END IF;
-- 返回res
RETURN res;
END ;