Как перечислить текстовые файлы в каталоге в Progress 4GL?

У меня есть папка на диске c, содержащая 1000 текстовых файлов, я хочу получить список всех этих текстовых файлов. Как я могу получить этот список?


progress-4gl
person Community    schedule 21.08.2009    source источник

Ответы (3)


arrow_upward
10
arrow_downward

Используйте функцию 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.
person Dave Webb    schedule 21.08.2009

arrow_upward
0
arrow_downward

Например: 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».

person Demian Kasier    schedule 16.11.2011
comment
очень похоже на ответ Дэйва Уэбба - person AquaAlex; 07.11.2013

arrow_upward
0
arrow_downward

У меня есть программа для работы с каталогами, которая позволяет разработчику делать всевозможные забавные вещи с файловыми системами. Вы можете получить код здесь: http://communities.progress.com/pcom/docs/DOC-16578

person Tim Kuehn    schedule 16.12.2011