求个物集345搭建需要的数据库函数

fly阿门

搭建需要的数据库函数谁有啊

QQ9960

--------------------------------------------------------
--  1
--------------------------------------------------------

  CREATE OR REPLACE TYPE "WJTEST"."TABLETYPE" as table of varchar2(32676);
       
        --------------------------------------------------------
-- 2
--------------------------------------------------------
       
        CREATE OR REPLACE FUNCTION "WJTEST"."SPLIT" (p_list CLOB, p_sep VARCHAR2 := '|')
RETURN tabletype
PIPELINED
/**************************************
* Name: split
* Author: Sean Zhang.
* Date: 2012-09-03.
* Function: 返回字符串被指定字符分割后的表类型。
* Parameters: p_list: 待分割的字符串。
p_sep: 分隔符，默认逗号，也可以指定字符或字符串。
* Example: SELECT *
FROM users
WHERE u_id IN (SELECT COLUMN_VALUE
FROM table (split ('1,2')))
返回u_id为1和2的两行数据。
**************************************/
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;
END;

/
--------------------------------------------------------
--  DDL for Function SPLITSTR
--------------------------------------------------------

  CREATE OR REPLACE FUNCTION "WJTEST"."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;

/
--------------------------------------------------------
--  DDL for Function SPLITTASK
--------------------------------------------------------

  CREATE OR REPLACE FUNCTION "WJTEST"."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;

fly阿门

QQ9960 发表于 2025-6-2 13:35
--------------------------------------------------------
--  1
----------------------------------- ...

感谢大佬

she1380915

345族导入数据库后， 不需要配置函数就可以用了