oracle实现读取文件，将文件用clob类型存入数据库

create or replace function getClobDocument(filename in varchar2, charset in varchar2 default NULL)
return CLOB deterministic
is
file bfile := bfilename('d:/',filename);
charContent CLOB := ' ';
targetFile bfile;
lang_ctx number := DBMS_LOB.default_lang_ctx;
charset_id number := 0;
src_offset number := 1 ;
dst_offset number := 1 ;
warning number;
begin if charset is not null then
charset_id := NLS_CHARSET_ID(charset);
end if;
targetFile := file;
DBMS_LOB.fileopen(targetFile, DBMS_LOB.file_readonly);
DBMS_LOB.LOADCLOBFROMFILE(charContent, targetFile, BMS_LOB.getLength(targetFile), src_offset,dst_offset,charset_id, lang_ctx,warning);
DBMS_LOB.fileclose(targetFile);
return charContent; end; /