oracle中字符串分解为数组并遍历数组插入表中

1、定义一个自定义类型

CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);

2、定义一个函数

复制代码

CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)

RETURN ty_str_split PIPELINED

IS

j INT := 0;

i INT := 1;

len INT := 0;

len1 INT := 0;

str VARCHAR2 (4000);

BEGIN

len := LENGTH (p_str);

len1 := LENGTH (p_delimiter);

WHILE j < len
LOOP
j := INSTR (p_str, p_delimiter, i);

IF j = 0
THEN
j := len;
str := SUBSTR (p_str, i);
PIPE ROW (str);

IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (p_str, i, j - i);
i := j + len1;
PIPE ROW (str);
END IF;
END LOOP;

RETURN;

END fn_split;

复制代码

3、字符串数组的应用

复制代码

/*

description:车机联控下发到责任单位

*/

PROCEDURE CJLK_UNIT_DOWN(

P_ERRCD IN OUT NUMBER,

P_ERRMSG IN OUT VARCHAR2,

P_CJLK_XH IN VARCHAR2,

P_JSDWBH IN VARCHAR2,

P_JSDWMC IN VARCHAR2,

P_ZT IN VARCHAR DEFAULT ‘A’

)AS

CURSOR L_JSDWBH IS SELECT * FROM TABLE (CAST (FN_SPLIT(P_JSDWBH,’;’) AS ty_str_split));

BEGIN

P_ERRCD:=0;

P_ERRMSG:=”;

UPDATE AQGL.CJLK SET JSDWBH=P_JSDWBH,JSDWMC=P_JSDWMC,ZT=’B’ WHERE XH=P_CJLK_XH;

FOR I IN L_JSDWBH LOOP

INSERT INTO AQGL.CJLK_DWFK (XH,PID,JSDWBH,JSDWMC,ZT)

VALUES (sys_guid(),P_CJLK_XH,I.COLUMN_VALUE,GET_DWMC(i.column_value),P_ZT);

END LOOP;

COMMIT;

EXCEPTION

WHEN OTHERS THEN

ROLLBACK;

P_ERRCD:=SQLCODE;

P_ERRMSG:=SQLERRM;

END;

复制代码

其中P_JSDWBH包含了多个用;分隔的字符串。