使用存储过程将数据以XML格式导出到XML文件
最近看到有网上有很多人问怎么把数据导出到XML文件，大多的解决方法就是dbms_xmlgen+utl_file，首先要说的是，这种方法确实不错，但是有些缺点。如果系统中需要把数据导出XML文件，通常数据量都比较大，因此，对于大数据量的导出，UTL_FILE就显得比较苍白了。而且DBMS_XMLGEN获得数据本身就是有格式的，因此UTL_FILE的INSTR就显得有些多余了。但是，我还要把这个方法记录下来，另外，还有一个是使用DBMS_XSLPROCESSOR包的方法。一、准备工作
准备数据：
CREATE TABLE xml_table(ID VARCHAR2(20),
OBJECT_VALUE VARCHAR2(200));
导入数据:
BEGIN
FOR i IN 1 .. 100000 LOOP
INSERT INTO xml_table VALUES (i,'blog.csdn.net/zhangchu_63');
END LOOP;
COMMIT;
END;
/
通过上面的操作，我们已经建立了一张名叫xml_table的表，并向里面插入了100000条数据。大家知道XML文件是导出到OS的，因此，需要在ORACLE中为文件创建一个路径：
CREATE OR REPLACE DIRECTORY D_OUTPUT AS 'D:\TEMP';
下面是我们就要开始喽。
二、开始干活
1、dbms_xmlgen+utl_file方式
create or replace procedure xml_output is
/**
本存储过程使用dbms_xmlgen+utl_file两个包来完成数据导出到XML
*/
xml_ctx dbms_xmlgen.ctxType;
v_file utl_file.file_type;
xml_txt varchar2(4000);
line varchar2(500);
begin
xml_ctx := dbms_xmlgen.newContext('select * from xml_table order by id');
dbms_xmlgen.setRowSetTag(xml_ctx,'DBMS');
dbms_xmlgen.setRowTag(xml_ctx,'XML_TABLE');
xml_txt := dbms_xmlgen.getXML(xml_ctx);
v_file := utl_file.fopen('XML_OUTPUT','test.xml','w');
loop
line := substr(xml_txt,1,instr(xml_txt,chr(10))-1);
utl_file.put_line(v_file,line);
exit when instr(line,'</DBMS>')>0;
xml_txt := substr(xml_txt,instr(xml_txt,chr(10))+1);
end loop;
dbms_xmlgen.closeContext(xml_ctx);
utl_file.fclose(v_file);
end xml_output ;
上面就是使用dbms_xmlgen+utl_file方式导出XML的，我的存储过程是没有参数的，如果大家需要可以自己加。
2、dbms_xmlgen+DBMS_XSLPROCESSOR方式
create or replace procedure xml_print is
/**
本存储过程使用dbms_xmlgen+DBMS_XSLPROCESSOR两个包
来完成数据导出到XML
*/
xml_ctx dbms_xmlgen.ctxType;
xml_txt clob;
begin
xml_ctx := dbms_xmlgen.newContext('select * from xml_table
order by id');
dbms_xmlgen.setRowSetTag(xml_ctx,'DBMS');
dbms_xmlgen.setRowTag(xml_ctx,'XML_TABLE');
xml_txt := to_clob(dbms_xmlgen.getXML(xml_ctx));
DBMS_XSLPROCESSOR.clob2file
(xml_txt,'XML_OUTPUT','test.xml');
dbms_xmlgen.closeContext(xml_ctx);
end xml_print;
这个好处就是它不管xml_txt的格式，直接把所有数据写入test.xml中。
三、方法比较
dbms_xmlgen+utl_file方式：导出100000条数据，2分钟没导完，我没耐
心等了。
dbms_xmlgen+DBMS_XSLPROCESSOR方式：导出100000条数据用了
10秒钟。
四、总结
看了上面我写的过程和比较，不用我说，大家也都知道怎么选了吧。在这里我还是要说，没有最好的办法，只有最合适的办法，根据具体问题具体对待。
注：我上面的过程是为了简便，所以没有注释，没有EXCEPTION，希望大家别学我，要养成良好的书写习惯。
为了方便大家学习，我把dbms_xslprocessor中用到的过程描述贴出来，供大家参考：
CLOB2FILE Procedure
This procedure writes content of a CLOB into a file.
Syntax
DBMS_XSLPROCESSOR.CLOB2FILE(cl INCLOB;flocation INVARCHAR2,fname INVARCHAR2,csid INNUMBER:=0);
ParameterDescriptionCLOB
File directory
flocation
File directory
fname
File name
csid
Character set id of the file
[*]Must be a valid Oracle id; otherwise returns an error
[*]If 0, content of the output file will be in the database character set
页:
[1]