VFP中使用JSON一法

Local loJs, JsonIo, JsonT

loJs = CreateObject("MSScriptControl.ScriptControl")

loJs.Language = "JavaScript"

loJs.AddCode('var jsonio = {get:function(o, p){return eval(p);}}')

JsonIo = loJs.CodeObject.jsonio

loJs.AddCode('var json1 = {"age":24, "Age":124, "email":["aa", "bb"], "Aa":{"a":"一", "A":"二"}}')

Json1 = loJs.CodeObject.json1

Activate Screen 

? JsonIo.get(Json1, "o.age"), JsonIo.get(Json1, "o.Age")

? JsonIo.get(Json1, "o.email[0]"), JsonIo.get(Json1, "o.email[1]")

? JsonIo.get(Json1, "o.Aa.a"), JsonIo.get(Json1, "o.Aa.A")