Question

如何上传多个图像并将其保存在本地或正在服务器中4gl并重命名每个图像？尝试使用关键字搜索谷歌＆＃34;上传正在进行的图片4gl / opensge＆＃34;但没有结果。

Answer 1

美好的一天：

我在互联网上找到了一些代码，经过几次调整后，这是我的代码：

OS-CREATE-DIR VALUE(todr_name).
stat = OS-ERROR.
IF stat NE 0 THEN
  MESSAGE "Directory not created. System Error #" stat.

ic = 0.

INPUT FROM OS-DIR (frdr_name).

REPEAT:
    IMPORT cFileShort cFileLong cType. 

    /*MESSAGE /*cFileShort*/ /*cFileLong*/ cType VIEW-AS ALERT-BOX INFO.*/

    /* File or Directory ? */
    IF cType MATCHES "*F*" THEN DO:
        ic = ic + 1.
        /*MESSAGE "ShortFileName" cFileShort SKIP
                "LongFileName" cFileLong VIEW-AS ALERT-BOX INFO.*/

        MESSAGE STRING(ic) + ".jpg" VIEW-AS ALERT-BOX INFO.

        OS-COPY VALUE (cFileLong) VALUE (SUBSTITUTE (todr_name, cFileShort )).
        OS-RENAME VALUE(todr_name + "\" + cFileShort) VALUE(todr_name + "\" + STRING(ic) + ".jpg").

        /*IF OS-ERROR = 0 THEN 
            OS-DELETE VALUE (cFileLong).*/
    END.

END.

图像上传正在进行4gl

1 个答案: