Visual FoxPro

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.

Visual FoxPro

LOCAL loHashTab
LOCAL loSb
LOCAL loHashTab2
LOCAL loSTable
LOCAL i
LOCAL lnNumKeys
LOCAL lcKey

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

* Add some entries to a hashtable.
loHashTab = CreateObject('Chilkat.Hashtable')

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

* Serialize to XML
loSb = CreateObject('Chilkat.StringBuilder')
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('Chilkat.Hashtable')
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('Chilkat.StringTable')
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