oracle xmlparse 去重,oracle xml parse

oracle xml parser

create or replace procedure parser_xml (dir varchar2,xml_name varchar2) is

new_parser xmlparser.Parser;

get_doc xmldom.DOMDocument;

nodelist xmldom.DOMNodeList;

nle number;

e xmldom.DOMElement;

n xmldom.DOMNode;

begin

new_parser:=xmlparser.newParser;--得到XML解析器

xmlparser.setValidationMode(new_parser,false);--是否让解析器有验证功能(是否是一种DDL标准)

xmlparser.setBaseDir(new_parser,dir);--在XML解析器中设定被解析文件的路径

xmlparser.parse(new_parser,dir||xml_name);--解析文件根据绝对路径

get_doc:=xmlparser.getDocument(new_parser);--在XML解析器中得到解析后的文档

xmlparser.freeParser(new_parser);--释放解析器

nodelist:=xmldom.getElementsByTagName(get_doc,'*');--得到所有的元素

nle:=xmldom.getLength(nodelist);--得到元素的个数

for i in 0..nle-1 loop

n:=xmldom.item(nodelist,i);--给元素打标(即得到每一个节点)

--e:=xmldom.makeElement(n);--把节点变成一个元素来处理(可以对ATTRIBUTER来操作)

dbms_output.put_line(xmldom.getNodeName(n)||':'||xmldom.getNodeValue(xmldom.getFirstChild

(n)));

end loop;

end parser_xml;