PL/SQL字符串Spit，Clob打印

最新推荐文章于 2024-02-08 16:52:26 发布

dadarain

最新推荐文章于 2024-02-08 16:52:26 发布

阅读量191

点赞数

CC 4.0 BY-SA版权

分类专栏： PL/SQL 文章标签： SQL

本文链接：https://blog.youkuaiyun.com/dadarain/article/details/83392051

PL/SQL 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个PL/SQL过程PROCEDUREPRINT_CLOB，用于打印CLOB类型的长字符串，并提供了一个FUNCTIONSPLIT函数，用于将输入的字符串按指定的分隔符进行分割。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  PROCEDURE PRINT_CLOB(P_CLOB IN CLOB) AS
    L_OFFSET NUMBER DEFAULT 1;
  BEGIN
    LOOP
      EXIT WHEN L_OFFSET > DBMS_LOB.GETLENGTH(P_CLOB);
    
      FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
                        DBMS_LOB.SUBSTR(P_CLOB, 4000, L_OFFSET));
    
      L_OFFSET := L_OFFSET + 4000;
    END LOOP;
  END;

由于使用FND_FILE.PUT_LINE没有dbms_output.put_line的250个字符的限制，但是Varchar2还是有4000字符的限制的。

 FUNCTION SPLIT(P_STR IN VARCHAR2, P_PATTERN IN VARCHAR2 := ';')
    RETURN T_VARRAY
  
   AS
    LTAB T_VARRAY := T_VARRAY();
    POS  INTEGER := 0;
    LS   VARCHAR2(255) := P_STR;
  BEGIN
    POS := INSTR(LS, P_PATTERN);
    WHILE POS > 0 LOOP
      LTAB.EXTEND;
      LTAB(LTAB.COUNT) := SUBSTR(LS, 1, POS - 1);
      LS := SUBSTR(LS, POS + 1);
      POS := INSTR(LS, P_PATTERN);
    END LOOP;
    LTAB.EXTEND;
    LTAB(LTAB.COUNT) := LS;
    RETURN LTAB;
  
  END;