如何写.csv文件到我的表正在进行openge 4gl？

Question

我的CSV文件如下：

ABC,1,Service completion date/time  actual
ABC,2,Delivery date/time  requested
ABC,3,Invoice date/time
ABC,4,Order date/time
ABC,5,Saleable stock demand cover period  expected
ABC,6,Moved from location date

如何将其写入包含字段f1 f2和f3的表名T？每个ABC之前都有一个换行符

Answer 1

您可以使用INPUT和IMPORT进行此操作。

如果文件中的每一行都是一条记录，则这是一种方式：

DEFINE TEMP-TABLE t NO-UNDO
    FIELD f1 AS CHARACTER
    FIELD f2 AS CHARACTER
    FIELD f3 AS CHARACTER.

DEFINE STREAM strImport.
DEFINE VARIABLE cCsvFile AS CHARACTER   NO-UNDO.

cCsvFile = "c:\temp\myfile.csv".

INPUT STREAM strImport FROM VALUE(cCsvFile).
REPEAT :
    CREATE t.
    /* Default separator is space so use , instead */
    IMPORT STREAM strImport DELIMITER "," t.

END.
INPUT CLOSE.


FOR EACH t:
    DISPLAY t.
END.