清單

在 Progress 4GL 中有許多用於處理逗號（或其他字元）分隔列表的函式和方法。

NUM-ENTRIES 返回列表中的條目數。你可以選擇指定分隔符，逗號是預設值

NUM-ENTRIES（字串[，分隔符]）

使用逗號，預設分隔符：

DEFINE VARIABLE cList AS CHARACTER   NO-UNDO.

cList = "Goodbye,cruel,world!".

DISPLAY NUM-ENTRIES(cList). //3

使用另一個分隔符，semilcolon：

DEFINE VARIABLE cList AS CHARACTER   NO-UNDO.

cList = "Goodbye;cruel;world!".

DISPLAY NUM-ENTRIES(cList, ";"). //3

ENTRY - function - 返回列表中的指定條目

通常起始位置是 1，而不是 0！

ENTRY（條目，列表[，分隔符]）。

DEFINE VARIABLE cList AS CHARACTER   NO-UNDO.

cList = "Goodbye,cruel,world!".

DISPLAY ENTRY(2, cList). //cruel

ENTRY - 方法 - 在列表中指定指定條目的值

ENTRY（條目，列表[，分隔符]）=值

DEFINE VARIABLE cList AS CHARACTER   NO-UNDO.

cList = "Goodbye,cruel,world!".

ENTRY(1, cList) = "Hello".
ENTRY(2, cList) = "nice".

MESSAGE REPLACE(cList, ",", " ") VIEW-AS ALERT-BOX. //Hello nice world!

LOOKUP - 檢查特定條目的列表。返回它的條目。

如果列表中不存在該字串，則查詢將返回 0

LOOKUP（字串，列表[，分隔符]）

DEFINE VARIABLE cList AS CHARACTER   NO-UNDO.

cList = "Hello,nice,world!".

MESSAGE LOOKUP("nice", cList) VIEW-AS ALERT-BOX. //2
MESSAGE LOOKUP("cruel", cList) VIEW-AS ALERT-BOX. //0