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