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

转载请注明：赫非域 » T100——对JSON、ARRAY的遍历读写