PLSQL解析XML文件



参考网上资料学习汇总

在PL/SQL中利用XML
,Oracle提供了几个组件，让开发人员能轻松地利用XML技术。这些组件包括：

1. 
XML 分析程序。即用来分析、构造和验证XML文档。.

2. XPath
引擎。
它是使用Xpath（XML标准的另一个元素）说明语法在内存中搜索XML文档的实用程序。
SLT 处理器。
它在Oracle数据库中支持XSLT，允许您把XML文档转换成其他格式。

3. XML SQL
实用程序。可以使用SQL产生XML文档，使您可以在Oracle数据库表格中轻松地插入基于XML的数据。
XSQL 页。一项可以汇集声明性XML数据然后通过XSLT公布这些数据的技术。
对于PL/SQL开发人员而言，XML分析程序是最重要的组件。通过它，您可以在Oracle数据库中分析、操纵和转换XML文档。ML分析程序由一套APIs（应用程序编程接口）构成。

XML结构

XML常用分析函数

XMLParser

包括分析XML文档所需的数据类型和程序。XML
Parsing Process

想知道Oracle的parser是如何调用Java来做解析的，请查看Oracle®
XMLDeveloper's Kit Programmer's Guide

10g Release 2 (10.2)

Part Number B14252-01

网址：
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14252/adx_j_parser.htm#i1013320

程序中常用的方法：

Nodelist := dbms_xslprocessor.selectnodes（rootnode,
xpath）

dbms_xslprocessor.valueof(节点,节点下的元素,值)

XMLDOM

包括管理和建立XML文档对象模型（DOM）元素所需的数据类型和程序

Comparing DOM (Tree-Based) and SAX (Event-Based) APIs

XMLDOM
这个程序包，其实是通过封装Java
程序来解析XML
的一个PL/SQL的包。具体的作用还是要参考Oracle®
Database PL/SQLPackages and Types Reference

10g Release 2 (10.2)

Part Number B14258-02

网址：
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_xmldom.htm

实例

<?xml version="1.0" encoding="UTF-8"?>
<Dfile Status="3">
<RecCount>200</RecCount>
<FailCount>1</FailCount>
 <FailInfo>
  <FItem RecErrCode="2901">
     <Item>
       <Name>名称1</Name>
       <Comment>中国银行</Comment>
     </Item>
     <Item>
       <Name>名称2</Name>
       <Comment>建设银行</Comment>
     </Item>
  </FItem>
 </FailInfo>
 <FailInfo>
  <FItem RecErrCode="2902">
     <Item>
       <Name>名称3</Name>
       <Comment>招商银行</Comment>
     </Item>
     <Item>
       <Name>名称4</Name>
       <Comment>平安银行</Comment>
     </Item>
     <Item>
       <Name>名称5</Name>
       <Comment>工商银行</Comment>
     </Item>
  </FItem>
 </FailInfo>

文件的结构

解析方案

在XML DOM的解析过程中，
如果想找某个节点（Fitem）的属性（RecErrCode），而该节点又不是根节点时，需要从最小的节点往上找父节点，一直到节点Fitem，然后在得到其属性。如果节点是根节点，则可以直接得到根节点的元素和属性的值。

根据上图所示，我们要找根节点Dfile的元素和属性的值，直接调用

Oracle通过调用API
xmldom和dbms_xmlparser来做XML文件的解析。

１.　建立一个Directory
，假如在EBS上实现则需要在EBS DB的服务器上建立路径　如：

CreateOr Replace Directory FTP_XXX As '/var/tmp/ftp'
直接在APPS下就可以新建

要查找当前建立的Directory
可以使用
Select *
From all_directories
查找当前系统中的所有的
Directory .

DECLARE
  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
  -- 检查XML是否在路径FTP_XXX下是否存在
  utl_file.fgetattr('FTP_XXX',
                    'simanhe_test.xml',
                    l_exists,
                    file_length,
                    block_size);

  IF NOT l_exists THEN
    dbms_output.put_line('XML文件不存在');
    RETURN;
  END IF;

  l_bfile := bfilename('FTP_XXX', 'simanhe_test.xml');
  -- 创建一个Clob
  dbms_lob.createtemporary(l_clob, TRUE);
  dbms_lob.open(l_bfile, dbms_lob.lob_readonly);
  -- 将XML文件上载并转换为Clob类型
  dbms_lob.loadclobfromfile(l_clob,
                            l_bfile,
                            p_max_size,
                            dst_offset,
                            src_offset,
                            default_csid, -- UTF8
                            lang_ctx, -- GBK
                            warning);
  l_file_number := dbms_lob.fileexists(l_bfile);
  IF l_file_number = 0 THEN
    dbms_output.put_line('XML文件未被转换成功');
    RETURN;
  END IF;
  dbms_lob.close(l_bfile);
  -- Create a parser.
  l_parser := dbms_xmlparser.newparser;
  BEGIN
    -- Parse the document and create a new DOM document.
    dbms_xmlparser.parseclob(l_parser, l_clob);
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('XML文件不完整');
      RETURN;
  END;
  l_doc := dbms_xmlparser.getdocument(l_parser);
  -- Free resources associated with the CLOB and Parser now they are no longer needed.
  dbms_lob.freetemporary(l_clob);
  -- 得到根节点
  rootnode        := xmldom.makenode(xmldom.getdocumentelement(xmlparser.getdocument(l_parser)));
  l_rootnode_name := xmldom.getnodename(rootnode);
  dbms_output.put_line('XML文件当前的节点名称为 ' || l_rootnode_name);
  -- 得到根节点元素的值
  dbms_xslprocessor.valueof(rootnode, 'RecCount/text()', l_reccount);
  dbms_xslprocessor.valueof(rootnode, 'FailCount/text()', l_failcount);
  dbms_output.put_line('XML文件当前的节点名称为 ' || l_rootnode_name ||
                       '的要素RecCount,FailCount值为' || l_reccount || ',' ||
                       l_failcount);
  -- 得到根节点Dfile的属性Status的值
  l_status := xmldom.getattribute(xmldom.makeelement(rootnode), 'Status');
  dbms_output.put_line('XML文件当前的节点名称为 ' || l_rootnode_name ||
                       '的属性Status的值为' || l_status);

  /*取节点Item下各元素的值,先将Items节点全部存放在 l_nl中 */
  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);
    -- 得到节点Item下元素的值
    dbms_xslprocessor.valueof(l_n, 'Name/text()', l_name);
    dbms_xslprocessor.valueof(l_n, 'Comment/text()', l_comments);
    -- 得到节点Item的父节点FItem
    parent_rootnode := dbms_xmldom.getparentnode(l_n);
    l_rootnode_name := xmldom.getnodename(parent_rootnode);
    -- 得到节点FItem的属性RecErrCode的值
    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);
  -- 将DOC清空，释放资源
  dbms_xmldom.freedocument(l_doc);
  /*  utl_file.frename('FTP_XXX',
  'simanhe_test.xml',
  'FTP_XXX',
  'D_simanhe_test.xml',
  FALSE);*/ -- XML文件解析完成后重命名
  /*utl_file.fremove('FTP_XXX', 'simanhe_test.xml'); */ -- -- XML文件解析完成后删除文件
EXCEPTION
  WHEN OTHERS THEN
    dbms_lob.freetemporary(l_clob);
    dbms_xmlparser.freeparser(l_parser);
    dbms_xmldom.freedocument(l_doc);
END;