达梦-MySQL FIND_IN_SET解决方案

最新推荐文章于 2024-02-02 10:10:11 发布

麦田里的守望者·

最新推荐文章于 2024-02-02 10:10:11 发布

阅读量1.5k

点赞数

分类专栏：国产化文章标签： dm8

本文链接：https://blog.csdn.net/weixin_38231448/article/details/125182329

版权

国产化专栏收录该内容

8 篇文章 1 订阅

订阅专栏

CREATE OR REPLACE FUNCTION FIND_IN_SET
                (
                        piv_str1 varchar2,
                        piv_str2 varchar2,
                        p_sep    varchar2 := ',')
                RETURN BOOLEAN
                            IS
                l_idx     number:=0;                 -- ⽤于计算piv_str2中分隔符的位置
                str       varchar2(500);             -- 根据分隔符截取的⼦字符串
                piv_str   varchar2(500) := piv_str2; -- 将piv_str2赋值给piv_str
                res       number        :=0;         -- 返回结果
                loopIndex number        :=0;
                flag      BOOLEAN       :=false;
        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);
                                loopIndex:=loopIndex+1;
                                -- 当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:= loopIndex;
                                                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:= loopIndex;
                                        END IF;
                                        -- ⽆论最后是否相等，都跳出循环
                                        EXIT;
                                END IF;
                        END LOOP;
                        -- 结束循环
                END IF;
                -- 返回res
                IF res > 0 then
                	flag:=true;
                END IF;	
                RETURN flag;
        END FIND_IN_SET;