如何将字段导出到CSV在OPENEDGE

Question

美好的一天

我有一个2部分的问题。目前我有一个表的列表，其数据需要导出到CSV。我的代码在这里：

def temp table tt-table 
field f1 as int 
field f2 as char 
field . . . . 

output to value(session:temp-directory + "temp.csv"). 

put f1 at 1 
"," f2. . .  

output close. 

有没有办法自动或缩短这段代码？每桌平均有30-40个字段，需要输出5个表。

第二部分：

如果我进口他们回到我们的系统，是它可以动态地创建基于字段的数量变量及其对应的变量类型？

Answer 1

您可以使用IMPORT和EXPORT语句。到临时表导出为CSV文件，使用此代码：

OUTPUT TO VALUE(SESSION:TEMP-DIRECTORY + "temp.csv"). 

FOR EACH tt-table NO-LOCK: 
    EXPORT tt-table.  
END. 

OUTPUT CLOSE. 

我不知道的方式从文件动态地建立一个临时表。但要将文件导入到同一个表中，请执行以下操作：

INPUT FROM VALUE(SESSION:TEMP-DIRECTORY + "temp.csv"). 

REPEAT: 
    CREATE tt-table. 
    IMPORT tt-table. 
END. 

INPUT CLOSE.