0

我已经在 oracle 11g db 上的 pl/sql 中编写了一个函数来导出遵循特定细节的表。其中一个细节是 \n 作为断线。

PROCEDURE exportTableAScsv (p_tname varchar2) IS
    fileHandler     UTL_FILE.FILE_TYPE;
    l_theCursor     integer default dbms_sql.open_cursor;
    l_columnValue   varchar2(4000);
    l_status        integer;
    l_query         varchar2(1000) default 'select * from ' || p_tname;

    l_colCnt        number := 0;
    l_separator     varchar2(1) default '|';
    l_descTbl       dbms_sql.desc_tab;
    test_n          number:=0;
    filename        varchar2(100) := 'custom_export_'|| p_tname ||'_' ||    to_char(sysdate,'yyyymmddhhmmss')|| '.csv';
    ex_custom EXCEPTION;
    PRAGMA EXCEPTION_INIT( ex_custom, -20001 );

 BEGIN

 fileHandler := UTL_FILE.FOPEN('TEMPDIR', filename , 'W');
 dbms_sql.parse(  l_theCursor,  l_query, dbms_sql.native );
 dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
 . . .

 for i in 1 .. l_colCnt loop
     if (i>1) then
         UTL_FILE.put( fileHandler, l_separator || l_descTbl(i).col_name );
     else
         UTL_FILE.put( fileHandler, l_descTbl(i).col_name );
     end if;
     dbms_sql.define_column( l_theCursor, i, l_columnValue, 4000 );
 end loop;
 -- UTL_FILE.put_line(fileHandler,'')
 UTL_FILE.fflush(fileHandler)
 UTL_FILE.put( fileHandler, CHR(10) );

 l_status := dbms_sql.execute(l_theCursor);
 . . . 
 while ( SYS.dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
     for i in 1 .. l_colCnt loop
         SYS.dbms_sql.column_value( l_theCursor, i, l_columnValue );
         if (i > 1) then
            utl_file.put( fileHandler, l_separator || l_columnValue );
         else
            utl_file.put( fileHandler, l_columnValue );
         end if;
     end loop;
    -- UTL_FILE.put_line(fileHandler,'')
    UTL_FILE.fflush(fileHandler)
    UTL_FILE.put( fileHandler, CHR(10) );
  end loop;

  dbms_sql.close_cursor(l_theCursor);
  UTL_FILE.FCLOSE(fileHandler);
EXCEPTION
 . . .
 UTL_FILE.FCLOSE(fileHandler);
 raise;
. . . 
END exportTableAScsv;

如标题中所述，尽管有上面的代码，但当我运行该函数时，我总是将数据提取为 Windows 格式，并以 \r\n 作为行尾。Oracle DB 位于 Windows 机器上。PS 不幸的是，我不能将数据库放在 linux 机器上，而是使用 put_line。

4

1 回答 1

1

我怀疑这是由您使用 UTL_FILE.FFLUSH 引起的。引用文档（我的重点）：

FFLUSH 将挂起的数据物理写入由文件句柄标识的文件。通常，写入文件的数据会被缓冲。FFLUSH 过程强制将缓冲数据写入文件。 数据必须以换行符结束。

但是，在您的函数中，您在使用 PUT 附加换行符之前调用 FFLUSH。当您在 Windows 机器上时，您将获得 Windows 换行符。

顺便说一句；为什么这是一个函数而不是一个过程？它作为一个过程更有意义，因为您不太可能希望人们能够从 SQL 调用它。

于 2013-01-28T15:03:30.513 回答