达梦兼容MYSQL函数find_in_set

达梦兼容MYSQL函数find_in_set

CREATE OR REPLACE
FUNCTION SYSDBA.FIND_IN_SET(piv_str1 varchar2, piv_str2 varchar2, p_sep varchar2 := ',') 
RETURN NUMBER IS   
  l_idxnumber:=0; -- 用于计算piv_str2中分隔符的位置
  strvarchar2(500);  -- 根据分隔符截取的子字符串
  piv_strvarchar2(500) := piv_str2; -- 将piv_str2赋值给piv_str
  resnumber:=0; -- 返回结果
BEGIN
-- 如果piv_str中没有分割符，直接判断piv_str1和piv_str是否相等，相等 res=1
IF instr(piv_str, p_sep, 1) = 0 THEN
   IF piv_str = piv_str1 THEN
      res:= 1;
   END IF;
ELSE
-- 循环按分隔符截取piv_str
LOOP
    l_idx := instr(piv_str,p_sep);
-- 当piv_str中还有分隔符时
      IF l_idx > 0 THEN
   -- 截取第一个分隔符前的字段str
         str:= substr(piv_str,1,l_idx-1);
   -- 判断 str 和piv_str1 是否相等，相等 res=1 并结束循环判断
         IF str = piv_str1 THEN
           res:= 1;
           EXIT;
         END IF;
        piv_str := substr(piv_str,l_idx+length(p_sep));
      ELSE
   -- 当截取后的piv_str 中不存在分割符时，判断piv_str和piv_str1是否相等，相等 res=1
        IF piv_str = piv_str1 THEN
           res:= 1;
        END IF;
        -- 无论最后是否相等，都跳出循环
        EXIT;
      END IF;
END LOOP;
-- 结束循环
END IF;
-- 返回res
RETURN res;
END FIND_IN_SET;

测试：

CREATE TABLE "SYSDBA"."TABLE_1"
(
"COL1" VARCHAR2(50))；
insert into "SYSDBA"."TABLE_1" values('10,2,4');
insert into "SYSDBA"."TABLE_1" values('1,2,3,4');
commit;