比如：[{"count":0,"diagnosisId":29212,"diagnosticIcdCode":"","diagnosticName":"36、 46可疑龋","discount":0},{"count":0,"diagnosisId":54077,"diagnosticIcdCode":"","diagnosticName":"就你那几句话","discount":0}]  如何转到数组？

[此贴子已经被作者于2018-12-24 11:51编辑过]

要转换那些内容，请举例说明

VFP9代码
CLEAR
TEXT TO cStr NOSHOW TEXTMERGE
[{"count":0,"diagnosisId":29212,"diagnosticIcdCode":"","diagnosticName":"36、 46可疑龋","discount":0},{"count":0,"diagnosisId":54077,"diagnosticIcdCode":"","diagnosticName":"就你那几句话","discount":0}]
ENDTEXT
cStr = CHRTRAN(cStr, '["]', "")
FOR i = 1 TO OCCURS("{", cStr)
    lcStr = ALINES(aa, STREXTRACT(cStr, "{", "}", I), ",")
    LOCAL bb[ALEN(aa)]
    *LIST MEMORY LIKE aa
    FOR ii = 1 TO ALEN(aa, 1)
        bb[ii] = GETWORDNUM(aa[ii], 2, ":")
    ENDFOR
    LIST MEMORY LIKE bb
ENDFOR

[此贴子已经被作者于2018-12-24 12:26编辑过]

你好，你这个方法可以的，有没有直接用JSON的方法来得到的，类似下面这样的，我不会写
local loJs as MSScriptControl.ScriptControl

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
lma1=ALLTRIM(thisform.edit1.Value)

loJs.AddCode('var json1 = '+lma1)
Json1 = loJs.CodeObject.json1

lma2=Json1.length
FOR i=1 TO lma2
    WAIT WINDOW JsonIo.get(Json1, "o.[1]")

能解决问题的方法就是好方法。不要好高骛远。

谢谢！

版主果然厉害

分享一个VFP处理JSON的类:
使用例子:
* Examples:
*
* set procedure json additive
* oPerson = json_decode(' { "name":"Ignacio" , "lastname":"Gutierrez", "age":33 } ')
* if not empty(json_getErrorMsg())
*    ? 'Error in decode:'+json_getErrorMsg())
*    return
* endif
* ? oPerson.get('name') , oPerson.get('lastname')
*
*
* oJson = newobject('json','json.prg')
* oCustomer = oJson.decode( ' { "name":"Ignacio" , "lastname":"Gutierrez", "age":33 } ')
* ? oJson.encode(oCustomer)
* ? oCustomer.get('name')
* ? oCustomer.get('lastname')
*

* obj = oJson.decode('{"jsonrpc":"1.0", "id":1, "method":"sumArray", "params":[3.1415,2.14,10],"version":1.0}')
* ? obj.get('jsonrpc'), obj._jsonrpc
* ? obj.get('id'), obj._id
* ? obj.get('method'), obj._method
* ? obj._Params.array[1], obj._Params.get(1)

好东西