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

Answer 2

DEFINE VARIABLE ch-list  AS CHARACTER NO-UNDO. 
DEFINE VARIABLE i-cnt  AS INTEGER  NO-UNDO. 
DEFINE VARIABLE i-entry  AS INTEGER  NO-UNDO. 

ASSIGN 
    ch-list = "one,two,three,four" 
    . 

ASSIGN 
    i-cnt = NUM-ENTRIES(ch-list) 
    . 

REPEAT i-entry = 1 TO i-cnt: 

    DISPLAY 
     ENTRY(i-entry, ch-list) 
     WITH DOWN. 

END. 

Answer 3

DEFINE VARIABLE iNumEntries AS INTEGER NO-UNDO. 

DEFINE VARIABLE iLoop AS INTEGER NO-UNDO. 

def var cList as char no-undo. 

assign cList = "one,two,three,four". 

ASSIGN iNumEntries = NUM-ENTRIES(cList,","). 

DO iLoop = 1 TO iNumEntries: 

     MESSAGE ENTRY(iLoop,cList,",") VIEW-AS ALERT-BOX. 

     /* You can use display, assign to variable, etc */ 

END.