[Oracle] 字符串解析生成关联数据

阚静和

由于项目功能有时候需从其他部门提供的Excel... 等其他文档中,往数据库表不间断的塞入一些数据, 所以就写了个简单的解析 过程 避免重复工作;
整理出来分享下

CREATE OR REPLACE PROCEDURE PRO_STR_ANALYZING_INSERT_DATA(
DATA_NAMES VARCHAR2,
DATA_NUMBERS VARCHAR2,
REAMK VARCHAR2 DEFAULT 'PRO_CREATE') AS
-- 组编码
NEW_GROUP_CODE VARCHAR2(20);
--类型
TYPE VAR20 IS TABLE OF VARCHAR2(20);
--DATA(字符串过长时,需扩大字节数)
CNAME VARCHAR2(1024);
CNUMBER VARCHAR2(1024);
--初始化
NAMES VAR20 := VAR20();
NUMBERS VAR20 := VAR20();
I INTEGER DEFAULT 0;
DATA_LEN INTEGER DEFAULT 0;
BEGIN
-- DATA format
/*CNAME := ',王佳冰,刘玉龙,王建华,';
CNUMBER := ',15895985619
,15951902106
,18951853833
,';*/
CNAME := REPLACE(REPLACE(DATA_NAMES,CHR(10),''), ' ', '');
CNUMBER := REPLACE(REPLACE(DATA_NUMBERS,CHR(10),''), ' ', '');
--数据分割后个数
DATA_LEN := LENGTHB(REGEXP_REPLACE(CNUMBER, '[^,]+', ''));
--插入关联主表数据
NEW_GROUP_CODE := TEST_TABLE1_SEQ.NEXTVAL;
INSERT INTO TEST_TABLE_1(ID, CODE) VALUES(GID, NEW_GROUP_CODE);
--解析生成联系人信息
IF DATA_LEN < 1 THEN
ROLLBACK;
RETURN;
END IF;
LOOP
I := I+1;
EXIT WHEN I > DATA_LEN;
--增加集合长度
NAMES.EXTEND;
NUMBERS.EXTEND;
--SUBSTR开始位置截取对应个数字符, REPLACE 替换空格
NAMES(I) := SUBSTR(CNAME,INSTR(CNAME,',',1,I)+1,(INSTR(CNAME,',',1,I+1)-2) - (INSTR(CNAME,',',1,I)+1));
NUMBERS(I) := SUBSTR(CNUMBER,INSTR(CNUMBER,',',1,I)+1,
(INSTR(CNUMBER,',',1,I+1)-2) - INSTR(CNUMBER,',',1,I)+1);
--关联表
INSERT INTO TEST_TABLE_GROUP(ID,TEST_TABLE1_ID
contact_name,mobile_number)
VALUES (SYS_GUID(),NEW_GROUP_CODE
NAMES(I), NUMBERS(I));
END LOOP;
COMMIT;
END;