如何在PL/SQL生成的CSV文件中添加列标题

嘿，我来帮你搞定这个问题！要给PL/SQL生成的CSV文件加上列标题其实非常简单——你只需要在遍历数据游标之前，先把标题行写入文件就可以了。

具体操作要点： #

1. 在打开文件之后、开始循环读取游标数据之前，添加一行UTL_FILE.PUT_LINE语句，写入对应列的标题，标题的顺序必须和后续数据的字段顺序完全一致，不然CSV会出现列错位的问题。
2. 另外我注意到你原代码里有个小失误：在拼接数据时重复写了cur_rec.empno，应该是cur_rec.comm才对，这个得修正哦。

修改后的完整代码： #

CREATE OR REPLACE PROCEDURE EMP_CSV_EX AS
 
  CURSOR c_data IS
    SELECT a.empno,
           a.ename,
           a.job,
           a.mgr,
           TO_CHAR(a.hiredate,'DD-MON-YYYY') AS hiredate,
           a.sal,
           a.comm,
           b.deptno
    FROM   emp a,dept b
    where a.deptno = b.deptno
    ORDER BY b.deptno;
    
  v_file  UTL_FILE.FILE_TYPE;
  
BEGIN
  v_file := UTL_FILE.FOPEN('TEMP_DIR', 'shagar_test.csv', 'W');
  
  -- 先写入列标题行
  UTL_FILE.PUT_LINE(v_file, 'EMPNO,ENAME,JOB,MGR,HIREDATE,SAL,COMM,DEPTNO');
  
  -- 再遍历游标写入数据行
  FOR cur_rec IN c_data LOOP
    UTL_FILE.PUT_LINE(v_file,
                      cur_rec.empno    || ',' ||
                      cur_rec.ename    || ',' ||
                      cur_rec.job      || ',' ||
                      cur_rec.mgr      || ',' ||
                      cur_rec.hiredate || ',' ||
                      cur_rec.sal      || ',' ||
                      cur_rec.comm     || ',' ||
                      cur_rec.deptno);
  END LOOP;
  
  UTL_FILE.FCLOSE(v_file);
EXCEPTION
  WHEN OTHERS THEN
    -- 异常处理时记得关闭文件，避免资源泄漏
    IF UTL_FILE.IS_OPEN(v_file) THEN
      UTL_FILE.FCLOSE(v_file);
    END IF;
    RAISE;
END EMP_CSV_EX;
/

额外小提示： #

如果你的字段值里可能包含逗号、双引号或者换行符这类特殊字符，直接拼接会破坏CSV格式。这种情况下建议给每个字段加上双引号包裹，比如：

'"' || cur_rec.ename || '",'

这样就能避免特殊字符打乱CSV的结构啦。

备注：内容来源于stack exchange，提问作者Shagar Mahabubjan