
之前的文章介绍了在VFP中对原生JSON对象的序列化和反序列化。但是,在应用时,有时我们需要依据一定的条件来构造JSON。如果用传统的拼接JSON字符串,代码可能非常复杂,对于结构复杂的JSON对象。
所以,有了下面的版本:
Clear
Set Classlib To JSONHelper.VCX
Local loJSONHelper As JSONHelper Of JSONHelper.VCX
Local loRoot, loArr
m.loJSONHelper = Createobject("JSONHelper")
m.loRoot = m.loJSONHelper.Createobject()
m.loRoot._set([姓名], "张三")
m.loRoot._set([年龄], 30)
m.loArr = m.loJSONHelper.CreateArray()
m.loArr._push("FoxPro")
m.loArr._push("JSON")
m.loRoot1 = m.loJSONHelper.Createobject()
m.loRoot1._set([姓名], "李四")
m.loRoot1._set([年龄], 40)
m.loArr._push(m.loRoot1)
m.loRoot._set([tags], m.loArr)
? "序列化:"
? m.loJSONHelper.stringify(loRoot, .T.)
?
m.loRoot.姓名 = [李四]
m.loRoot.年龄 = 35
m.loRoot.tags._set(0, "Visual FoxPro")
m.loRoot.tags.item(2).姓名 = "xxxxxx"
? "修改后:"
? m.loJSONHelper.stringify(loRoot, .T.)输出:

完美!