全是源码版本,可以正常运行,但是源码里面有一个别人的IP,删除了就无法正常使用了,不懂有没有能解决一下的。
函数问题修改一下:
CREATE OR REPLACE FUNCTION “SPLIT” (p_list CLOB, p_sep VARCHAR2 := ‘|’)
RETURN SYS.ODCIVARCHAR2LIST PIPELINED IS
l_idx PLS_INTEGER;
v_list VARCHAR2 (32676) := p_list;
BEGIN
LOOP
l_idx := INSTR (v_list, p_sep);
IF l_idx > 0
THEN
PIPE ROW (SUBSTR (v_list, 1, l_idx – 1));
v_list := SUBSTR (v_list, l_idx + LENGTH (p_sep));
ELSE
PIPE ROW (v_list);
EXIT;
END IF;
END LOOP;
RETURN;
END;
CREATE OR REPLACE FUNCTION “SPLITSTR” (str IN VARCHAR2,inter in varchar2
)
RETURN NUMBER
/**************************************
52 * Name: splitstr
53 * Author: Sean Zhang.
54 * Date: 2012-09-03.
55 * Function: 返回字符串被指定字符分割后的指定节点字符串。
56 * Parameters: str: 待分割的字符串。
57 i: 返回第几个节点。当i为0返回str中的所有字符,当i 超过可被分割的个数时返回空。
58 sep: 分隔符,默认逗号,也可以指定字符或字符串。当指定的分隔符不存在于str中时返回sep中的字符。
59 * Example: select splitstr(‘abc,def’, 1) as str from dual; 得到 abc
60 select splitstr(‘abc,def’, 3) as str from dual; 得到 空
61 **************************************/
IS
t_count NUMBER;
t_str varchar2(2000);
t_internal number(8,0);
BEGIN
if str is NULL
then
t_internal :=0;
elsIF INSTR (str, inter) = 0
THEN
t_internal := 0;
ELSE
SELECT sstr
INTO t_str
FROM (SELECT ROWNUM AS item, COLUMN_VALUE AS sstr
FROM table (split (str, ‘|’)))
WHERE instr(sstr,inter) <> 0;
t_internal := to_number(substr(t_str,instr(t_str,’=’)+1));
END IF;
RETURN t_internal;
END;
CREATE OR REPLACE FUNCTION “SPLITTASK”
(
str IN VARCHAR2,
inter in varchar2
)
RETURN number
IS
lv_str varchar2(2000);
lv_srtNum number;
lv_value varchar2(200);
lv_valueNum number;
t_internal number(8,0):=0;
is_head BOOLEAN := TRUE;
BEGIN
if str is NOT NULL AND INSTR (str, inter) <> 0 THEN
lv_str:=str;
lv_srtNum:=instr(lv_str,’|’);
while lv_srtNum<>0 or is_head loop
if lv_srtNum<>0 THEN
lv_value:=substr(lv_str,0,lv_srtNum-1);
ELSE
is_head:=FALSE;
lv_value:=lv_str;
END IF;
if length(lv_value)>length(inter)+1 AND substr(lv_value,0,length(inter)+1)=CONCAT(inter,’-‘) THEN
lv_valueNum:=0;
while instr(lv_value,’-‘)<>0 loop
lv_valueNum:=lv_valueNum+1;
lv_value:=substr(lv_value,instr(lv_value,’-‘)+1,length(lv_value));
end loop;
if lv_valueNum=3 THEN
t_internal :=to_number(lv_value);
RETURN t_internal;
END IF;
END IF;
if lv_srtNum<>0 THEN
lv_str:=substr(lv_str,lv_srtNum+1,length(lv_str));
lv_srtNum:=instr(lv_str,’|’);
END IF;
end loop;
END IF;
RETURN t_internal;
END;
带X 的
CREATE OR REPLACE FUNCTION “FIND_IN_SET” AS
begin
select instr(‘,’||arg2||’,’ , ‘,’||arg1||’,’) into Result from dual;
return(Result);
end find_in_set;
暂无评论内容