在逗号分隔的项目列表上运行循环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.