如何使用 Progress 4GL 从嵌套 json 文件中检索数据值

Question

如何从下面的json对象中获取示例：“JournalNum”的值

{ "参数": { "ds": { "GLJrnHed": [ { "公司": "EPIC06", } ] } }

我的非嵌套 JSON 代码如下

TJsonObject = CAST(oResponse:Entity, JsonObject). OP-JOURNAL-NUM = INTEGER(TJsonObject:getJsonText("公司")).

在这种情况下，它将不起作用，因为 JournalNum 没有直接在 JSON 中打开。

我只需要这个字段，因此通过 read-json 将所有数据转移到临时表中是一个昂贵的选择。

Answer 1

你必须在兔子洞里走很长的路

TJsonObject = CAST(oResponse:Entity, JsonObject). 

OP-JOURNAL-NUM = TJsonObject:GetJsonObject ("parameters"):GetJsonObject ("ds"):GetJsonArray ("GLJrnHed"):GetJsonObject (1):GetCharacter ("Company").