PL/SQL程序完成XML转JSON

Oracle12c已经开始支持JSON数据的处理了，但是还没有一个XML转换为JSON的方法，所以特完成以下DEMO供大家参考，个中尚有不尽之处，欢迎评论指正。

XML数据使用程序包DBMS_XMLDOM进行处理。官方API地址：DBMS_XMLDOM

JSON数据采用CLOB类型存放，数据处理使用DBMS_LOB。官方API地址：DBMS_LOB

本例同样适用于Oracle11g版本。

只提供了匿名程序块，使用过程中自行摘出FUNCTION部分即可。Github地址：https://github.com/wanghb2015/xml2json.git

/*
用于将xmltype转换为json
例：
create table tt3 (c xmltype);
create table tt2 (c clob);
*/
DECLARE
  --测试参数
  xml_req      XMLTYPE;
  document_req dbms_xmldom.DOMDocument;
  node_req     dbms_xmldom.DOMNode;
  vv           CLOB;
  --常量,示例：
  --<a>1</a> ==> "a":"1"
  TYPE_ELEMENT  CONSTANT INTEGER := 0;
  --<a><b>1</b>..</a> ==> "a":{"b":"1",..}
  TYPE_OBJECT   CONSTANT INTEGER := 1;
  --<a>1</a><a>2</a> ==> "a":["1","2"]
  --TYPE_ARRAY    CONSTANT INTEGER := 2;
  
  --JSONArray开始，需包“[”
  TYPE_ARRAY_HEAD CONSTANT INTEGER := 1;
  --JSONArray中段，不需名称
  TYPE_ARRAY_BODY CONSTANT INTEGER := 2;
  --JSONArray结束，需包“]”
  TYPE_ARRAY_END  CONSTANT INTEGER := 3;
  /*------------------------------------------------------