AutoIt Français

Code : Tout sélectionner

    ;~ http://msdn.microsoft.com/en-us/library ... 84%29.aspx
#include <Array.au3>
    $LePetitRobert = ObjCreate("Scripting.Dictionary")
    _c(IsObj($LePetitRobert))

    $LePetitRobert.add("vache", "meuuuh")
    $LePetitRobert.add("oiseau", "cuicui")
    $LePetitRobert.add("silence !!", "...")

    MsgBox(0,"",$LePetitRobert.Item("oiseau"))
    MsgBox(0,"",$LePetitRobert.Key("meuuuh")) ;pas de retour echec

    for $item In $LePetitRobert
        _c($item)
    Next

    _c("------")

    _c($LePetitRobert.Item("vache"))
    _c($LePetitRobert.Item("silence !!"))
    _c($LePetitRobert.Item("oiseau"))
    _c($LePetitRobert.Key("...")) ;pas de retour echec
    Func _c($str)
        ConsoleWrite(">>" & $str & @CRLF)
    EndFunc
    $aa = $LePetitRobert.keys
   $bb = $LePetitRobert.items
      Local $cc[$LePetitRobert.Count][2]
   For $i = 0 To $LePetitRobert.Count - 1
        $cc[$i][0] = $aa[$i]
        $cc[$i][1] = $bb[$i]
   Next
_ArrayDisplay($cc)
   $key = "oiseau"
   If $LePetitRobert.exists($key) Then
       MsgBox(0,"","key  " & $LePetitRobert.exists($key))
   Else
       MsgBox(0,"","key  " & $LePetitRobert.exists($key))
   EndIf

Code : Tout sélectionner

#Include <Array.au3>

$sd = ObjCreate("Scripting.Dictionary")

$sd.add("vache", "meuuuh")
$sd.add("oiseau", "cuicui")
$sd.add("silence !!", "...")

$sd.add("chèvre", "") 
$sd.Key("chèvre") = "mouton"   ; <= là ça marche parce que la clé existe
Msgbox(0, "", "chèvre>mouton : " & $sd.Exists("mouton"))  ; <= la clé est bien renommée
$asd1 = _list($sd)
_ArrayDisplay($asd1, "$asd1")

$sd.Remove("mouton")

$sd.Key("cochon") = "mouton"   ; <= marche pas
Msgbox(0, "", "cochon>mouton : " & $sd.Exists("mouton"))  ; <= la clé n'existe pas et n'est pas créée
$asd2 = _list($sd)
_ArrayDisplay($asd2, "$asd2")

Func _list($dico)
    Local $keys = $dico.Keys
    Local $items = $dico.Items
    Local $count = $dico.Count
    Local $ret[$count+1][2] 
    $ret[0][0] = $count
    For $i = 1 To $count
        $ret[$i][0] = $keys[$i-1]
        $ret[$i][1] = $items[$i-1]
    Next
    Return $ret
EndFunc