如何使用DBMS_LOB从文件中加载CLOB数据

在oracle中，有4个大对象（lobs）类型可用，分别是blob,clob,bfile,nclob。
下面是对lob数据类型的简单介绍。
l blob:二进制lob，为二进制数据，最长可达4GB，存贮在数据库中。
l clob:字符lob,字符数据,最长可以达到4GB,存贮在数据库中。
l bfile:二进制文件;存贮在数据库之外的只读型二进制数据，最大长度由操作系统限制。
l nclob：支持对字节字符集合(nultibyte characterset)的一个clob列。
对于如何检索和操作这些lob数据一直是oracle数据库开发者经常碰到的问题。下面我将在oracle对lob数据处理的一些方法和技巧，介绍给读者，希望能够对读者以后的开发有所帮助。
oracle中可以用多种方法来检索或操作lob数据。通常的处理方法是通过dbms_lob包。
一、在oracle开发环境中我们可以用dbms_lob包来处理！dbms_lob包功能强大，简单应用。既可以用来读取内部的lob对象，也可以用来处理bfile对象。但处理两者之间，还有一点差别。处理内部lob对象（blob,clob）时，可以进行读和写，但处理外部lob对象bfile时，只能进行读操作，写的操作可以用pl/sql处理。另外用sql也可以处理lob，但要注意sql仅可以处理整个lob，不能操作lob的数据片。
在dbms_lob包中内建了read(),append,write()，erase()，copy(),getlength()，substr()等函数，可以很方便地操作lob对象。这里不做深入讨论，读者可以参看相关的书籍。
以下全部操作都在system用户下进行的:
1.创建表downfilelist
create table downfilelist
(id varchar(20) not null primary key,
name varchar(40) not null,
filelocation bfile,
description clob
);
2.创建目录
create or replace directory filedir as 'd:\downlist';
3.插入一行:
insert into downfilelist values
('10001','oracle plsql编程指南',bfilename('filedir','信管(1)班-麒麟湖照片.exe')
,'这是一本很棒的书');
4.进行查询
SQL> select * from downfilelist;
SP2-0678: 列或属性类型无法通过 SQL*Plus 显示
SQL> select id,name,description from downfilelist;

ID NAME
-------------------- ----------------------------------------
DESCRIPTION
--------------------------------------------------------------------------------
10001 oracle plsql编程指南
这是一本很棒的书
5.read
declare
tempdesc clob;
ireadcount int;
istart int;
soutputdesc varchar(100);
begin
ireadcount:=5;
istart:=1;
select description into tempdesc from downfilelist
where id='10001';
dbms_lob.read(tempdesc,ireadcount,istart,soutputdesc);
dbms_output.put_line(soutputdesc);
end;
/
6.getlength
declare
tempclob clob;
ilen int;
begin
select description into tempclob from downfilelist
where id='10001';
ilen:=dbms_lob.getlength(tempclob);
dbms_output.put_line(ilen);
exception
when others then
dbms_output.put_line(sqlcode||' '||sqlerrm);
end;
/
7.write
declare
tempdesc clob;
icount int;
istart int;
snewvar varchar(30);
begin
icount:=10;
istart:=5;
snewvar:='这本书是今年的畅销书';
select description into tempdesc from downfilelist
where id='10001' for update;--锁定本行为了修改
dbms_output.put_line('更改前:'||tempdesc);
dbms_output.put_line('从'||istart||'开始的'||icount||'个字符被改写为:'||snewvar);
dbms_lob.write(tempdesc,icount,istart,snewvar);
commit;
end;
8.append
declare
destdesc clob;
srcdesc clob;
begin
select description into destdesc from downfilelist where id='10001' for update;
select description into srcdesc from downfilelist where id='10001';
dbms_lob.append(destdesc,srcdesc);
commit;
end;
/
9.erase

declare
tempdesc clob;
icount int;
istart int;
begin
icount:=3;
istart:=1;
select description into tempdesc from downfilelist where id='10001' for update;--必须用for upda
dbms_lob.erase(tempdesc,icount,istart);
commit;
end;
/
10.copy
declare
destdesc clob;
srcdesc clob;
icount int;
ideststart int;
isrcstart int;
begin
icount:=10;
ideststart:=10;
isrcstart:=1;
select description into destdesc from downfilelist
where id='10001' for update;
select description into srcdesc from downfilelist where id='10001' for update;
dbms_lob.copy(destdesc,srcdesc,icount,ideststart,isrcstart);
commit;
end;
/