AutoIt

Serialize / Deserialize Hashtable to/from XML

Demonstrates how to seralize / deserialize a Hashtable to/from XML.

Note: This example requires Chilkat v9.5.0.64 or later.

AutoIt

; Note: This example requires Chilkat v9.5.0.64 or later.

; Add some entries to a hashtable.
$oHashTab = ObjCreate("Chilkat.Hashtable")

$oHashTab.AddStr("aaa","111")
$oHashTab.AddStr("bbb","222")
$oHashTab.AddStr("ccc","333")

; Serialize to XML
$oSb = ObjCreate("Chilkat.StringBuilder")
$oHashTab.ToXmlSb($oSb)
ConsoleWrite($oSb.GetAsString() & @CRLF)
ConsoleWrite("---" & @CRLF)

; The output is as follows.  Each hash table entry
; is contained in an "e" node.  The entry's key
; is in the "k" node, and the value in the "v" node.

; <?xml version="1.0" encoding="utf8-8"?>
; <hashtable>
; <e><k>aaa</k><v>111</v></e>
; <e><k>bbb</k><v>222</v></e>
; <e><k>ccc</k><v>333</v></e>
; </hashtable>
; 

; Now load (deserialize) into a new hash table.
$oHashTab2 = ObjCreate("Chilkat.Hashtable")
$oHashTab2.AddFromXmlSb($oSb)

; Get the hash table keys, and lookup each (to show 
; that the hash table was correctly deserialized).
; The GetKeys method can return the keys in any order.
$oSTable = ObjCreate("Chilkat.StringTable")
$oHashTab2.GetKeys($oSTable)

Local $i = 0
Local $iNumKeys = $oSTable.Count
While $i < $iNumKeys
Local $sKey = $oSTable.StringAt($i)
    ConsoleWrite($sKey & ": " & $oHashTab2.LookupStr($sKey) & @CRLF)
    $i = $i + 1
Wend