Question

我写了一些PROGRESS代码，它将一些数据输出到用户定义的文件中。数据本身并不重要，输出过程正常。这基本上是

DEFINE VARIABLE filePath。 UPDATE filePath / *用户类型类似于C：\ UserAccount \ New.txt * / OUTPUT TO（VALUE）filePath。

哪个工作正常，在输入目录中创建一个txt文件。我的问题是：

进度是否具有允许我检查输入的任何功能文件路径有效吗？（具体来说，如果用户输入了有效目录，并且他们有权在他们选择的目录中创建文件）

任何意见或反馈都将受到赞赏。

Answer 1

文件-INFO

使用系统句柄FILE-INFO为您提供了大量信息。它也适用于目录。

FILE-INFO:FILE-NAME = "c:\temp\test.p". DISPLAY FILE-INFO:FILE-NAME FILE-INFO:FILE-CREATE-DATE FILE-INFO:FILE-MOD-DATE FILE-INFO:FILE-INFO FILE-INFO:FILE-MOD-TIME FILE-INFO:FILE-SIZE FILE-NAME:FILE-TYPE FILE-INFO:FULL-PATHNAME WITH FRAME f1 1 COLUMN SIDE-LABELS.

对具有写权限的现有目录的简单检查可能类似于：

FUNCTION dirOK RETURNS LOGICAL (INPUT pcDir AS CHARACTER): FILE-INFO:FILE-NAME = pcDir. IF INDEX(FILE-INFO:FILE-TYPE, "D") > 0 AND INDEX(FILE-INFO:FILE-TYPE, "W") > 0 THEN RETURN TRUE. ELSE RETURN FALSE. END FUNCTION.

FILE-NAME：FILE-TYPE将以D表示目录，F表示普通文件。它还包括有关阅读和写作权利的信息。查看帮助以获取更多信息。如果文件不存在，基本上除FILE-NAME之外的所有属性都将为空或未知（？）。

编辑：似乎FILE-TYPE在某些情况下返回W，即使该目录中没有实际的写权限，所以我可能需要通过错误处理来处理这个

错误处理

OUTPUT TO VALUE("f:\personal\test.txt"). PUT UNFORMATTED "Test" SKIP. OUTPUT CLOSE. CATCH eAnyError AS Progress.Lang.ERROR: /* Here you could check for specifically error no 98 indicating a problem opening the file */ MESSAGE "Error message and number retrieved from error object..." eAnyError:GetMessage(1) eAnyError:GetMessageNum(1) VIEW-AS ALERT-BOX BUTTONS OK. END CATCH. FINALLY: END FINALLY.

搜索

检查单个文件时，SEARCH命令将起作用。如果文件存在，则返回完整路径。但它不适用于目录，只适用于文件。如果在没有完整路径的情况下搜索e g SEARCH("test.p")，该命令将搜索PROPATH环境变量中设置的目录，并返回带有完整路径的第一个匹配条目。如果没有匹配则返回未知值（？）。

语法：

IF SEARCH("c:\temp\test.p") = ? THEN MESSAGE "No such file" VIEW-AS ALERT-BOX ERROR. ELSE MESSAGE "OK" VIEW-AS ALERT-BOX INFORMATION.

Answer 2

SYSTEM-DIALOG GET-FILE字符字段有一个选项MUST-EXIST如果你想使用dailogue从用户那里获取文件名/目录。手册中的示例

DEFINE VARIABLE procname AS CHARACTER NO-UNDO.
DEFINE VARIABLE OKpressed AS LOGICAL INITIAL TRUE.
    Main: 
    REPEAT:    
        SYSTEM-DIALOG GET-FILE procname        
            TITLE      "Choose Procedure to Run ..."        
            FILTERS    "Source Files (*.p)"   "*.p",                   
                       "R-code Files (*.r)"   "*.r"        
            MUST-EXIST        
            USE-FILENAME        
            UPDATE OKpressed.          
        IF OKpressed = TRUE THEN        
            RUN VALUE(procname).    
        ELSE              
            LEAVE Main.            
END.

PROGRESS - 验证用户输入文件输出路径

2 个答案: