在oracle8中如何写数据到文本文件中去
在oracle8中如何写数据到文本文件中去 问题点数：50、回复次数：7Top
1 楼more_zou（小人物）回复于 2003-06-02 11:16:14 得分 10
sql>set echo off feedback off
sql>spool xxx.txt
sql>select * from ...
...
sql>spool offTop
2 楼zzok1（）回复于 2003-06-02 11:41:55 得分 0
more_zou(小人物) 说的很好，我补充一点
sql>set echo off feedback off heading off
sql>spool xxx.txt
sql>select * from ...
...
sql>spool off
在 xxx.txt 中去掉两行就可以了Top
3 楼twofish（toofoo）回复于 2003-06-02 13:48:52 得分 0
可以用在存储过程中吗？Top
4 楼zhaozy777（蓝）回复于 2003-06-02 15:56:01 得分 10
也可以直接使用pl/sql developer工具，非常方便，直接选表然后save as就可以了Top
5 楼more_zou（小人物）回复于 2003-06-02 22:10:22 得分 10
可以用在存储过程中吗？
不可以Top
6 楼more_zou（小人物）回复于 2003-06-02 22:34:08 得分 10
a example from asktom
it might look like:
create or replace function dump_csv( p_query in varchar2,
p_separator in varchar2
default ',',
p_dir in varchar2 ,
p_filename in varchar2 )
return number
AUTHID CURRENT_USER
is
l_output utl_file.file_type;
l_theCursor integer default dbms_sql.open_cursor;
l_columnValue varchar2(2000);
l_status integer;
l_colCnt number default 0;
l_separator varchar2(10) default '';
l_cnt number default 0;
begin
l_output := utl_file.fopen( p_dir, p_filename, 'w' );
dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
for i in 1 .. 255 loop
begin
dbms_sql.define_column( l_theCursor, i,
l_columnValue, 2000 );
l_colCnt := i;
exception
when others then
if ( sqlcode = -1007 ) then exit;
else
raise;
end if;
end;
end loop;
dbms_sql.define_column( l_theCursor, 1, l_columnValue,
2000 );
l_status := dbms_sql.execute(l_theCursor);
loop
exit when ( dbms_sql.fetch_rows(l_theCursor) <= 0 );
l_separator := '';
for i in 1 .. l_colCnt loop
dbms_sql.column_value( l_theCursor, i,
l_columnValue );
utl_file.put( l_output, l_separator ||
l_columnValue );
l_separator := p_separator;
end loop;
utl_file.new_line( l_output );
l_cnt := l_cnt+1;
end loop;
dbms_sql.close_cursor(l_theCursor);
utl_file.fclose( l_output );
return l_cnt;
end dump_csv;
/
You would use that for example like this:
create or replace procedure test_dump_csv
as
l_rows number;
begin
l_rows := dump_csv( 'select *
from all_users
where rownum < 25',
',', '/tmp', 'test.dat' );
end;
/
Make sure to read about the INIT.ORA parameters (utl_file_dir) you need to setup
!!!
Top
7 楼cd1860（守莲小子）回复于 2003-06-03 10:03:05 得分 10
小人物
说的就是sys下的utf_file包，你对照此包，再看一下他的程序就会明
白。Top
