回复 9楼 sdta
感谢感谢!领教了。
回复 10楼 吹水佬
感谢吹版!另外请教一个问题。一个变量能存多少字符?
CREATE CURSOR tt (f1 c(10),f2 I) INSERT INTO tt VALUES ("abcd", 123) INSERT INTO tt VALUES ("ABCD", 456) cJson = '' SCAN cJson = cJson + ',{"f1":"' + ALLTRIM(f1) + '","f2":' + TRANSFORM(f2) + '}' ENDSCAN cJson = '{"tt":[' + SUBSTR(cJson,2) + ']}' ? cJson
jsCode = "var json=" + STRCONV(FILETOSTR("解析的JSON.txt"),11) js = CREATEOBJECT("ScriptControl") js.Language = "JavaScript" js.AddCode(jsCode) json = js.CodeObject.json ? json.output.message && "message": "成功" CREATE CURSOR tt (id v(20), hilistCode v(30), hilistName v(120), updtTime v(20)) FOR i=0 TO json.output.data.data.length-1 INSERT INTO tt VALUES (js.eval("json.output.data.data["+TRANSFORM(i)+"].id"),; js.eval("json.output.data.data["+TRANSFORM(i)+"].hilistCode"),; js.eval("json.output.data.data["+TRANSFORM(i)+"].hilistName"),; js.eval("json.output.data.data["+TRANSFORM(i)+"].updtTime")) ENDFOR SELECT * FROM tt
[此贴子已经被作者于2023-4-10 10:53编辑过]