Xml2Json UDF - Transform XML to JSON

[TheXman 624]

 

The tools & UDF's used to parse and process JSON are much more flexible and powerful than the ones for XML.  In general, they are also much faster.  So I created this Xml2Json UDF to tranform XML to JSON.  It consists of 2 functions, _Xml2Json() and _XmlFile2Json().

;=================================================================================================
; _Xml2Json($sXml, $sXsl = Default)
;
; Author:           TheXman (https://www.autoitscript.com/forum/profile/23259-thexman/?tab=field_core_pfield_11)
;
; Description:      Transform XML string to JSON
; Parameter(s):     $sXml   - A string containing a valid XML document.
;                   $sXsl   - [optional] A string containing the XSL stylesheet used for transform.
; Return Value(s):  Success - A string containing JSON
;                   Failure - "" and sets @error to a non-zero value.
;                   @error    1 = Unable to create XML object
;                             2 = Unable to create XSL object
;                             3 = Unable to parse XML. Make sure XML is valid.
;                             4 = Unable to parse XSL. Make sure XSL is valid.
;                             5 = XML Transform failed.  Make sure you are using a valid v1.0 stylesheet.
;
; Remarks:          MSXML 6.0, the COM component used to do the tranformations, only processes
;                   XSLT 1.0 stylesheets. If you pass a version 2.0+ stylesheet, you WILL get an
;                   error.
;
;                   The XSL stylesheet used by default came from:
;                   https://www.bjelic.net/2012/08/01/coding/convert-xml-to-json-using-xslt/
;                   MIT License - Copyright (c) 2012 Bojan Bjelic
;=================================================================================================

;=================================================================================================
; _XmlFile2Json($sXmlFile, $sXsl = Default)
;
; Author:           TheXman (https://www.autoitscript.com/forum/profile/23259-thexman/?tab=field_core_pfield_11)
;
; Description:      Transform XML file to JSON
; Parameter(s):     $sXmlFile - A string containing a valid XML document file path.
;                   $sXsl     - [optional] A string containing the XSL stylesheet used for transform.
; Return Value(s):  Success   - A string containing the transformed JSON.
;                   Failure   - "" and sets @error to a non-zero value.
;                   @error      -1 = File does not exist
;                                1 = Unable to create XML object
;                                2 = Unable to create XSL object
;                                3 = Unable to parse XML. Make sure XML is valid.
;                                4 = Unable to parse XSL. Make sure XSL is valid.
;                                5 = XML Transform failed.  Make sure you are using a valid v1.0 stylesheet.
;
; Remarks:          MSXML 6.0, the COM component used to do the tranformations, only processes
;                   XSLT 1.0 stylesheets. If you pass a version 2.0+ stylesheet, you WILL get an
;                   error.
;
;                   The XSL stylesheet used by default came from:
;                   https://www.bjelic.net/2012/08/01/coding/convert-xml-to-json-using-xslt/
;                   MIT License - Copyright (c) 2012 Bojan Bjelic
;=================================================================================================

The transformation is done by doing an XML Transform using a xml-to-json XSL stylesheet.  If you want to use your own xml-to-json XSL stylesheet instead of the default one, then you can supply it in the 2nd parameter.  The only caveat is that all values are transformed to strings.  That means that numeric XML values will be returned as a strings.  For example, the numeric value 10.50 will be returned as "10.50".

The UDF comes with a couple of example scripts.  One example script, which is below, just shows a sample transformation using the included sample XML file.  The second example does the transformation and queries the transformed JSON for information.

 

Example-01 ( uses the included sample XML file, Books.xml )

expandcollapse popup

#AutoIt3Wrapper_AU3Check_Parameters=-w 3 -w 4 -w 5 -w 6 -d

#include <Constants.au3>
#include "xml2json.au3"
#include "jq.au3" ; (https://www.autoitscript.com/forum/files/file/502-jq-udf-a-powerful-flexible-json-processor/)


example()

Func example()
    Const $XML_FILE  = "books.xml"

    Local $hTimer = -1

    Local $sCmdOutput = "", _
          $sJson      = ""


    ;Initialize jq environment
    _jqInit("C:\Utils\JQ\jq-win64.exe") ;<== Path to jq exe
    If @error Then Exit MsgBox($MB_ICONERROR + $MB_TOPMOST, "ERROR", "Unable to find jq executable - @error = " & @error)

    $hTimer = TimerInit()

    ;Convert XML to JSON
    $sJson = _XmlFile2Json($XML_FILE)
    If @error Then Exit MsgBox($MB_ICONERROR + $MB_TOPMOST, "_xmlfile2json() Error", "@error = " & @error)
    ConsoleWrite(StringFormat("Elapsed time to transform XML to JSON: %.3f seconds", TimerDiff($hTimer) / 1000) & @CRLF)

    ;Pretty-print JSON
    $sCmdOutput = _jqPrettyPrintJson($sJson, "   ")
    If @error Then
        MsgBox($MB_ICONERROR + $MB_TOPMOST, "ERROR", "Pretty-print failed - @error = " & @error & " @extended = " & @extended)
        ConsoleWrite("ERROR:" & @CRLF & $sCmdOutput & @CRLF)
        Exit
    EndIf
    ConsoleWrite($sCmdOutput & @CRLF)
EndFunc

Output

Elapsed time to transform XML to JSON: 0.003 seconds
{
  "catalog": {
    "book": [
      {
        "id": "bk101",
        "author": "Gambardella, Matthew",
        "title": "XML Developer's Guide",
        "genre": "Computer",
        "price": "44.95",
        "publish_date": "2000-10-01",
        "description": "An in-depth look at creating applications with XML."
      },
      {
        "id": "bk102",
        "author": "Ralls, Kim",
        "title": "Midnight Rain",
        "genre": "Fantasy",
        "price": "5.95",
        "publish_date": "2000-12-16",
        "description": "A former architect battles corporate zombies, an evil sorceress, and her own childhood to become queen of the world."
      },
      {
        "id": "bk103",
        "author": "Corets, Eva",
        "title": "Maeve Ascendant",
        "genre": "Fantasy",
        "price": "5.95",
        "publish_date": "2000-11-17",
        "description": "After the collapse of a nanotechnology society in England, the young survivors lay the foundation for a new society."
      },
      {
        "id": "bk104",
        "author": "Corets, Eva",
        "title": "Oberon's Legacy",
        "genre": "Fantasy",
        "price": "5.95",
        "publish_date": "2001-03-10",
        "description": "In post-apocalypse England, the mysterious agent known only as Oberon helps to create a new life for the inhabitants of London. Sequel to Maeve Ascendant."
      },
      {
        "id": "bk105",
        "author": "Corets, Eva",
        "title": "The Sundered Grail",
        "genre": "Fantasy",
        "price": "5.95",
        "publish_date": "2001-09-10",
        "description": "The two daughters of Maeve, half-sisters, battle one another for control of England. Sequel to Oberon's Legacy."
      },
      {
        "id": "bk106",
        "author": "Randall, Cynthia",
        "title": "Lover Birds",
        "genre": "Romance",
        "price": "4.95",
        "publish_date": "2000-09-02",
        "description": "When Carla meets Paul at an ornithology conference, tempers fly as feathers get ruffled."
      },
      {
        "id": "bk107",
        "author": "Thurman, Paula",
        "title": "Splish Splash",
        "genre": "Romance",
        "price": "4.95",
        "publish_date": "2000-11-02",
        "description": "A deep sea diver finds true love twenty thousand leagues beneath the sea."
      },
      {
        "id": "bk108",
        "author": "Knorr, Stefan",
        "title": "Creepy Crawlies",
        "genre": "Horror",
        "price": "4.95",
        "publish_date": "2000-12-06",
        "description": "An anthology of horror stories about roaches, centipedes, scorpions and other insects."
      },
      {
        "id": "bk109",
        "author": "Kress, Peter",
        "title": "Paradox Lost",
        "genre": "Science Fiction",
        "price": "6.95",
        "publish_date": "2000-11-02",
        "description": "After an inadvertant trip through a Heisenberg Uncertainty Device, James Salway discovers the problems of being quantum."
      },
      {
        "id": "bk110",
        "author": "O'Brien, Tim",
        "title": "Microsoft .NET: The Programming Bible",
        "genre": "Computer",
        "price": "36.95",
        "publish_date": "2000-12-09",
        "description": "Microsoft's .NET initiative is explored in detail in this deep programmer's reference."
      },
      {
        "id": "bk111",
        "author": "O'Brien, Tim",
        "title": "MSXML3: A Comprehensive Guide",
        "genre": "Computer",
        "price": "36.95",
        "publish_date": "2000-12-01",
        "description": "The Microsoft MSXML3 parser is covered in detail, with attention to XML DOM interfaces, XSLT processing, SAX and more."
      },
      {
        "id": "bk112",
        "author": "Galos, Mike",
        "title": "Visual Studio 7: A Comprehensive Guide",
        "genre": "Computer",
        "price": "49.95",
        "publish_date": "2001-04-16",
        "description": "Microsoft Visual Studio 7 is explored in depth, looking at how Visual Basic, Visual C++, C#, and ASP+ are integrated into a comprehensive development environment."
      }
    ]
  }
}

Xml2Json UDF (2022-12-07).zip

Edited December 7, 2022 by TheXman