progress-4gl - 在逗号分隔的项目进度列表上运行循环 4GL

Question

def var cList as char no-undo.
assign cList = "one,two,three,four".
<Loop> cList
logic...
</Loop>

在 char 变量中遍历逗号分隔列表的最佳方法是什么，以便在此示例中我将得到一个然后两个然后三个然后四个。

Answer 1

大声笑我仍然记得我认为的一些进步。

DEF VAR i AS INT NO-UNDO.
&SCOPED-DEFINE LIST "one,two,three,four"

DO i=1 TO NUM-ENTRIES({&LIST}):
  MESSAGE SUBSTITUTE("LIST[&1] is &2", i, ENTRY(i, {&LIST})).
END.