Oracle clob 操作

--Oracle clob 操作

-- Created on 2015/4/8 by TianPing

declare

  -- Local variables here

  v_clob1 Clob;

  v_clob2 Clob;

  v_amount Int;  --长度

  v_offset Int; --偏移量

  str varchar2(100);

Begin

       
 --初始或清空clob变量

      dbms_lob.createtemporary(v_clob1,True);

      dbms_lob.createtemporary(v_clob2,True);

 --向clob变量写入字符

      dbms_lob.write(v_clob1,30,1,'');

      dbms_output.put_line(v_clob1);

 --初始或清空clob字段

      Update test_lob Set clob_test=empty_clob() Where lob_id=1;      

      --写入clob字段。要先取得clob定位器并锁定记录,缓冲区最大长度32767，超 过要多次写入

       Select clob_test Into v_clob2  From test_lob Where lob_id=1;

     -- Update test_lob Set clob_test=v_clob1 Where lob_id=1;

     dbms_lob.write(v_clob2,26,1,'abcdefghijklmnopkrstuvwxyz');

      --取clob字段定位器

      Select clob_test Into v_clob1  From test_lob Where lob_id=1 ;

      dbms_output.put_line(v_clob1);

      --向clob变量写入字符串

         v_amount:=26;  --写入长度

        v_offset:=21;    --开始写入位置

      dbms_lob.write(v_clob1,v_amount,v_offset,'abcdefghijklmnopkrstuvwxyz');

      dbms_output.put_line(v_clob1);

      --擦除clob变量部份字符串,擦掉部份用空格代替

         v_amount:=5;  --擦除长度

        v_offset:=31;    --开始擦除位置

      dbms_lob.erase(v_clob1,v_amount,v_offset);

      dbms_output.put_line(v_clob1);

      --截取clob前面部份字符串

         v_amount:=20;  --截取长度

      dbms_lob.trim(v_clob1,v_amount);

      dbms_output.put_line(v_clob1);      

            --截取clob部份字符串,注意substr是一个函数而不是一个存储过程，不修改clob变量的值

         v_amount:=11;  --截取长度

        v_offset:=3;    --开始截位置

      dbms_output.put_line(dbms_lob.substr(v_clob1,v_amount,v_offset));

        dbms_output.put_line(v_clob1);      

            --查找clob中字符串'89'从第11个字符开始第1次出现的位置

      dbms_output.put_line(dbms_lob.instr(v_clob1,'',11,1));

             --查找clob中字符串'89'从第5个字符开始第2次出现的位置,如不出现返回0

      dbms_output.put_line(dbms_lob.instr(v_clob1,'',11,2));  

 --取clob对象长度

      dbms_output.put_line(dbms_lob.getlength(v_clob1));  

--把缓冲区字串添加到clob对象尾部,缓冲区最大长度32767，超 过要多次写入

      str:='abcdefghijklmnopqrstuvwxyz';

      dbms_lob.append(v_clob1,str);

        dbms_output.put_line(v_clob1);    

  --截取缓冲区前5个字符添加到clob对象尾部

      str:='';

      dbms_lob.writeappend(v_clob1,5,str);

        dbms_output.put_line(v_clob1);    

 --读部份字串到缓冲区

          v_amount:=26;  --读取长度

        v_offset:=21;    --开始读取位置

      dbms_lob.read(v_clob1,v_amount,v_offset,str);

      dbms_output.put_line(str); 

end;