XML.au3 - BETA - Support Topic

[R0G]

Example of _XML_DeleteNode Function!

; #FUNCTION# ====================================================================================================================
; Name ..........: _XML_DeleteNode
; Description ...: Deletes XML Node based on XPath input from root node.
; Syntax ........: _XML_DeleteNode(ByRef $oXmlDoc, $sXPath)
; Parameters ....: $oXmlDoc   - [in/out] an object. A valid DOMDocument or IXMLDOMElement object.
;                  $sXPath    - a string value. The XML tree path from root node (root/child/child..)
; Return values .: On Success - Returns $XML_RET_SUCCESS
;                  On Failure - Returns $XML_RET_FAILURE and sets the @error flag to non-zero (look in #Region XML.au3 - ERROR Enums)
;                  |0 - No error
;                  |1 - Deletion error
;                  |2 - No object passed
; Author ........: Eltorro
; Modified ......: mLipok
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; [yes/no]
; ===============================================================================================================================

XML Delete Example!

expandcollapse popup

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
#Tidy_Parameters=/sort_funcs /reel

#include <array.au3>
#include <date.au3>
#include <MsgBoxConstants.au3>
#include "XML.au3"

; This COM Error Hanlder will be used globally (excepting inside UDF Functions)
Global $oErrorHandler = ObjEvent("AutoIt.Error", ErrFunc_CustomUserHandler_MAIN)
#forceref $oErrorHandler

; This is SetUp for the transfer UDF internal COM Error Handler to the user function
_XML_ComErrorHandler_UserFunction(ErrFunc_CustomUserHandler_XML)

XMLDeleteNode()

#Region XMLWrapperEx__Examples.au3 - Function

Func XMLDeleteNode()

    Local $oXMLDoc = _XML_CreateDOMDocument(Default)
    If @error Then
        MsgBox(0, '_XML_CreateDOMDocument @error:', XML_My_ErrorParser(@error))
    Else
        ; now you can add EVENT Handler
        Local $oXMLDOM_EventsHandler = ObjEvent($oXMLDoc, "XML_DOM_EVENT_")
        #forceref $oXMLDOM_EventsHandler

        ; Load file to $oXmlDoc
        Local $sXmlFile = @DesktopDir & "\Example_XML_DeleteNode.xml"
        _XML_Load($oXMLDoc, $sXmlFile)
        If @error Then
            MsgBox(0, '_XML_Load @error:', XML_My_ErrorParser(@error))
        Else
            Local $sXmlBefore = _XML_TIDY($oXMLDoc)
            MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, 'Before', $sXmlBefore)

            ;Here we delete the node
            _XML_DeleteNode($oXMLDoc,"/Root/Child")

            ; simple display $oXmlDoc - for checking only
            Local $sXmlAfterTidy = _XML_TIDY($oXMLDoc)
            If @error Then
                MsgBox(0, '_XML_TIDY @error:', XML_My_ErrorParser(@error))
            Else
                _XML_LoadXML($oXMLDoc, $sXmlAfterTidy)

                ;FileDelete(@LocalAppDataDir & "\R0G\Keep Safe\Keep_Safe.xml")
                ;_XML_SaveToFile($oXMLDoc,@LocalAppDataDir & "\R0G\Keep Safe\Keep_Safe.xml")
                MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, 'After', $sXmlAfterTidy)
            EndIf
        EndIf
    EndIf

EndFunc    ;==>Example_8a__XML_GetNodeAttributeValue

#Region XMLWrapperEx__Examples.au3 - XML DOM Error/Event Handling

Func ErrFunc_CustomUserHandler_MAIN($oError)

    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : MainScript ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc    ;==>ErrFunc_CustomUserHandler_MAIN

