(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

// Add some entries to a hashtable.
Dim hashTab As New Chilkat.Hashtable

Dim success As Boolean
success = hashTab.AddStr("aaa","111")
success = hashTab.AddStr("bbb","222")
success = hashTab.AddStr("ccc","333")

// Serialize to XML
Dim sb As New Chilkat.StringBuilder
success = hashTab.ToXmlSb(sb)
System.DebugLog(sb.GetAsString())
System.DebugLog("---")

// 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.
Dim hashTab2 As New Chilkat.Hashtable
success = hashTab2.AddFromXmlSb(sb)

// 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.
Dim sTable As New Chilkat.StringTable
success = hashTab2.GetKeys(sTable)

Dim i As Int32
i = 0
Dim numKeys As Int32
numKeys = sTable.Count
While i < numKeys
    Dim key As String
    key = sTable.StringAt(i)
    System.DebugLog(key + ": " + hashTab2.LookupStr(key))
    i = i + 1
Wend