progress-4gl - 正在检查文件是否存在 4GL

Question

如何使用代码检查特定文件的存在。例如。 def var a 作为字符。 a = "abc.p"
运行值(a)。 ---> 首先我想检查工作区中是否存在 abc.p。

Answer 1

您可以使用搜索功能。直接来自在线手册:

搜索功能
在 PROPATH 环境变量中定义的目录和库中搜索文件。 SEARCH 函数返回文件的完整路径名，除非它在您当前的工作目录中找到。如果 SEARCH 未找到该文件，则返回未知值 (?)。

语法

SEARCH ( opsys-file ) 

opsys文件

一个字符表达式，其值为您要查找的文件的名称。该名称可以包括完整或部分目录路径。如果 opsys-file 是一个常量字符串，则必须将其括在引号 ("") 中。 opsys-file 的值不能超过 255 个字符。

例子:

DEFINE VARIABLE cPgm AS CHARACTER   NO-UNDO.

cPgm = "test.p".

IF SEARCH(cPgm) <> ? THEN 
    RUN VALUE(cPgm).

• If you provide a fully qualified pathname, SEARCH checks if the file exists. In this case, SEARCH does not search directories on the PROPATH.