PL/SQL程序完成XML转JSON_plsql xml json-CSDN博客

本文链接：https://blog.csdn.net/tianhong2012/article/details/85039012

Oracle 12c虽然支持JSON处理但缺乏XML转JSON的功能。本文提供了一个DEMO，利用DBMS_XMLDOM和DBMS_LOB包将XML转换为JSON，适用于Oracle 11g和12c。代码已在Github上分享。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;
  /*-----------------------------------------------------------------------------------------------
  || 函数名称：fun_r