Func ErrFunc_CustomUserHandler_XML($oError)

    ; here is declared another path to UDF au3 file
    ; thanks to this with using _XML_ComErrorHandler_UserFunction(ErrFunc_CustomUserHandler_XML)
    ;  you get errors which after pressing F4 in SciTE4AutoIt you goes directly to the specified UDF Error Line
    ConsoleWrite(@ScriptDir & '\XMLWrapperEx.au3' & " (" & $oError.scriptline & ") : UDF ==> COM Error intercepted ! " & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc    ;==>ErrFunc_CustomUserHandler_XML

; #FUNCTION# ====================================================================================================================
; Name ..........: XML_My_ErrorParser
; Description ...: Changing $XML_ERR_ ... to human readable description
; Syntax ........: XML_My_ErrorParser($iXMLWrapper_Error, $iXMLWrapper_Extended)
; Parameters ....: $iXMLWrapper_Error   - an integer value.
;                  $iXMLWrapper_Extended           - an integer value.
; Return values .: description as string
; Author ........: mLipok
; Modified ......:
; Remarks .......: This function is only example of how user can parse @error and @extended to human readable description
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func XML_My_ErrorParser($iXMLWrapper_Error, $iXMLWrapper_Extended = 0)
    Local $sErrorInfo = ''
    Switch $iXMLWrapper_Error
        Case $XML_ERR_SUCCESS
            $sErrorInfo = '$XML_ERR_SUCCESS=' & $XML_ERR_SUCCESS & @CRLF & 'All is ok.'
        Case $XML_ERR_GENERAL
            $sErrorInfo = '$XML_ERR_GENERAL=' & $XML_ERR_GENERAL & @CRLF & 'The error which is not specifically defined.'
        Case $XML_ERR_COMERROR
            $sErrorInfo = '$XML_ERR_COMERROR=' & $XML_ERR_COMERROR & @CRLF & 'COM ERROR OCCURED. Check @extended and your own error handler function for details.'
        Case $XML_ERR_ISNOTOBJECT
            $sErrorInfo = '$XML_ERR_ISNOTOBJECT=' & $XML_ERR_ISNOTOBJECT & @CRLF & 'No object passed to function'
        Case $XML_ERR_INVALIDDOMDOC
            $sErrorInfo = '$XML_ERR_INVALIDDOMDOC=' & $XML_ERR_INVALIDDOMDOC & @CRLF & 'Invalid object passed to function'
        Case $XML_ERR_INVALIDATTRIB
            $sErrorInfo = '$XML_ERR_INVALIDATTRIB=' & $XML_ERR_INVALIDATTRIB & @CRLF & 'Invalid object passed to function.'
        Case $XML_ERR_INVALIDNODETYPE
            $sErrorInfo = '$XML_ERR_INVALIDNODETYPE=' & $XML_ERR_INVALIDNODETYPE & @CRLF & 'Invalid object passed to function.'
        Case $XML_ERR_OBJCREATE
            $sErrorInfo = '$XML_ERR_OBJCREATE=' & $XML_ERR_OBJCREATE & @CRLF & 'Object can not be created.'
        Case $XML_ERR_NODECREATE
            $sErrorInfo = '$XML_ERR_NODECREATE=' & $XML_ERR_NODECREATE & @CRLF & 'Can not create Node - check also COM Error Handler'
        Case $XML_ERR_NODEAPPEND
            $sErrorInfo = '$XML_ERR_NODEAPPEND=' & $XML_ERR_NODEAPPEND & @CRLF & 'Can not append Node - check also COM Error Handler'
        Case $XML_ERR_PARSE
            $sErrorInfo = '$XML_ERR_PARSE=' & $XML_ERR_PARSE & @CRLF & 'Error: with Parsing objects, .parseError.errorCode=' & $iXMLWrapper_Extended & ' Use _XML_ErrorParser_GetDescription() for get details.'
        Case $XML_ERR_PARSE_XSL
            $sErrorInfo = '$XML_ERR_PARSE_XSL=' & $XML_ERR_PARSE_XSL & @CRLF & 'Error with Parsing XSL objects .parseError.errorCode=' & $iXMLWrapper_Extended & ' Use _XML_ErrorParser_GetDescription() for get details.'
        Case $XML_ERR_LOAD
            $sErrorInfo = '$XML_ERR_LOAD=' & $XML_ERR_LOAD & @CRLF & 'Error opening specified file.'
        Case $XML_ERR_SAVE
            $sErrorInfo = '$XML_ERR_SAVE=' & $XML_ERR_SAVE & @CRLF & 'Error saving file.'
        Case $XML_ERR_PARAMETER
            $sErrorInfo = '$XML_ERR_PARAMETER=' & $XML_ERR_PARAMETER & @CRLF & 'Wrong parameter passed to function.'
        Case $XML_ERR_ARRAY
            $sErrorInfo = '$XML_ERR_ARRAY=' & $XML_ERR_ARRAY & @CRLF & 'Wrong array parameter passed to function. Check array dimension and conent.'
        Case $XML_ERR_XPATH
            $sErrorInfo = '$XML_ERR_XPATH=' & $XML_ERR_XPATH & @CRLF & 'XPath syntax error - check also COM Error Handler.'
        Case $XML_ERR_NONODESMATCH
            $sErrorInfo = '$XML_ERR_NONODESMATCH=' & $XML_ERR_NONODESMATCH & @CRLF & 'No nodes match the XPath expression'
        Case $XML_ERR_NOCHILDMATCH
            $sErrorInfo = '$XML_ERR_NOCHILDMATCH=' & $XML_ERR_NOCHILDMATCH & @CRLF & 'There is no Child in nodes matched by XPath expression.'
        Case $XML_ERR_NOATTRMATCH
            $sErrorInfo = '$XML_ERR_NOATTRMATCH=' & $XML_ERR_NOATTRMATCH & @CRLF & 'There is no such attribute in selected node.'
        Case $XML_ERR_DOMVERSION
            $sErrorInfo = '$XML_ERR_DOMVERSION=' & $XML_ERR_DOMVERSION & @CRLF & 'DOM Version: ' & 'MSXML Version ' & $iXMLWrapper_Extended & ' or greater required for this function'
        Case $XML_ERR_EMPTYCOLLECTION
            $sErrorInfo = '$XML_ERR_EMPTYCOLLECTION=' & $XML_ERR_EMPTYCOLLECTION & @CRLF & 'Collections of objects was empty'
        Case $XML_ERR_EMPTYOBJECT
            $sErrorInfo = '$XML_ERR_EMPTYOBJECT=' & $XML_ERR_EMPTYOBJECT & @CRLF & 'Object is empty'
        Case Else
            $sErrorInfo = '=' & $iXMLWrapper_Error & @CRLF & 'NO ERROR DESCRIPTION FOR THIS @error'
    EndSwitch

    Local $sExtendedInfo = ''
    Switch $iXMLWrapper_Error
        Case $XML_ERR_COMERROR, $XML_ERR_NODEAPPEND, $XML_ERR_NODECREATE
            $sExtendedInfo = 'COM ERROR NUMBER (@error returned via @extended) =' & $iXMLWrapper_Extended
        Case $XML_ERR_PARAMETER
            $sExtendedInfo = 'This @error was fired by parameter: #' & $iXMLWrapper_Extended
        Case Else
            Switch $iXMLWrapper_Extended
                Case $XML_EXT_DEFAULT
                    $sExtendedInfo = '$XML_EXT_DEFAULT=' & $XML_EXT_DEFAULT & @CRLF & 'Default - Do not return any additional information'
                Case $XML_EXT_XMLDOM
                    $sExtendedInfo = '$XML_EXT_XMLDOM=' & $XML_EXT_XMLDOM & @CRLF & '"Microsoft.XMLDOM" related Error'
                Case $XML_EXT_DOMDOCUMENT
                    $sExtendedInfo = '$XML_EXT_DOMDOCUMENT=' & $XML_EXT_DOMDOCUMENT & @CRLF & '"Msxml2.DOMDocument" related Error'
                Case $XML_EXT_XSLTEMPLATE
                    $sExtendedInfo = '$XML_EXT_XSLTEMPLATE=' & $XML_EXT_XSLTEMPLATE & @CRLF & '"Msxml2.XSLTemplate" related Error'
                Case $XML_EXT_SAXXMLREADER
                    $sExtendedInfo = '$XML_EXT_SAXXMLREADER=' & $XML_EXT_SAXXMLREADER & @CRLF & '"MSXML2.SAXXMLReader" related Error'
                Case $XML_EXT_MXXMLWRITER
                    $sExtendedInfo = '$XML_EXT_MXXMLWRITER=' & $XML_EXT_MXXMLWRITER & @CRLF & '"MSXML2.MXXMLWriter" related Error'
                Case $XML_EXT_FREETHREADEDDOMDOCUMENT
                    $sExtendedInfo = '$XML_EXT_FREETHREADEDDOMDOCUMENT=' & $XML_EXT_FREETHREADEDDOMDOCUMENT & @CRLF & '"Msxml2.FreeThreadedDOMDocument" related Error'
                Case $XML_EXT_XMLSCHEMACACHE
                    $sExtendedInfo = '$XML_EXT_XMLSCHEMACACHE=' & $XML_EXT_XMLSCHEMACACHE & @CRLF & '"Msxml2.XMLSchemaCache." related Error'
                Case $XML_EXT_STREAM
                    $sExtendedInfo = '$XML_EXT_STREAM=' & $XML_EXT_STREAM & @CRLF & '"ADODB.STREAM" related Error'
                Case $XML_EXT_ENCODING
                    $sExtendedInfo = '$XML_EXT_ENCODING=' & $XML_EXT_ENCODING & @CRLF & 'Encoding related Error'
                Case Else
                    $sExtendedInfo = '$iXMLWrapper_Extended=' & $iXMLWrapper_Extended & @CRLF & 'NO ERROR DESCRIPTION FOR THIS @extened'
            EndSwitch
    EndSwitch
    ; return back @error and @extended for further debuging
    Return SetError($iXMLWrapper_Error, $iXMLWrapper_Extended, _
            '@error description:' & @CRLF & _
            $sErrorInfo & @CRLF & _
            @CRLF & _
            '@extended description:' & @CRLF & _
            $sExtendedInfo & @CRLF & _
            '')

EndFunc    ;==>XML_My_ErrorParser
#EndRegion  XMLWrapperEx__Examples.au3 - XML DOM Error/Event Handling

Example XML file attached.

Example_XML_DeleteNode.xml

Edited November 5, 2016 by R0G

[mLipok]

On 24.10.2016 at 0:20 PM, BigBook said:

Thx a lot, mLipok. 

I think i use the wrapper the wrong way. Would be glad if you give me a kick in the right direction.

First you should learn how to declare and use Arrays in AutoIt.

This is wrong way:

$aDeptCodeTemp[0][0] = "DEPT_CODE"
$aDeptCodeTemp[0][1] = "1"

Here is one of proper way:

; Array declaration
    Local $aDeptCodeTemp[1][2]
    ; Array assignig values
    $aDeptCodeTemp[0][0] = "DEPT_CODE"
    $aDeptCodeTemp[0][1] = "1"

btw.
Did you try with new UDF version ?

 

[mLipok]

30 minutes ago, R0G said:

Could someone post an example of _XML_DeleteNode Function, keep getting Deletion error?

small change here:

;~  Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc_CustomUserHandler")
    Local $oErrorHandler = ObjEvent("AutoIt.Error", ErrFunc_CustomUserHandler_XML)

and ....

Func _EXAMPLE_DeleteNode()

    Local $oErrorHandler = ObjEvent("AutoIt.Error", ErrFunc_CustomUserHandler_XML)
    #forceref $oErrorHandler

    ; first you must create $oXmlDoc object
    Local $oXMLDoc = _XML_CreateDOMDocument()

    ; Load file to $oXmlDoc
    Local $sXmlFile = (@ScriptDir & "\XML_Example_XML_Files\Test_DeleteNode_R0G.xml")
    _XML_Load($oXMLDoc, $sXmlFile)
    If @error Then Return SetError(@error, @extended, $XML_RET_FAILURE)

    Local $Return = _XML_DeleteNode($oXMLDoc, '/Test/Child')
    If @error Then MsgBox($MB_ICONERROR, 'DeleteNode', '$Return=' & $Return & @CRLF & '@error = ' & @error & @CRLF & '@extended = ' & @extended)
    MsgBox(0, 'Return', $Return)

    _XML_Misc_Viewer($oXMLDoc)

EndFunc   ;==>_EXAMPLE_DeleteNode

---

btw.

Local $sXmlFile = (@ScriptDir & "\XML_Example_XML_Files\Test_DeleteNode_R0G.xml")

is your test.xml file.

 

Edited November 5, 2016 by mLipok

[R0G]

I had already figured it out and changed my post to an example of _XML_DeleteNode 

But thanks anyways @mLipok

;~  Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc_CustomUserHandler")
    Local $oErrorHandler = ObjEvent("AutoIt.Error", ErrFunc_CustomUserHandler_XML)

I did not realize, thanks.

[R0G]

Can a function be added to remove empty lines in xml file?

Edited November 5, 2016 by R0G

[mLipok]

Did you try _XML_TIDY()    ?

[R0G]

4 hours ago, mLipok said:

Did you try _XML_TIDY()    ?

Yes, after using _XML_DeleteNode() function an empty line is left. _XML_TIDY() does not remove it. Try it.

Local $oXMLDoc = _XML_CreateDOMDocument(Default)
If @error Then
    MsgBox(0, '_XML_CreateDOMDocument @error:', XML_My_ErrorParser(@error))
Else
    ; now you can add EVENT Handler
    Local $oXMLDOM_EventsHandler = ObjEvent($oXMLDoc, "XML_DOM_EVENT_")
    #forceref $oXMLDOM_EventsHandler

    ; Load file to $oXmlDoc
    Local $sXmlFile = @Desktopdir & "\Test.xml"
    _XML_Load($oXMLDoc, $sXmlFile)
    If @error Then
        MsgBox(0, '_XML_Load @error:', XML_My_ErrorParser(@error))
    Else
        _XML_DeleteNode($oXMLDoc,"/Root/Child")

        Local $sXmlAfterTidy = _XML_TIDY($oXMLDoc)
        If @error Then
            MsgBox(0, '_XML_TIDY @error:', XML_My_ErrorParser(@error))
        Else
             _XML_LoadXML($oXMLDoc, $sXmlAfterTidy)
             FileDelete(@Desktopdir & "\Test.xml")
             _XML_SaveToFile($oXMLDoc,@Desktopdir & "\Test.xml")
             MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, 'Keep_Safe.xml', $sXmlAfterTidy)
        EndIf
    EndIf
