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

最近被人批评BLOG有娱乐化倾向,赶紧写点技术文章.

此文用以回答留言板上1224号问题。

BFILE包含二进制数据，所以当通过BFILE方式加载数据到CLOB/NCLOB时，Oracle不进行字符集转化。

如果字符集是可变长的，例如UTF-8或ZHS16GBK，Oracle使用UCS2存储LOB数据。所以如果想BFILE文件数据能够正确加载入数据库，那么文件需要以USC2字符集存储。

那么还有一点需要注意的是，如果以Unicode模式存储文件，那么文件会增加两个字节：

'FF FE'.

在加载文件时我们需要跳过这两个字节。

在Windows上我们存储文件时选择Unicode方式，我输入的字符为：

test测试

Oracle BFile数据加载问题

研究

然后我们可以加载这个文件的内容，注意比较前后两个过程不同之处：

SQL> create table t (
  2  name       varchar2(30),
  3  content clob
  4  )
  5  /
Table created.
SQL> 
SQL> 
SQL> create or replace directory dir1 as '/opt/oracle';
Directory created.
SQL> 
SQL> declare
  2          l_bfile bfile;
  3          l_clob  clob;
  4          l_str   varchar2(1000);
  5  begin
  6          insert into t (name,content)
  7          values ('b.txt',empty_clob())
  8          returning content into l_clob;
  9  
 10          l_bfile := bfilename('DIR1','b.txt');
 11  
 12          dbms_lob.fileopen(l_bfile);
 13          dbms_lob.loadfromfile(l_clob,l_bfile,dbms_lob.getlength(l_bfile));
 14          dbms_lob.fileclose(l_bfile);
 15          commit;
 16          exception when others then
 17          l_str:=sqlerrm(sqlcode);
 18          dbms_output.put_line(l_str);
 19  end;
 20  /
PL/SQL procedure successfully completed.
SQL> select * from t;  
NAME                           CONTENT
------------------------------ ----------------------------------------------
b.txt                          ？test测试
                               Oracle BFile数据加载问题
                               研究
SQL> 
SQL> declare
  2          l_bfile bfile;
  3          l_clob  clob;
  4          l_str   varchar2(1000);
  5  begin
  6          insert into t (name,content)
  7          values ('b.txt',empty_clob())
  8          returning content into l_clob;
  9  
 10          l_bfile := bfilename('DIR1','b.txt');
 11  
 12          dbms_lob.fileopen(l_bfile);
 13          dbms_lob.loadfromfile(l_clob,l_bfile,dbms_lob.getlength(l_bfile)-2,
 14                            src_offset => 3);
 15          dbms_lob.fileclose(l_bfile);
 16          commit;
 17          exception when others then
 18          l_str:=sqlerrm(sqlcode);
 19          dbms_output.put_line(l_str);
 20  end;
 21  /
PL/SQL procedure successfully completed.
SQL> select * from t;
NAME                           CONTENT
------------------------------ --------------------------------------
b.txt                          ？test测试
                               Oracle BFile数据加载问题
                               研究
b.txt                          test测试
                               Oracle BFile数据加载问题
                               研究