T100——对JSON、ARRAY的遍历读写
jsonArray是[]的，json是{}的
例如
SRE实战 互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。JSON：
{ "Id":{"value":"da30d681-fab0-4e80-9dd8-137b2b4470ea","text":"da30d681-fab0-4e80-9dd8-137b2b4470ea","css":{}} }
T100写JSON：
DEFINE l_json util.JSONObject LET l_json = util.JSONObject.parse(p_str) FOR i=1 TO l_json.getLength() IF l_json.name(i) = "Id" THEN LET rec.value = p_id LET rec.text = p_id LET rec.css = util.JSONObject.parse("{}") CALL l_json.put(l_json.name(i),rec) CONTINUE FOR END IF END FOR
T100读JSON：
###获取STRING里的内码Id DEFINE p_str STRING ### DEFINE l_json util.JSONObject DEFINE l_json2 util.JSONObject DEFINE i INTEGER DEFINE r_id STRING INITIALIZE r_id TO NULL IF NOT cl_null(p_str) THEN #解析JSON LET l_json = util.JSONObject.parse(p_str) FOR i=1 TO l_json.getLength() #遍历1 IF l_json.name(i) = "Id" THEN LET l_json2 = l_json.get(l_json.name(i)) LET r_id = l_json2.get("value") EXIT FOR END IF END FOR RETURN r_id ELSE RETURN NULL END IF
T100读JSONARRAY：
DEFINE l_data util.JSONArray DEFINE l_json util.JSONObject DEFINE l_json2 util.JSONObject #解析JSON DISPLAY l_resp LET l_json = util.JSONObject.parse(l_resp) FOR i=1 TO l_json.getLength() #遍历1 IF l_json.name(i) = "data" THEN LET l_data = l_json.get(l_json.name(i)) #获取到data的jsonArray IF NOT l_data.getLength() > 0 THEN EXIT FOR END IF FOR k=1 TO l_data.getLength() LET l_json2 = l_data.get(k) #用JsonObject接收JsonArray.get IF l_json2.get("name") = p_name THEN LET r_id = l_json2.get("id") EXIT FOR END IF END FOR END IF END FOR
更多精彩
