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(500) :=piv_str2;
res number:=0;
loopIndex 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);
loopIndex:=loopIndex+1;
IF l_idx > 0 THEN
str:=substr(piv_str,1,l_idx-1);
IF str=piv_str1 THEN
res:=loopIndex;
EXIT;
END IF;
piv_str :=substr(piv_str,l_idx+length(p_sep));
ELSE
IF piv_str=piv_str1 THEN
res:=loopIndex;
END IF;
EXIT;
END IF;
END LOOP;
END IF;
RETURN res;
END FIND_IN_SET;
RETURN NUMBER IS
l_idx number:=0;
str varchar2(500);
piv_str varchar2(500) :=piv_str2;
res number:=0;
loopIndex 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);
loopIndex:=loopIndex+1;
IF l_idx > 0 THEN
str:=substr(piv_str,1,l_idx-1);
IF str=piv_str1 THEN
res:=loopIndex;
EXIT;
END IF;
piv_str :=substr(piv_str,l_idx+length(p_sep));
ELSE
IF piv_str=piv_str1 THEN
res:=loopIndex;
END IF;
EXIT;
END IF;
END LOOP;
END IF;
RETURN res;
END FIND_IN_SET;
© 版权声明
文章版权归作者所有,未经允许请勿转载。