progress-4gl - 如何在 Progress 4GL 的目录中列出文本文件？

Question

我在 C 盘有一个文件夹，里面包含 1000 个 txt 文件，我想获取所有这些 txt 文件的列表。我怎样才能得到这个清单？

Answer 1

使用该OS-DIR()功能。

例如：

DEFINE STREAM dirlist.
DEFINE VARIABLE filename AS CHARACTER FORMAT "x(30)" NO-UNDO.

INPUT STREAM dirlist FROM OS-DIR(".").

REPEAT:   
    IMPORT STREAM dirlist filename.
    DISPLAY filename.
END.

INPUT CLOSE.

Answer 2

例如：ipcPath = "C:\temp\

DEFINE INPUT PARAMETER ipcPath  AS CHARACTER   NO-UNDO.
DEFINE VARIABLE chFiles        AS CHARACTER   NO-UNDO.

INPUT FROM OS-DIR(ipcPath).
REPEAT:
    IMPORT UNFORMATTED chImport NO-ERROR.
    DISPLAY chFiles FORMAT "X(75)".
END.
INPUT CLOSE.

chFiles 是一个空格分隔的列表，包含文件名、路径和“F”或“D”标签。

Answer 3

我有一个目录工具程序，它使开发人员能够使用文件系统做各种有趣的事情。您可以在此处获取代码：http: //communities.progress.com/pcom/docs/DOC-16578