PLSQL 解析XML文件

select *
from all_directories CREATE DIRECTORY XML_DIR AS '/app/oracle/database/dir';
--创建测试表
create table test_xml(id number(2),content xmltype);
----将数据从文件读入数据库
INSERT INTO test_xml VALUES (1,XMLType(bfilename('XML_DIR','1.xml'),1));
--以clob形式读取xmltype字段
select id,x.content.getCLOBVal() from test_xml x;
--以string形式读取xmltype字段
select id,x.content.getstringVal() from test_xml x;
--判断节点存在性.
select * from test_xml t where existsNode(t.content,'/book') = 1;
--读取节点值
select id,extractvalue(content,'/book/title') from test_xml;

/**读取节点值同上(对于非xmltype型的字段,可先使用xmltype转换类型后,
**采用该种方式取值,即xmltype(表别名.字段名).extract(xmlpath))
**/
select id,x.content.extract('/book/title') from test_xml x;

--将查询结果转为xml格式.
SELECT DBMS_XMLGEN.getxml('select * from test_xml') xml_text FROM DUAL;

create or replace procedure parse_xml_file is

p_max_size number := dbms_lob.lobmaxsize;
src_offset number := 1;
dst_offset number := 1;
lang_ctx number := nls_charset_id('UTF8');
default_csid constant integer := nls_charset_id('ZHS16GBK');
warning number;
l_file_number pls_integer := 0;
l_count number;
l_bfile bfile;
l_clob clob;
l_commitelement xmldom.DOMElement;
l_parser dbms_xmlparser.Parser;
l_doc dbms_xmldom.DOMDocument;
l_nl dbms_xmldom.DOMNodeList;
l_n dbms_xmldom.DOMNode;
rootnode dbms_xmldom.DOMNode;
parent_rootnode dbms_xmldom.DOMNode;
file_length number;
block_size binary_integer;
l_rootnode_name varchar2(200);
l_status varchar2(1000);
l_recerrcode varchar2(1000);
l_failcount varchar2(200);
l_reccount varchar2(200);
l_name varchar2(1000);
l_comments varchar2(2000);
l_exists boolean;
function convertclobtoxmlelement(p_document in clob)
return xmldom.DOMElement is
x_commitelement xmldom.DOMElement;
l_parser xmlparser.Parser;
begin
l_parser := xmlparser.newParser;
xmlparser.parseClob(l_parser,p_document);
x_commitelement := xmldom.getDocumentElement(xmlparser.getDocument(l_parser));
return x_commitelement;
end convertclobtoxmlelement;
begin
utl_file.fgetattr('XML_DIR',
'2.xml',
l_exists,
file_length,
block_size);
if not l_exists then
dbms_output.put_line('XML File not exist!!!');
return;
end if;
l_bfile := bfilename('XML_DIR','2.xml');
dbms_lob.createtemporary(l_clob,true);
dbms_lob.open(l_bfile,dbms_lob.lob_readonly);
dbms_lob.loadclobfromfile(l_clob,
l_bfile,
p_max_size,
dst_offset,
src_offset,
default_csid,
lang_ctx,
warning);
l_file_number := dbms_lob.fileexists(l_bfile);
if l_file_number = 0 then
dbms_output.put_line('XML File Convert Failed!!!');
return;
end if;
dbms_lob.close(l_bfile);
l_parser := dbms_xmlparser.newParser;
begin
dbms_xmlparser.parseClob(l_parser,l_clob);
exception
when others then
dbms_output.put_Line('XML File Not Full!!!');
return;
end;
l_doc := dbms_xmlparser.getDocument(l_parser);
dbms_lob.freetemporary(l_clob);
rootnode := xmldom.makeNode(xmldom.getDocumentElement(xmlparser.getDocument(l_parser)));
l_rootnode_name := xmldom.getNodeName(rootnode);
dbms_output.put_line('The root node name of the XML File is :' ||
l_rootnode_name);
dbms_xslprocessor.valueOf(rootnode,'RecCount/text()',l_reccount);
dbms_xslprocessor.valueOf(rootnode,'FailCount/text()',l_Failcount);
dbms_output.put_line('The name of the Current Node in The File is : ' ||
l_rootnode_name ||
'''s elements RecCount,FailCount Value is :' ||
l_reccount || ',' || l_Failcount);
l_status := xmldom.getAttribute(xmldom.makeElement(rootnode),'Status');
dbms_output.put_line('The name of the Current Node in The File is : ' ||
l_rootnode_name || '''s elements Status Value is :' ||
l_status);

l_nl := dbms_xmldom.getElementsByTagName(l_doc,'Item');
l_count := dbms_xmldom.getLength(l_nl);
for cur_emp in 0 .. dbms_xmldom.getLength(l_nl) - 1 loop
l_n := dbms_xmldom.item(l_nl,cur_emp);
dbms_xslprocessor.valueOf(l_n,'Name/text()',l_name);
dbms_xslprocessor.valueOf(l_n,'Comment/text()',l_comments);

parent_rootnode := dbms_xmldom.getParentNode(l_n);
l_rootnode_name := xmldom.getNodeName(parent_rootnode);

l_recerrcode := xmldom.getAttribute(xmldom.makeElement(parent_rootnode),
'RecErrCode');
dbms_output.put_line('Name :' || l_name || ',Comment = ' ||
l_comments || ',RecErrCode = ' || l_recerrcode);

end loop;
dbms_xmlparser.freeParser(l_parser);
dbms_xmldom.freeDocument(l_doc);
exception
when others then
dbms_lob.freetemporary(l_clob);
dbms_xmlparser.freeParser(l_parser);
dbms_xmldom.freeDocument(l_doc);
end;

2.xml

<?xml version="1.0" encoding="UTF-8"?> <Dfile Status="3"> <RecCount>200</RecCount> <FailCount>1</FailCount> <FailInfo> <FItem RecErrCode="2901"> <Item> <Name>test1</Name> <Comment>ssss</Comment> </Item> <Item> <Name>test2</Name> <Comment>llll</Comment> </Item> </FItem> </FailInfo> <FailInfo> <FItem RecErrCode="2902"> <Item> <Name>test3</Name> <Comment>sssssdfdfss</Comment> </Item> <Item> <Name>test4</Name> <Comment>llll</Comment> </Item> </FItem> </FailInfo> </Dfile>