PLSQL_PLSQL读和写XML文件方式（案例）

--创建测试目录
CREATE OR REPLACE DIRECTORY bxjxml AS '/home/oracle/bxjxml'; 

--目录权限分配
GRANT READ, WRITE ON DIRECTORY bxjxml TO public;

DECLARE
   f_emp        UTL_FILE.FILE_TYPE;
   v_sql        VARCHAR2 (1000);
   myclob       CLOB;
BEGIN
   v_sql := 'SELECT   mgr.first_name manager,
                      emp.first_name || emp.last_name empname,
                      emp.email
               FROM   hr.employees emp, hr.employees mgr
              WHERE   emp.manager_id = mgr.employee_id
                AND   mgr.first_name IN ('''|| 'Alberto'|| ''','''|| 'Gerald'|| ''')';
   DBMS_OUTPUT.put_line (v_sql);

   SELECT   DBMS_XMLGEN.GETXML (v_sql) INTO myclob FROM DUAL;

   f_emp := UTL_FILE.FOPEN ('BXJXML','BXJXML.XML','W',32767);
   UTL_FILE.PUT (f_emp, myclob);
   UTL_FILE.FCLOSE (f_emp);
END;
/

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 ('BXJXML','bxjxml.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 ('BXJXML', 'bxjxml.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;

BEGIN
   parse_xml_file;
EXCEPTION WHEN OTHERS THEN
  DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
END;

--The root node name of the XML File is :Dfile
--The name of the Current Node in The File is : Dfile's elements --RecCount,FailCount Value is :200,1
--The name of the Current Node in The File is : Dfile's elements Status --Value is :3
--Name :test1 ,Comment = BXJCOMMENT1, RecErrCode = 2901
--Name :test2 ,Comment = BXJCOMMENT2, RecErrCode = 2901
--Name :test3 ,Comment = BXJCOMMENT3, RecErrCode = 2902
--Name :test4 ,Comment = BXJCOMMENT4, RecErrCode = 2902