主题：关于json解析对象中含有type的冲突解决？

如题:

以下解析为json对象data

调用data.type时，与狐表内置的type属性冲突，应该怎么解决？

{
    "id": "0000000000000000000000000000000000000000",
    "type": "file",
    "name": "test1.c",
    "size": 0
},

补充：输入data.type,type总会自动更改为"Type"，大小写问题造成调用失败，手动强制更改保存后重新打开编辑，又会自动变为大写了

目前找到解决方法为，不知还有更好方法？

str=str.Replace("""" & "type" & """" & ": " & """","""" & "lx" & """" & ": " & """")

data.[type] 

测试还是不行，重新打开编辑又自动变为data.[Type] 

测试没有问题，大小写不敏感的，data.[Type] 一样可以用

确实会报错呢，如下

此主题相关图片如下：360反馈意见截图16581127103920.jpg

只有替换的那种方法，又或者是，换一种方式读取json

 

dim str as string = "{""type"": ""file"", ""size"": 0}"

msgbox(str)
str = str.replace("""type"":", """tp"":")
Dim data As object
Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", str)
End With

msgbox(data.tp)

 

http://www.baidu.com/baidu?wd=c%23+json&tn=monline_4_dg