如何使用Oracle正则表达式按'\R\'分隔文本并实现循环处理？

你的代码核心问题是用正则匹配了分隔符本身，而非分隔符分隔的目标子串，同时项数计算少了一个（分隔符数量+1才是实际子串数）。以下是修正后的可运行代码：

DECLARE
    v_idx NUMBER := 1;
    v_text VARCHAR2(1000);
    v_delimiter VARCHAR2(32); -- 重命名变量，明确区分分隔符与匹配模式
BEGIN
    v_text := 'GR105^INF^191097-1^CT^test string r01\R\GR109^INF^191097-2^CR^test string r02 (1234)';
    v_delimiter := '\\R\\'; -- Oracle中反斜杠需双重转义，对应实际的\R\分隔符

    FOR repeat IN (
        SELECT REGEXP_SUBSTR(v_text, '(.*?)(\' || v_delimiter || '|$)', 1, LEVEL, NULL, 1) AS item
        FROM dual
        CONNECT BY LEVEL <= REGEXP_COUNT(v_text, v_delimiter) + 1 -- 子串数 = 分隔符数量 + 1
    )
    LOOP
        -- 过滤空项（若文本首尾存在分隔符会产生空值）
        IF repeat.item IS NOT NULL AND TRIM(repeat.item) <> '' THEN
            dbms_output.PUT_LINE('--------------- ' || v_idx || ' ---------------');
            dbms_output.PUT_LINE('v_a = ' || TRIM(REGEXP_SUBSTR(repeat.item, '[^^]+', 1, 1)));
            dbms_output.PUT_LINE('v_b = ' || TRIM(REGEXP_SUBSTR(repeat.item, '[^^]+', 1, 2)));
            dbms_output.PUT_LINE('v_c = ' || TRIM(REGEXP_SUBSTR(repeat.item, '[^^]+', 1, 3)));
            dbms_output.PUT_LINE('v_d = ' || TRIM(REGEXP_SUBSTR(repeat.item, '[^^]+', 1, 4)));
            dbms_output.PUT_LINE('v_e = ' || TRIM(REGEXP_SUBSTR(repeat.item, '[^^]+', 1, 5)));
            v_idx := v_idx + 1;
        END IF;
    END LOOP;
END;
/

• 正则匹配逻辑调整：使用(.*?)(\' || v_delimiter || '|$')作为匹配模式：
  • .*?：非贪婪匹配任意字符，避免一次性匹配到最后一个分隔符
  • (\' || v_delimiter || '|$')：匹配分隔符或文本结尾
  • 最后一个参数1指定提取第一个捕获组（即分隔符之间的目标内容）
• 项数修正：REGEXP_COUNT(v_text, v_delimiter) + 1，N个分隔符会将文本拆分为N+1个子串
• 空项过滤：增加判断逻辑，避免处理因首尾分隔符产生的空字符串
• 变量命名优化：将v_pattern改为v_delimiter，更贴合变量实际用途

运行后会输出两个子串的拆分结果，和使用~作为分隔符时的效果一致。

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