XML.au3 - BETA - Support Topic

[mLipok]

there is problem with 

appendChild($oProcessingInstruction)

I'll investigate ti more today.

[mLipok]

here is fix.

expandcollapse popup

Func _XMLCreateFile($sXML_FileFullPath, $sRoot, $bUTF8 = False, $iDOM_Version = Default)
    ; Error handler, automatic cleanup at end of function
    Local $oXML_COM_ErrorHandler = ObjEvent("AutoIt.Error", __XML_ComErrorHandler_UserFunction())
    #forceref $oXML_COM_ErrorHandler

    ; TODO $bUTF8 = False -- change to $iEncoding = $FO_UTF8_NOBOM
    If Not ($sXML_FileFullPath <> "" Or IsString($sXML_FileFullPath)) Then
        Return SetError($XMLWRAPPER_ERROR_PARAMETER, $XMLWRAPPER_EXT_DEFAULT, $XMLWRAPPER_RESULT_FAILURE)
    ElseIf FileExists($sXML_FileFullPath) Then
        Return SetError($XMLWRAPPER_ERROR_SAVE, $XMLWRAPPER_EXT_GENERAL, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    Local $oXmlDoc = _XML_CreateDOMDocument($iDOM_Version)
    If @error Then Return SetError(@error, @extended, $XMLWRAPPER_RESULT_FAILURE)

    Local $oProcessingInstruction = $oXmlDoc.createProcessingInstruction('xml', 'version="1.0"' & (($bUTF8) ? 'encoding="UTF-8"' : ''))
    If $oXmlDoc.parseError.errorCode Then
        Return SetError($XMLWRAPPER_ERROR_PARSE, $oXmlDoc.parseError.errorCode, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    $oXmlDoc.appendChild($oProcessingInstruction)
    If @error Then Return SetError($XMLWRAPPER_ERROR_NODEAPPEND, $NODE_PROCESSING_INSTRUCTION, $XMLWRAPPER_RESULT_FAILURE)

    Local $oXML_RootElement = $oXmlDoc.createElement($sRoot)
    $oXmlDoc.documentElement = $oXML_RootElement

    ; TODO use _XML_SaveToFile
    $oXmlDoc.save($sXML_FileFullPath)
    If @error Then Return SetError($XMLWRAPPER_ERROR_SAVE, $XMLWRAPPER_EXT_DEFAULT, $XMLWRAPPER_RESULT_FAILURE)

    If $oXmlDoc.parseError.errorCode Then
        Return SetError($XMLWRAPPER_ERROR_PARSE, $oXmlDoc.parseError.errorCode, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    Return SetError($XMLWRAPPER_ERROR_OK, $XMLWRAPPER_EXT_DEFAULT, $oXmlDoc)

EndFunc   ;==>_XMLCreateFile

 

[scila1996]

Did you check @error and @extended ?

Yeah , is error and return 0

[scila1996]

here is fix.

expandcollapse popup

Func _XMLCreateFile($sXML_FileFullPath, $sRoot, $bUTF8 = False, $iDOM_Version = Default)
    ; Error handler, automatic cleanup at end of function
    Local $oXML_COM_ErrorHandler = ObjEvent("AutoIt.Error", __XML_ComErrorHandler_UserFunction())
    #forceref $oXML_COM_ErrorHandler

    ; TODO $bUTF8 = False -- change to $iEncoding = $FO_UTF8_NOBOM
    If Not ($sXML_FileFullPath <> "" Or IsString($sXML_FileFullPath)) Then
        Return SetError($XMLWRAPPER_ERROR_PARAMETER, $XMLWRAPPER_EXT_DEFAULT, $XMLWRAPPER_RESULT_FAILURE)
    ElseIf FileExists($sXML_FileFullPath) Then
        Return SetError($XMLWRAPPER_ERROR_SAVE, $XMLWRAPPER_EXT_GENERAL, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    Local $oXmlDoc = _XML_CreateDOMDocument($iDOM_Version)
    If @error Then Return SetError(@error, @extended, $XMLWRAPPER_RESULT_FAILURE)

    Local $oProcessingInstruction = $oXmlDoc.createProcessingInstruction('xml', 'version="1.0"' & (($bUTF8) ? 'encoding="UTF-8"' : ''))
    If $oXmlDoc.parseError.errorCode Then
        Return SetError($XMLWRAPPER_ERROR_PARSE, $oXmlDoc.parseError.errorCode, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    $oXmlDoc.appendChild($oProcessingInstruction)
    If @error Then Return SetError($XMLWRAPPER_ERROR_NODEAPPEND, $NODE_PROCESSING_INSTRUCTION, $XMLWRAPPER_RESULT_FAILURE)

    Local $oXML_RootElement = $oXmlDoc.createElement($sRoot)
    $oXmlDoc.documentElement = $oXML_RootElement

    ; TODO use _XML_SaveToFile
    $oXmlDoc.save($sXML_FileFullPath)
    If @error Then Return SetError($XMLWRAPPER_ERROR_SAVE, $XMLWRAPPER_EXT_DEFAULT, $XMLWRAPPER_RESULT_FAILURE)

    If $oXmlDoc.parseError.errorCode Then
        Return SetError($XMLWRAPPER_ERROR_PARSE, $oXmlDoc.parseError.errorCode, $XMLWRAPPER_RESULT_FAILURE)
    EndIf

    Return SetError($XMLWRAPPER_ERROR_OK, $XMLWRAPPER_EXT_DEFAULT, $oXmlDoc)

EndFunc   ;==>_XMLCreateFile

 

it's still not working

[mLipok]

so you should Wait I publish today a new version

...minimum 10 hour.

Edited October 21, 2015 by mLipok

[scila1996]

so you should Wait I publish today a new version

...minimum 10 hour.

OK ! Thank you very much !

 

Ah , If can, you 'll combine ADO_CONSTANTS.au3 to XMLWrapperEx.au3 !

[mLipok]

new version:

    2015/10/22
    "1.1.1.08"
    . ADDED: Description for _XML_ErrorParser_GetDescription() - mLipok
    . ADDED: Description for _XML_Array_GetNodesProperties() - mLipok
    . Fixed: Function: _XMLCreateFile () - mLipok
    .        Isue with usage of Tenary Operator in $oXmlDoc.createProcessingInstruction("xml", 'version="1.0"' & (($bUTF8) ? ' encoding="UTF-8"' : ''))
    . Renamed: Function: _XMLCreateFile >> _XML_CreateFile - mLipok
    . Completed: Function: _XML_CreateFile - mLipok
    . !!! EXAMPLES FILE: New Example: Example_9__XML_CreateFile() - mLipok
    . !!! EXAMPLES FILE: Changed to Keep the changed Script Breaking Changes - mLipok
    . Renamed: Function: __XML_ComErrorHandler_UserFunction >> _XML_ComErrorHandler_UserFunction : is now normal function - not internal - mLipok
    . NEW: methode of transfer UDF internal COM Error Handler to the user function - mLipok
    .        just use _XML_ComErrorHandler_UserFunction() like in example
    .
    SCRIPT BREAKING CHANGES
    . Renamed: Enums: $XMLWRAPPER_RESULT_ >> $XML_RET_ - mLipok
    . Renamed: Enums: $XMLWRAPPER_EXT_ >> $XML_EXT_ - mLipok
    . Renamed: Enums: $XMLWRAPPER_ERROR_ >> $XML_ERR_ - mLipok
    . Renamed: Enums: $NODE_ >> $XML_NODE_ - mLipok
    . Removed: Parameter: _XML_CreateDOMDocument > $vComErrFunc - mLipok

Download link. 

[mLipok]

OK ! Thank you very much !

Check new version.

Example_9__XML_CreateFile()

 

Ah , If can, you 'll combine ADO_CONSTANTS.au3 to XMLWrapperEx.au3 !

No.
ADO_CONSTANTS.au3 is separate file as it is also part of other "WorkInProgess" UDF (long term project).

mLipok

 

[scila1996]

Yeah, it's working and i'am still testing . But i have a problem with the content of XML File

<?xml version="1.0" encoding="UTF-8"?>
<SETTINGS><MyNewNode First="1" Second="2">SomeText</MyNewNode></SETTINGS>

File is created

How to like this ?

 

<?xml version="1.0" encoding="UTF-8"?>
<SETTINGS>
    <MyNewNode First="1" Second="2">SomeText</MyNewNode>
</SETTINGS>

 

[mLipok]

use _XML_TIDY() before save.

 

[scila1996]

You are check few functions is not working .

- XMLCreateChildNode

- XMLCreateChildNodeWAttr

 

Edited October 22, 2015 by scila1996

[mLipok]

You are check few functions is not working .

- XMLCreateChildNode

- XMLCreateChildNodeWAttr

Please try to learn how to correctly post bug reports.
I mean if you say not working then you should post small example.
or at list the single line of code wich show how you use it 

and always return and @error and @extended  values

 

[scila1996]

I'am sorry . Because at that time, i'am styding at University School. The Result test script and @error code !I'am sorry . Because at that time, i'am styding at University . The Result test script and @error code !

#include "XMLWrapperEx.au3"

Local $oXMLDoc = _XML_CreateFile("settings.xml", "Settings", True)
Local $aAttr = ["type", "name"]
Local $aVal = ["Menu", "Test"]
MsgBox(64, "", (_XMLCreateChildNodeWAttr($oXMLDoc, "Settings", "Node0", $aAttr, $aVal) ? "true" : "false") & @CRLF & "@Error Code : " & @error) ; This Command Line is return "false : @error 4"
_XML_Load($oXMLDoc, _XML_TIDY($oXMLDoc))
_XML_SaveToFile($oXMLDoc, "settings.xml")

@Error Code : 4

Edited October 22, 2015 by scila1996

[mLipok]

minimum 12 hours waitng.

[scila1996]

minimum 12 hours waitng.

If can ! You are add "the Swap Node feature" 

[scila1996]

You are check for _XML_GetNodeAttributeValue . It's not working and return 0 @error code 7

XML File

<?xml version="1.0" encoding="Windows-1258" standalone="no"?><Settings>
    <node0 type="menu0"/>
</Settings>

This code !

Local $oXMLDoc = _XML_CreateDOMDocument()
_XML_Load($oXMLDoc, "settings.xml")
MsgBox(64, "", _XML_NodeExists($oXMLDoc, "Settings/node0")) ; Return 1 ok
Local $onode = _XML_SelectNodes($oXMLDoc, "Settings/node0")
MsgBox(64, "", _XML_GetNodeAttributeValue($onode, "type") & @CRLF & "@Error Code :" & @error) ; return 0 | @error code = 7

 

I think you so modify the _XML_GetNodeAttributeValue into

Func _XML_GetNodeAttributeValue(ByRef $oXmlDoc, $sAttribute_Name)

 

Edited October 23, 2015 by scila1996

[scila1996]

This function also not working

 

Local $oXMLDoc = _XML_CreateDOMDocument()
_XML_Load($oXMLDoc, "settings.xml")
Local $aAttr[0], $aVal[0]
MsgBox(64, "", _XMLGetAllAttrib($oXMLDoc, "Settings/Node0", $aAttr, $aVal) & @CRLF & "@Error Code " & @error) ; return 0 | @Error code = 22

XML File

<?xml version="1.0" encoding="Windows-1258" standalone="no"?><Settings>
    <node0 type="menu0" icon="shell32.dll" index="5"/>
</Settings>

 

Edited October 23, 2015 by scila1996

[scila1996]

Have a problem with _XML_DeleteNode

If delete one or more time it's to leave a "space line" at node just delete . Example :

<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?><Settings>
<node1/>
<node2/>
<node3/>
</Settings>

After delete "node1" and "node2" 

<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?><Settings>


<node3/>
</Settings>

Thereforce i was used _XML_TIDY to fix , but it's still to leave "space line" at that !

Edited October 23, 2015 by scila1996

[mLipok]

Thanks for the report will try to fix this weekend, as yesterday I was just tired, and go to sleep

 

Edited October 23, 2015 by mLipok

[scila1996]

Thanks for the report will try to fix this weekend, as yesterday I was just tired, and go to sleep

 

Me too, but at that time . I'am waiting for your's script  . I'll try find the errors and report to dev this script .