NewCFObjectMBSFromXML(XMLdata as CFBinaryDataMBS) as CFObjectMBS

dim f as FolderItem
dim t as TextInputStream
dim s as String
dim o as CFObjectMBS
dim d as CFDictionaryMBS

// get file name
f=GetFolderItem("CF XML Test.txt")
// open file
t=f.OpenAsTextFile
// Read String
s=t.ReadAll

// Create back
o=NewCFObjectMBSFromXML(NewCFBinaryDataMBSStr(s))

// now check if the dictionary we saved is there:
if o<>nil then
  if o isa CFDictionaryMBS then
    d=CFDictionaryMBS(o)
    MsgBox CFStringMBS(d.Value(NewCFStringMBS("Key"))).str
  end if
end if

Note that the CFObject returned is in most times a CFDictionary or a CFArray.
This function takes text and binary plist file content.

NewCFObjectMBSFromXML(XMLdata as MemoryBlock) as CFObjectMBS

Note that the CFObject returned is in most times a CFDictionary or a CFArray.
This function takes text and binary plist file content.

See also:

• NewCFObjectMBSFromXML(XMLdata as String) as CFObjectMBS

NewCFObjectMBSFromXML(XMLdata as String) as CFObjectMBS

Note that the CFObject returned is in most times a CFDictionary or a CFArray.
This function takes text and binary plist file content.

See also:

• NewCFObjectMBSFromXML(XMLdata as MemoryBlock) as CFObjectMBS