编写存储过程实现超4000字符VARCHAR2字段按逗号拆分多行插入

针对你的需求，以下是可直接使用的Oracle存储过程，核心逻辑是每次截取前4000字符范围内的最后一个逗号位置，确保不拆分单个逗号分隔项，循环处理剩余内容直到全部插入。

基础版本（输入字符串≤32767字符） #

CREATE OR REPLACE PROCEDURE INSERT_SPLIT_PRODUCTS(
    p_long_str IN VARCHAR2
) IS
    v_remaining_str VARCHAR2(32767); -- PL/SQL中VARCHAR2最大支持32767字符
    v_current_str   VARCHAR2(4000);  -- 当前行要插入的内容
    v_cut_pos       NUMBER;           -- 最终截取的位置
BEGIN
    v_remaining_str := p_long_str;
    
    WHILE v_remaining_str IS NOT NULL LOOP
        -- 剩余内容长度≤4000，直接插入
        IF LENGTH(v_remaining_str) <= 4000 THEN
            v_current_str := v_remaining_str;
            v_remaining_str := NULL;
        ELSE
            -- 取前4000字符，定位最后一个逗号的位置
            v_cut_pos := INSTR(SUBSTR(v_remaining_str, 1, 4000), ',', -1);
            
            -- 前4000字符无逗号，说明单个项超长，抛出异常
            IF v_cut_pos = 0 THEN
                RAISE_APPLICATION_ERROR(-20001, '单个产品项长度超过4000字符，无法插入');
            END IF;
            
            -- 截取到最后一个逗号，作为当前行内容
            v_current_str := SUBSTR(v_remaining_str, 1, v_cut_pos);
            -- 更新剩余字符串，去掉已处理部分（含末尾逗号）
            v_remaining_str := SUBSTR(v_remaining_str, v_cut_pos + 1);
        END IF;
        
        -- 替换YOUR_TABLE_NAME为实际表名
        INSERT INTO YOUR_TABLE_NAME (Products) VALUES (v_current_str);
    END LOOP;
    
    COMMIT;
EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
        RAISE; -- 抛出异常交由调用方处理
END INSERT_SPLIT_PRODUCTS;
/

大字符串版本（输入字符串>32767字符，用CLOB处理） #

如果输入的逗号分隔字符串长度超过32767，改用CLOB类型参数：

CREATE OR REPLACE PROCEDURE INSERT_SPLIT_PRODUCTS_CLOB(
    p_long_clob IN CLOB
) IS
    v_remaining_clob CLOB;
    v_temp_str       VARCHAR2(4000);
    v_current_str    VARCHAR2(4000);
    v_cut_pos        NUMBER;
BEGIN
    v_remaining_clob := p_long_clob;
    
    WHILE DBMS_LOB.GETLENGTH(v_remaining_clob) > 0 LOOP
        -- 读取CLOB前4000字符到临时变量
        DBMS_LOB.READ(v_remaining_clob, 4000, 1, v_temp_str);
        
        IF DBMS_LOB.GETLENGTH(v_remaining_clob) <= 4000 THEN
            v_current_str := v_temp_str;
            v_remaining_clob := EMPTY_CLOB();
        ELSE
            v_cut_pos := INSTR(v_temp_str, ',', -1);
            IF v_cut_pos = 0 THEN
                RAISE_APPLICATION_ERROR(-20001, '单个产品项长度超过4000字符，无法插入');
            END IF;
            v_current_str := SUBSTR(v_temp_str, 1, v_cut_pos);
            -- 裁剪剩余CLOB，去掉已处理的部分
            DBMS_LOB.TRIM(v_remaining_clob, DBMS_LOB.GETLENGTH(v_remaining_clob) - v_cut_pos);
        END IF;
        
        INSERT INTO YOUR_TABLE_NAME (Products) VALUES (v_current_str);
    END LOOP;
    
    COMMIT;
EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
        RAISE;
END INSERT_SPLIT_PRODUCTS_CLOB;
/

使用示例 #

• 输入字符串≤32767时：

BEGIN
    INSERT_SPLIT_PRODUCTS('1,2,3,4,...[超长逗号分隔字符串]');
END;
/

• 输入字符串>32767时：

BEGIN
    INSERT_SPLIT_PRODUCTS_CLOB(TO_CLOB('1,2,3,4,...[超大长度逗号分隔字符串]'));
END;
/

注意事项 #

• 必须替换代码中的YOUR_TABLE_NAME为你实际要插入数据的表名。
• 存储过程假设单个逗号分隔项的长度不超过4000字符，若存在单个项超长的情况，会抛出自定义异常（错误码-20001），你可根据实际需求调整这部分逻辑（比如改用CLOB类型存储列，但你的列是VARCHAR2(4000)，这种场景需提前处理）。

内容的提问来源于stack exchange，提问作者ckaan