T100——对JSON、ARRAY的遍历读写

jsonArray是[]的，json是{}的

例如

JSON：

{
"Id":{"value":"da30d681-fab0-4e80-9dd8-137b2b4470ea","text":"da30d681-fab0-4e80-9dd8-137b2b4470ea","css":{}}
}

T100写JSON：

DEFINE l_json    util.JSONObject
DEFINE rec RECORD
value STRING,
text  STRING,
css   util.JSONObject
END RECORD
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