Progress提供了一系列的方法,让用户可以方便幕袢〔僮飨低车奈募?畔?比如路径,文件大小等等.[@more@]
一个实例,来显示用户输入的一个操作系统文件的信息:
DEF VAR os-file AS CHAR FORMAT "x(60)" LABEL "Input a File".
REPEAT:
SET os-file WITH FRAME a.
FILE-INFO:FILE-NAME = os-file. DISPLAY FILE-INFO:FULL-PATHNAME FORMAT "x(60)" LABEL "Full Path"
FILE-INFO:PATHNAME FORMAT "x(60)" LABEL "Path"
FILE-INFO:FILE-TYPE LABEL "Type"
FILE-INFO:FILE-SIZE LABEL "Size"
WITH FRAME a SIDE-LABELS .
IF FILE-INFO:FILE-SIZE = 0 THEN MESSAGE "Empty File.".
END.
这段代码会让你填写一个文件名,如果找到这个文件,就显示出这个文件的完整路径,以及文件名,文件大小. 如果文件大小是零,就会出现一个message,提示这是一个空文件.
4GL 参考.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/182208/viewspace-916633/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