EndIf

XML attached below

Test.xml

[mLipok]

I'm on party.

Try regexp to remove duplicated EOL.

[R0G]

This does the trick

Local $sContent = FileRead(@DesktopDir & "\Test.xml")
$sContent = StringRegExpReplace($sContent, '(?m:^\s*[\r\n])', '')
FileDelete(@Desktopdir & "\Test.xml")
FileWrite(@DesktopDir & "\Test.xml", $sContent)

 

[Nhardel]

Downloaded XML_1.1.1.12   Tried to run XML_Examples.au3   Received the following error.

Variable used without being declared.:
ElseIf StringInStr(ObjName($oXML, $OBJ_NAME), 'DOMDocument') = 0 Then
ElseIf StringInStr(ObjName($oXML, ^ ERROR

Error occurs at line 1947 but anticipate that this variable is used in other places.

Where should I place the declaration of this variable?

[mLipok]

Which AutoIt version you are using ?

This constants is declared in: AutoItConstants.au3

Edited February 27, 2017 by mLipok

[Nhardel]

I was on Version 3.3.12.0 so I hadn't thought anything about updating.   But I did because I was out of options.  Now running 3.3.14.2   This resolved the issue with the constant.  Not sure why it worked but hey, it works.  Thanks.

[mLipok]

I use some constants form Au3.3.14.x so, I must change the header, or add some special UDF with this all const which I use.

 

[krupa]

Hello. I have problem with _XML_GetValue

XML

<?xml version="1.0"?>
<catalog>
    <book id="bk101">
        <author>Gambardella, Matthew</author>
        <title>XML Developers Guide</title>
    </book>
    <book id="bk102">
        <author>Ralls, Kim</author>
        <title>Midnight Rain</title>
    </book>

</catalog>

Code

Global $aRET, $iRET, $sRET
Local $iRET = _XML_CreateDOMDocument(Default)
_XML_Load($iRET, $sXML_File)
$aRET = _XML_GetNodesCount($iRET, "/catalog/book")
ConsoleWrite("Group(s):      $aRET = " & $aRET & "; @error = " & @error & "; @extended = " & @extended & @LF)
$aNames = _XML_GetValue($iRET, "/catalog/book/author")
$aTaxCountries = _XML_GetValue($iRET, "/catalog/book/title")
Global $aData[$aRET + 1][3] = [[$aRET, "", ""]]
For $n = 1 To $aRET
    Local $oNode_Selected_SingleOne = _XML_SelectSingleNode($iRET, '/catalog/book[' & $n & ']')
    Local $sAttribute_Value = _XML_GetNodeAttributeValue($oNode_Selected_SingleOne, 'id')
    $aData[$n][0] = $aNames[$n]
    $aData[$n][1] = $aTaxCountries[$n]
    $aData[$n][2] = $sAttribute_Value
Next

_ArrayDisplay($aData, "$aData")

That gives me only one value and two attributevalues

I change function from XML.au3

Func _XML_Array_AddName(ByRef $avArray, $sValue)
    Local $iUBound = UBound($avArray)
    If $iUBound Then
        ; Cache function call results, as function calls are expensive compared to variable lookups.
        ReDim $avArray[$iUBound + 1]
        $avArray[$iUBound - 1] = $sValue
        Return SetError($XML_ERR_SUCCESS, $XML_EXT_DEFAULT, $XML_RET_SUCCESS)
    EndIf

    Return SetError($XML_ERR_GENERAL, $XML_EXT_DEFAULT, $XML_RET_FAILURE)
EndFunc   ;==>_XML_Array_AddName

to 

Func _XML_Array_AddName(ByRef $avArray, $sValue)
    Local $iUBound = UBound($avArray)
    If $iUBound Then
        ; Cache function call results, as function calls are expensive compared to variable lookups.
        ReDim $avArray[$iUBound + 1]
        $avArray[$iUBound] = $sValue
        Return SetError($XML_ERR_SUCCESS, $XML_EXT_DEFAULT, $XML_RET_SUCCESS)
    EndIf

    Return SetError($XML_ERR_GENERAL, $XML_EXT_DEFAULT, $XML_RET_FAILURE)
EndFunc   ;==>_XML_Array_AddName

and now all working.

I made mistake in my code or its a bug in this function?

Edited March 2, 2017 by krupa

[mLipok]

This is a bug.
Thanks for your finding.
 

 

[mLipok]

New version:
 

Quote

    2017/03/05
    "1.1.1.13"
    . Added: Function: _XML_Base64Encode() - mLipok
    . Added: Function: _XML_Base64Decode() - mLipok
    . Fixed: bug in: _XML_Array_AddName() - krupa
    . Changed: $ADOENUM_ad* >>> $ADO_ad** - to be coherent with ADO.au3 UDF - mLipok

You can download here: XML.au3 UDF Download

 

Edited March 5, 2017 by mLipok

[VAN0]

Can someone please help parse xml that created by schtasks

expandcollapse popup

#include <XML.au3>
#include <Array.au3>

$iPID = Run(@ComSpec & ' /C schtasks /query /xml /TN "\Microsoft\Windows\Maintenance\WinSAT"', @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
$sOutput = StdoutRead($iPID)

;gives parce error
$sOutput = StringReplace($sOutput, '<?xml version="1.0" encoding="UTF-16"?>', '')
$oXMLDoc = _XML_CreateDOMDocument(Default)
_XML_LoadXML($oXMLDoc, $sOutput)
MsgBox(0, "XML", _XML_TIDY($oXMLDoc))
$nodes = _XML_SelectNodes($oXMLDoc, '/Task')
If @error Then
    MsgBox(0, '_XML_SelectNodes @error:', XML_My_ErrorParser(@error))
Else
    _ArrayDisplay(_XML_Array_GetNodesProperties($nodes))
EndIf




; #FUNCTION# ====================================================================================================================
; Name ..........: XML_My_ErrorParser
; Description ...: Changing $XML_ERR_ ... to human readable description
; Syntax ........: XML_My_ErrorParser($iXMLWrapper_Error, $iXMLWrapper_Extended)
; Parameters ....: $iXMLWrapper_Error   - an integer value.
;                  $iXMLWrapper_Extended           - an integer value.
; Return values .: description as string
; Author ........: mLipok
; Modified ......:
; Remarks .......: This function is only example of how user can parse @error and @extended to human readable description
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func XML_My_ErrorParser($iXMLWrapper_Error, $iXMLWrapper_Extended = 0)
    Local $sErrorInfo = ''
    Switch $iXMLWrapper_Error
        Case $XML_ERR_SUCCESS
            $sErrorInfo = '$XML_ERR_SUCCESS=' & $XML_ERR_SUCCESS & @CRLF & 'All is ok.'
        Case $XML_ERR_GENERAL
            $sErrorInfo = '$XML_ERR_GENERAL=' & $XML_ERR_GENERAL & @CRLF & 'The error which is not specifically defined.'
        Case $XML_ERR_COMERROR
            $sErrorInfo = '$XML_ERR_COMERROR=' & $XML_ERR_COMERROR & @CRLF & 'COM ERROR OCCURED. Check @extended and your own error handler function for details.'
        Case $XML_ERR_ISNOTOBJECT
            $sErrorInfo = '$XML_ERR_ISNOTOBJECT=' & $XML_ERR_ISNOTOBJECT & @CRLF & 'No object passed to function'
        Case $XML_ERR_INVALIDDOMDOC
            $sErrorInfo = '$XML_ERR_INVALIDDOMDOC=' & $XML_ERR_INVALIDDOMDOC & @CRLF & 'Invalid object passed to function'
        Case $XML_ERR_INVALIDATTRIB
            $sErrorInfo = '$XML_ERR_INVALIDATTRIB=' & $XML_ERR_INVALIDATTRIB & @CRLF & 'Invalid object passed to function.'
        Case $XML_ERR_INVALIDNODETYPE
            $sErrorInfo = '$XML_ERR_INVALIDNODETYPE=' & $XML_ERR_INVALIDNODETYPE & @CRLF & 'Invalid object passed to function.'
        Case $XML_ERR_OBJCREATE
            $sErrorInfo = '$XML_ERR_OBJCREATE=' & $XML_ERR_OBJCREATE & @CRLF & 'Object can not be created.'
        Case $XML_ERR_NODECREATE
            $sErrorInfo = '$XML_ERR_NODECREATE=' & $XML_ERR_NODECREATE & @CRLF & 'Can not create Node - check also COM Error Handler'
        Case $XML_ERR_NODEAPPEND
            $sErrorInfo = '$XML_ERR_NODEAPPEND=' & $XML_ERR_NODEAPPEND & @CRLF & 'Can not append Node - check also COM Error Handler'
        Case $XML_ERR_PARSE
            $sErrorInfo = '$XML_ERR_PARSE=' & $XML_ERR_PARSE & @CRLF & 'Error: with Parsing objects, .parseError.errorCode=' & $iXMLWrapper_Extended & ' Use _XML_ErrorParser_GetDescription() for get details.'
        Case $XML_ERR_PARSE_XSL
            $sErrorInfo = '$XML_ERR_PARSE_XSL=' & $XML_ERR_PARSE_XSL & @CRLF & 'Error with Parsing XSL objects .parseError.errorCode=' & $iXMLWrapper_Extended & ' Use _XML_ErrorParser_GetDescription() for get details.'
        Case $XML_ERR_LOAD
            $sErrorInfo = '$XML_ERR_LOAD=' & $XML_ERR_LOAD & @CRLF & 'Error opening specified file.'
        Case $XML_ERR_SAVE
            $sErrorInfo = '$XML_ERR_SAVE=' & $XML_ERR_SAVE & @CRLF & 'Error saving file.'
        Case $XML_ERR_PARAMETER
            $sErrorInfo = '$XML_ERR_PARAMETER=' & $XML_ERR_PARAMETER & @CRLF & 'Wrong parameter passed to function.'
        Case $XML_ERR_ARRAY
            $sErrorInfo = '$XML_ERR_ARRAY=' & $XML_ERR_ARRAY & @CRLF & 'Wrong array parameter passed to function. Check array dimension and conent.'
        Case $XML_ERR_XPATH
            $sErrorInfo = '$XML_ERR_XPATH=' & $XML_ERR_XPATH & @CRLF & 'XPath syntax error - check also COM Error Handler.'
        Case $XML_ERR_NONODESMATCH
            $sErrorInfo = '$XML_ERR_NONODESMATCH=' & $XML_ERR_NONODESMATCH & @CRLF & 'No nodes match the XPath expression'
        Case $XML_ERR_NOCHILDMATCH
            $sErrorInfo = '$XML_ERR_NOCHILDMATCH=' & $XML_ERR_NOCHILDMATCH & @CRLF & 'There is no Child in nodes matched by XPath expression.'
        Case $XML_ERR_NOATTRMATCH
            $sErrorInfo = '$XML_ERR_NOATTRMATCH=' & $XML_ERR_NOATTRMATCH & @CRLF & 'There is no such attribute in selected node.'
        Case $XML_ERR_DOMVERSION
            $sErrorInfo = '$XML_ERR_DOMVERSION=' & $XML_ERR_DOMVERSION & @CRLF & 'DOM Version: ' & 'MSXML Version ' & $iXMLWrapper_Extended & ' or greater required for this function'
        Case $XML_ERR_EMPTYCOLLECTION
            $sErrorInfo = '$XML_ERR_EMPTYCOLLECTION=' & $XML_ERR_EMPTYCOLLECTION & @CRLF & 'Collections of objects was empty'
        Case $XML_ERR_EMPTYOBJECT
            $sErrorInfo = '$XML_ERR_EMPTYOBJECT=' & $XML_ERR_EMPTYOBJECT & @CRLF & 'Object is empty'
        Case Else
            $sErrorInfo = '=' & $iXMLWrapper_Error & @CRLF & 'NO ERROR DESCRIPTION FOR THIS @error'
    EndSwitch

    Local $sExtendedInfo = ''
    Switch $iXMLWrapper_Error
        Case $XML_ERR_COMERROR, $XML_ERR_NODEAPPEND, $XML_ERR_NODECREATE
            $sExtendedInfo = 'COM ERROR NUMBER (@error returned via @extended) =' & $iXMLWrapper_Extended
        Case $XML_ERR_PARAMETER
            $sExtendedInfo = 'This @error was fired by parameter: #' & $iXMLWrapper_Extended
        Case Else
            Switch $iXMLWrapper_Extended
                Case $XML_EXT_DEFAULT
                    $sExtendedInfo = '$XML_EXT_DEFAULT=' & $XML_EXT_DEFAULT & @CRLF & 'Default - Do not return any additional information'
                Case $XML_EXT_XMLDOM
                    $sExtendedInfo = '$XML_EXT_XMLDOM=' & $XML_EXT_XMLDOM & @CRLF & '"Microsoft.XMLDOM" related Error'
                Case $XML_EXT_DOMDOCUMENT
                    $sExtendedInfo = '$XML_EXT_DOMDOCUMENT=' & $XML_EXT_DOMDOCUMENT & @CRLF & '"Msxml2.DOMDocument" related Error'
                Case $XML_EXT_XSLTEMPLATE
                    $sExtendedInfo = '$XML_EXT_XSLTEMPLATE=' & $XML_EXT_XSLTEMPLATE & @CRLF & '"Msxml2.XSLTemplate" related Error'
                Case $XML_EXT_SAXXMLREADER
                    $sExtendedInfo = '$XML_EXT_SAXXMLREADER=' & $XML_EXT_SAXXMLREADER & @CRLF & '"MSXML2.SAXXMLReader" related Error'
                Case $XML_EXT_MXXMLWRITER
                    $sExtendedInfo = '$XML_EXT_MXXMLWRITER=' & $XML_EXT_MXXMLWRITER & @CRLF & '"MSXML2.MXXMLWriter" related Error'
                Case $XML_EXT_FREETHREADEDDOMDOCUMENT
                    $sExtendedInfo = '$XML_EXT_FREETHREADEDDOMDOCUMENT=' & $XML_EXT_FREETHREADEDDOMDOCUMENT & @CRLF & '"Msxml2.FreeThreadedDOMDocument" related Error'
                Case $XML_EXT_XMLSCHEMACACHE
                    $sExtendedInfo = '$XML_EXT_XMLSCHEMACACHE=' & $XML_EXT_XMLSCHEMACACHE & @CRLF & '"Msxml2.XMLSchemaCache." related Error'
                Case $XML_EXT_STREAM
                    $sExtendedInfo = '$XML_EXT_STREAM=' & $XML_EXT_STREAM & @CRLF & '"ADODB.STREAM" related Error'
                Case $XML_EXT_ENCODING
                    $sExtendedInfo = '$XML_EXT_ENCODING=' & $XML_EXT_ENCODING & @CRLF & 'Encoding related Error'
                Case Else
                    $sExtendedInfo = '$iXMLWrapper_Extended=' & $iXMLWrapper_Extended & @CRLF & 'NO ERROR DESCRIPTION FOR THIS @extened'
            EndSwitch
    EndSwitch
    ; return back @error and @extended for further debuging
    Return SetError($iXMLWrapper_Error, $iXMLWrapper_Extended, _
            '@error description:' & @CRLF & _
            $sErrorInfo & @CRLF & _
            @CRLF & _
            '@extended description:' & @CRLF & _
            $sExtendedInfo & @CRLF & _
            '')

EndFunc    ;==>XML_My_ErrorParser

 

For some reason it returns error 21 - "Collections of objects was empty"

Is it because the <Task> tag has additional attributes?

[krupa]

I have problem with this XML file

<?xml version="1.0" encoding="UTF-8"?>
<tns:JPK xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:tns="http://jpk.mf.gov.pl/wzor/2016/03/09/03095/" xmlns:etd="http://crd.gov.pl/xml/schematy/dziedzinowe/mf/2016/01/25/eD/DefinicjeTypy/">
    <tns:Faktura typ="G">
        <tns:P_6>2017-02-16</tns:P_6>
        <tns:P_13_1>2249</tns:P_13_1>
        <tns:P_14_1>517.27</tns:P_14_1>
        <tns:P_13_2>0</tns:P_13_2>
        <tns:P_14_2>0</tns:P_14_2>
        <tns:P_13_3>0</tns:P_13_3>
        <tns:P_14_3>0</tns:P_14_3>
        <tns:P_13_4>0</tns:P_13_4>
        <tns:P_14_4>0</tns:P_14_4>
        <tns:P_13_5>0</tns:P_13_5>
        <tns:P_14_5>0</tns:P_14_5>
        <tns:P_15>2766.27</tns:P_15>
        <tns:P_16>false</tns:P_16>
        <tns:P_17>false</tns:P_17>
        <tns:P_18>false</tns:P_18>
        <tns:P_19>false</tns:P_19>
        <tns:P_20>false</tns:P_20>
        <tns:P_21>false</tns:P_21>
        <tns:P_23>false</tns:P_23>
        <tns:P_106E_2>false</tns:P_106E_2>
        <tns:P_106E_3>false</tns:P_106E_3>
     </tns:Faktura>
</tns:JPK>

I can't get any nodes or values. 

Thanks

[mLipok]

Krypa JPK  

I know what you are doing , and I'm glad you are using for this AutoIt.

My clinets also need to generate XML files for JPK  but they have CRM or factoring APP which generate this file and sending them to correct goverment web services.

I will look at your problem at the evening.

 

[krupa]

I'm trying write script for  import/export data between few accountant programs. Best way is use JPK, almost all programs have export data to this format file.

If I delete "tns:" in data all is working. But I dont know how to get XPath when is used prefix "tns"