如何在 OpenEdge Progress 4gl 中遍历整数的 JsonArray？答案

【问题标题】：How to traverse through JsonArray of Integers in OpenEdge Progress 4gl?如何在 OpenEdge Progress 4gl 中遍历整数的 JsonArray？
【发布时间】：2021-05-17 20:24:37
【问题描述】：

我有一个整数的 JsonArray 示例 - [1000, 1001, 1002,.....,1100]。

我需要遍历这个JsonArray，这样我才能一个一个调用我的函数。

我试过了

function Amen returns JsonObject (input code as JsonArray, input lang as char):

def var Amenities as JsonObject.
    Amenities = new JsonObject().
    Amenities:Add("Code", code).
    for first inditaal where string(inditaal.indi-nr) = string(code) and inditaal.taal-code = lang no-lock.
    end.
        Amenities:Add("Description", inditaal.inditaal-oms).

return Amenities.

end function.

define variable code as JsonArray no-undo init [10400, 10239, 10205].

def var result as JsonArray.
result = new JsonArray().

def var lineObj as JsonArray.

do i = 1 to code :length:
    lineObj = new JsonArray().
    lineObj = code :GetJsonArray(i).
    result:Add(Amen(lineObj)).
end.

我无法从 JsonArray 代码中获取整数。还有其他方法吗？

由于我是这种语言的新手，所以我无法这样做，而且我在文档中也找不到任何内容。请帮忙！

【问题讨论】：

标签： arrays json openedge progress-4gl

【解决方案1】：

要将整数范围（ABL 数组）添加到 JsonArray，请使用 Add 方法。

要遍历 JsonArray，迭代到 JsonArray 的 Length 并使用 GetInteger(i) 检索单个值。

USING Progress.Json.ObjectModel.* FROM PROPATH . 

define variable code as INTEGER EXTENT no-undo init [10400, 10239, 10205].

DEFINE VARIABLE oJsonArray AS JsonArray NO-UNDO . 
DEFINE VARIABLE i AS INTEGER     NO-UNDO.

oJsonArray = NEW JsonArray () . 

oJsonArray:ADD (code) . 

do i = 1 to oJsonArray:length:
    message oJsonArray:GetInteger (i) .
end.

【讨论】：