用oracle存储过程写文本文件

原创于 2008-10-24 12:41:00 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#oracle #存储 #exception #date #xp

oracle 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用 Oracle PL/SQL 编写的存储过程 xp_WriteFile 的示例，该过程接受四个参数并创建一个包含指定日期及当前时间戳的文件。此示例展示了如何在 Oracle 数据库中利用 UTL_FILE 包来实现文件的写入操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PROCEDURE xp_WriteFile(da_tel varchar2,
                         dt_bh   varchar2,
                         dt_da   varchar2,
                         dt_date date) as

    fno utl_file.file_type;
    rec varchar2(2000);

    G_FILEPATH VARCHAR2(20) := 'ROOT';--文本存放的路径
    G_FILENAME VARCHAR2(20) := to_char(dt_date, 'yyyymmddhh24miss'); --'test.txt';
begin

    fno := utl_file.fopen(G_FILEPATH, G_FILENAME, 'W', 3000);

    begin
      utl_file.put_line(fno, 'Write   Test');
      utl_file.put_line(fno, '0123456789');
      rec := to_char(sysdate, 'yyyy.mm.dd   hh24:mi:ss');
      rec := 'abc   ' || rec || '   def';
      utl_file.put_line(fno, rec);
    exception
      when OTHERS then
        dbms_output.put_line('**   Write   Error');
    end;

    utl_file.fclose(fno);
end;