|
#2
l85320012012-07-13 14:22
大侠们 帮忙啊！！！！！！
 |
我在解析一段从网页返回的json数据时，json里的字段貌似要区分大小写才能输出：
程序代码：Dim aa
aa = "{"weatherinfo":{"city":"北京","cityid":"101010100","temp":"28","WD":"东风","WS":"1级","SD":"56%","WSE":"1","time":"12:35","isRadar":"1","Radar":"JC_RADAR_AZ9010_JB"}}"
Set X = CreateObject("ScriptControl")
X.Language = "JScript"
s = "function j(s) { return eval('(' + s + ')'); }"
X.AddCode s
Set y = X.Run("j", aa)
MsgBox y.weatherinfo.city
MsgBox y.weatherinfo.Time '此处如果代码是 y.weatherinfo.time 就输出正确，但是系统自动将time的首字母大写，代码就变成y.weatherinfo.Time，此时不能输出数据
不知道我说得清楚不？？求教，如何让vb 随意书写代码大小写，而不是由它自作主张的自动大写首字母？？？？？ aa = "{"weatherinfo":{"city":"北京","cityid":"101010100","temp":"28","WD":"东风","WS":"1级","SD":"56%","WSE":"1","time":"12:35","isRadar":"1","Radar":"JC_RADAR_AZ9010_JB"}}"
Set X = CreateObject("ScriptControl")
X.Language = "JScript"
s = "function j(s) { return eval('(' + s + ')'); }"
X.AddCode s
Set y = X.Run("j", aa)
MsgBox y.weatherinfo.city
MsgBox y.weatherinfo.Time '此处如果代码是 y.weatherinfo.time 就输出正确，但是系统自动将time的首字母大写，代码就变成y.weatherinfo.Time，此时不能输出数据
