脚本插入CLOB字段

dbms_lob.writeappend(v_clob, length(v_buffer), v_buffer);

declare
v_buffer clob;
v_clob clob;
begin
insert into t1 (id,cl) values (2, empty_clob())
returning cl into v_clob;
v_buffer := dbms_random.string('A',4000)||dbms_random.string('A',4000);
dbms_lob.writeappend(v_clob, length(v_buffer), v_buffer);
commit;
end;

另一例子：
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.