如何在Progress 4gl中导出.csv时添加列名

【问题标题】：How to add column name while export .csv in Progress 4gl如何在Progress 4gl中导出.csv时添加列名
【发布时间】：2017-10-27 12:15:16
【问题描述】：

我想在从 Progress DB 导出数据时为 .csv 文件添加列名。

代码：

OUTPUT TO customer1.csv.
FOR EACH customer:
    EXPORT DELIMITER ";" customer .
END.
OUTPUT CLOSE.

【问题讨论】：

标签： progress-4gl openedge

【解决方案1】：

您可以使用缓冲区动态循环遍历字段并构建标题行：

DEFINE VARIABLE hTable AS HANDLE NO-UNDO.
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.

hTable = BUFFER Customer:HANDLE.

OUTPUT TO customer1.csv.

/* Export header row. */
DO iLoop = 1 TO hTable:NUM-FIELDS:

    PUT UNFORMATTED hTable:BUFFER-FIELD(iLoop):NAME.

    IF iLoop < hTable:NUM-FIELDS THEN
        PUT UNFORMATTED ";".
END.

PUT SKIP.

/* Export records. */
FOR EACH Customer: 
    EXPORT DELIMITER ";" Customer. 
END.

OUTPUT CLOSE.

文件中的第一行将是数据库中的字段名称。

【讨论】：

一件棘手的事情是数组字段需要某种特殊处理——如果你不得不担心这些。