運行一個逗號分隔的項目列表上的循環前進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.