ORALCE DBMS_LOB用法-优快云博客

本文介绍了一个使用Oracle PL/SQL进行LOB对象操作的例子，包括创建、写入、追加及读取LOB数据的过程。通过示例展示了如何利用DBMS_LOB包中的过程来实现对CLOB类型的动态操作。

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

DECLARE
  v_clob       CLOB := 'TEST';
  v_str_length NUMBER;
  v_offest     NUMBER := 1;
  v_lob_length NUMBER;
  v_out_str    VARCHAR2(10);
  v_amount     NUMBER := 10;
BEGIN
  --dbms_lob.createtemporary(v_clob, TRUE);--清空v_clob
  v_offest := dbms_lob.getlength(v_clob) + 1;
  FOR c_u IN (SELECT * FROM fnd_user WHERE rownum <= 2) LOOP
    v_str_length := length(c_u.user_name);
    dbms_lob.write(lob_loc => v_clob, --写入V_CLOB
                   amount  => v_str_length, --写入的字符串的长度
                   offset  => v_offest, --写入的位置
                   buffer  => c_u.user_name --写入的字符串
                   );
    v_offest := v_offest + v_str_length; --重新获取长度
  END LOOP;
  dbms_output.put_line(v_clob);
  dbms_lob.append(v_clob, '1121212'); ---将1121212写入v_clob对象尾部
  dbms_output.put_line(v_clob);
  dbms_lob.writeappend(v_clob, 4, '3456789'); ---从3456789中取出4个写入v_clob对象尾部
  dbms_output.put_line(v_clob);
  dbms_lob.open(v_clob, dbms_lob.lob_readonly); --打开只读模式不能进行更新v_clob
  v_lob_length := dbms_lob.getlength(v_clob);
  v_offest     := 1;

  /*
  循环读取v_clob 每次读取v_amount长度的字符串，从v_offest位置开始，读出后放在v_out_str
  */
  WHILE v_offest <= v_lob_length LOOP
    dbms_lob.read(lob_loc => v_clob,
                  amount  => v_amount,
                  offset  => v_offest,
                  buffer  => v_out_str);
    dbms_output.put_line(v_out_str);
    v_offest := v_offest + v_amount;
  END LOOP;
  dbms_lob.close(lob_loc => v_clob); --关闭
END;