(Lianja) 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.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

// Add some entries to a hashtable.
loHashTab = createobject("CkHashtable")

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

// Serialize to XML
loSb = createobject("CkStringBuilder")
loHashTab.ToXmlSb(loSb)
? loSb.GetAsString()
? "---"

// 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.
loHashTab2 = createobject("CkHashtable")
loHashTab2.AddFromXmlSb(loSb)

// 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.
loSTable = createobject("CkStringTable")
loHashTab2.GetKeys(loSTable)

i = 0
lnNumKeys = loSTable.Count
do while i < lnNumKeys
    lcKey = loSTable.StringAt(i)
    ? lcKey + ": " + loHashTab2.LookupStr(lcKey)
    i = i + 1
enddo


release loHashTab
release loSb
release loHashTab2
release loSTable