B4X

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.

B4X

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

'  Add some entries to a hashtable.
Dim hashTab As ChilkatHashtable
hashTab.Initialize

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

'  Serialize to XML
Dim sb As ChilkatStringBuilder
sb.Initialize
hashTab.ToXmlSb(sb)
Log(sb.GetAsString)
Log("---")

'  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 ChilkatHashtable
hashTab2.Initialize
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 ChilkatStringTable
sTable.Initialize
hashTab2.GetKeys(sTable)

Dim i As Int = 0
Dim numKeys As Int = sTable.Count
Do While i < numKeys
    Dim key As String = sTable.StringAt(i)
    Log(key & ": " & hashTab2.LookupStr(key))
    i = i + 1
Loop