AutoIt Français

Code : Tout sélectionner

<Project name="Mon Projet">
    <File path="c:\Config.au3"></File>
    <File path="c:\Globals.au3"></File>
    <File path="c:\Db.au3"></File>
    <Folder name="Dossier">
        <File path="c:\GUI.au3"></File>
        <File path="c:\Lang.au3"></File>
        <File path="c:\Notif.au3"></File>
        <File path="c:\Server.au3"></File>
    </Folder>
</Project>

Code : Tout sélectionner

Local $fName = @ScriptDir & '\Matwawich.xml'
Local $aXML = _XML_ElementsToArry($fName)
Local $xmldoc = ObjCreate( 'Microsoft.XMLDOM' )
If Not IsObj($xmldoc) Then
    SetError ( 1 )
    Return -1
EndIf
$xmldoc.async = False
If $xmldoc.load($sXMLFilePath) Then
    _LoadNodes($xmldoc.childNodes, 0)
Else
    MsgBox(0, '', 'tararatata je le charge pas le XML ...')
    Return SetError(1)
EndIf
    
Func _LoadNodes($aNode, $Indent)
    Local $xNode
    $Indent +=  2
    For $xNode In $aNode
;       If $xNode.nodeType = "NODE_TEXT" Then
            ConsoleWrite("Identation " &  $Indent & " => " & $xNode.parentNode.nodeName & _
                $xNode.nodeName  & "  " & $xNode.nodetype & " : " & $xNode.nodeValue & @CRLF)
;       EndIf
        If $xNode.hasChildNodes Then        ;recusivité sur les child
            _LoadNodes($xNode.childNodes, $Indent)
        EndIf
    Next
EndFunc
 

Code : Tout sélectionner

; Créé par ZDS
; Compatible avec AutoIt v3.3.6.1

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>

#Region Fonctions de traitement XML
Func XML_getProjects($file)
    Local $resultat[1] = [0], $XML = ObjCreate("Microsoft.XMLDOM")
    If IsObj($XML) And FileExists($file) Then
        $XML.Load($file)
        Local $projects = $XML.SelectNodes("/Project")
        For $project In $projects
            $resultat[0] = $resultat[0] + 1
            ReDim $resultat[$resultat[0]+1]
            $resultat[$resultat[0]] = $project
        Next
    EndIf
    Return $resultat
EndFunc
Func XML_getFolders($node)
    Local $resultat[1] = [0]
    Local $folders = $node.SelectNodes("Folder")
    For $folder In $folders
        $resultat[0] = $resultat[0] + 1
        ReDim $resultat[$resultat[0]+1]
        $resultat[$resultat[0]] = $folder
    Next
    Return $resultat
EndFunc
Func XML_getFiles($node)
    Local $resultat[1] = [0]
    Local $files = $node.SelectNodes("File")
    For $file In $files
        $resultat[0] = $resultat[0] + 1
        ReDim $resultat[$resultat[0]+1]
        $resultat[$resultat[0]] = $file
    Next
    Return $resultat
EndFunc
Func XML_getDisplayName($node)
    Switch StringUpper($node.nodeName())
    Case "PROJECT"
        Return $node.getAttribute("name")
    Case "FOLDER"
        Return $node.getAttribute("name")
    Case "FILE"
        Return $node.getAttribute("path")
    EndSwitch
    Return ""
EndFunc
#EndRegion

Example()

Func Example()
    Local $GUI = GUICreate("Treeview-XML", 350, 415)
    Local $treeview = GUICtrlCreateTreeView(6, 6, 300, 350)
    buildTreeview($treeview, @ScriptDir & "\" & "Treeview-XML.xml")
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
            ; ???
        EndSelect
    WEnd
    GUIDelete()
EndFunc

Func buildTreeview($treeview, $file)
    Local $projects = XML_getProjects($file)
    For $i = 1 To $projects[0]
        Local $project = $projects[$i]
        Local $control = GUICtrlCreateTreeViewItem(XML_getDisplayName($project), $treeview)
        buildSubTreeview($control, $project)
    Next
EndFunc

Func buildSubTreeview($control, $node)
    Local $folders = XML_getFolders($node)
    For $i = 1 To $folders[0]
        Local $folder = $folders[$i]
        Local $subcontrol = GUICtrlCreateTreeViewItem(XML_getDisplayName($folder), $control)
        buildSubTreeview($subcontrol, $folder)
    Next
    Local $files = XML_getFiles($node)
    For $i = 1 To $files[0]
        Local $file = $files[$i]
        Local $subcontrol = GUICtrlCreateTreeViewItem(XML_getDisplayName($file), $control)
    Next
EndFunc