函數(shù)很簡單，目的僅為處理post返回的json字符，此時用這個函數(shù)感覺要比正則方便一點了把

;先來一個簡單的json數(shù)據(jù)格式
Local $sJson = '{"Name":"aopo","Gender":"BOY","Age":"22"}'
Local $sRead = _JsonRead($sJson, 'Gender')
MsgBox(0,0,$sRead)

;成員包括數(shù)組，解析方法如下
Local $sJson = '{"Name":"xiaoqiang","Gender":"BOY","Age":"22","Birthday":["1990","06","06"]}'
Local $sRead = _JsonRead($sJson, 'Birthday[2]');日
MsgBox(0,0,$sRead)

;成員的數(shù)組里包含一個或多個標準json數(shù)據(jù)
Local $sJson = '{"Name":"xiaoqiang","Gender":"BOY","Age":"22","Birthday":[{"Year":"1990","Month":"06","Day":"06"}]}'
Local $sRead = _JsonRead($sJson, 'Birthday[0].Month');月
MsgBox(0,0,$sRead)

;還是來點實戰(zhàn)把，類似下面的字符相信大家分析網(wǎng)頁時常遇到把？
;\u6807\u51C6json\u6570\u636E\u89E3\u6790\uFF0C\u4F60\u51C6\u5907\u597D\u4E86\u5417\uFF1F 
;下面是抓取WebQQ接收消息的數(shù)據(jù)包，也是標準的json格式，下面我們嘗試用函數(shù)來解析下：
Local $sJson = '{"retcode":0,"result":[{"poll_type":"message","value":{"msg_id":4989,"from_uin":1329660231,"to_uin":1393052988,"msg_id2":375774,"msg_type":9,"reply_ip":176882144,"time":1335604922,"content":[["font",{"size":12,"color":"808040","style":[0,0,0],"name":"\u5B8B\u4F53"}],"\u6807\u51C6json\u6570\u636E\u89E3\u6790\uFF0C\u4F60\u51C6\u5907\u597D\u4E86\u5417\uFF1F "]}}]}'
Local $sRead = _JsonRead($sJson, 'result[0].value.content[1]');取出被編碼的中文的源字符串
MsgBox(0,0,$sRead)

Func _JsonRead($sJson = "", $sMember = '')
        Local $sResult, $sCode = ""
        $sJson = StringRegExpReplace ($sJson, '[\r\n]+', '');去除換行
        $sCode &= 'function json2str()' & @CRLF
        $sCode &= '{' & @CRLF
        $sCode &= "var jsontext = '" & $sJson & "';"  & @CRLF
        $sCode &= 'var obj = eval("("+jsontext+")");' & @CRLF ; json2object
        $sCode &= 'var member = obj.' & $sMember & @CRLF ;取出信息
        $sCode &= 'return member' & @CRLF
        $sCode &= '}' & @CRLF
        ;ConsoleWrite($sCode)
        Local $oScript = ObjCreate("MSScriptControl.ScriptControl.1")
        $oScript.language = 'JavaScript'
        $oScript.AddCode($sCode)
        $sResult = $oScript.Run('json2str')
        $oScript = 0
        Return $sResult
EndFunc