Программа для ожидания файлов из определенной папки в каталоге Progress 4gl - PullRequest
Новая
       15

Программа для ожидания файлов из определенной папки в каталоге Progress 4gl

0 голосов
/ 18 октября 2019

Программа для ожидающих файлов из определенной папки в каталоге, этот файл должен иметь определенное расширение, например, xml. Если файлы ожидают более 5, отправьте уведомление по электронной почте. Кто-нибудь, пожалуйста, помогите мне. Я новичок в процессе 4gl.

1 Ответ

2 голосов
/ 18 октября 2019

Код ниже поможет вам подсчитать количество файлов в папке. Вам понадобится какой-то способ отправки электронной почты, с которым Progress не поставляется.

Существует старая библиотека smptmail.p, которую вы можете найти в Интернете. Возможно, есть и лучшие решения. 

DEFINE VARIABLE cFile     AS CHARACTER NO-UNDO.
DEFINE VARIABLE iXmlFiles AS INTEGER   NO-UNDO.

DEFINE STREAM str.

INPUT STREAM str FROM OS-DIR("c:\temp\").
REPEAT :
    IMPORT STREAM str cFile.

    IF cFile MATCHES "*.xml" THEN 
        iXmlFiles = iXmlFiles + 1.
END. 
INPUT STREAM str CLOSE.         

IF iXmlFiles >= 5 THEN      
    MESSAGE "Alert. There are " iXmlFiles "xml files" VIEW-AS ALERT-BOX WARNING.
...