使用换行符拆分字符串，使用PL SQL函数追加字符串

DECLARE
  str VARCHAR2(100) := 'Hello\nWorld\nPL/SQL';
  substr_list SYS.ODCIVARCHAR2LIST;
BEGIN
  SELECT REGEXP_SUBSTR(str, '[^'||CHR(10)||']+', 1, LEVEL)
  BULK COLLECT INTO substr_list
  FROM DUAL
  CONNECT BY REGEXP_SUBSTR(str, '[^'||CHR(10)||']+', 1, LEVEL) IS NOT NULL;

  FOR i IN 1..substr_list.COUNT LOOP
    DBMS_OUTPUT.PUT_LINE(substr_list(i));
  END LOOP;
END;
/

DECLARE
  str VARCHAR2(100) := 'Hello\nWorld\nPL/SQL';
  substr_list SYS.ODCIVARCHAR2LIST;
  start_pos NUMBER := 1;
  end_pos NUMBER;
BEGIN
  LOOP
    end_pos := INSTR(str, CHR(10), start_pos);
    IF end_pos = 0 THEN
      substr_list := substr_list || SUBSTR(str, start_pos);
      EXIT;
    END IF;
    substr_list := substr_list || SUBSTR(str, start_pos, end_pos - start_pos);
    start_pos := end_pos + 1;
  END LOOP;

  FOR i IN 1..substr_list.COUNT LOOP
    DBMS_OUTPUT.PUT_LINE(substr_list(i));
  END LOOP;
END;
/