问题描述
海
如何生成文本文件
我需要表格的每一列都显示在新的一行中。一次一排。要在另一个文件中显示的下一行.....
我试过了，但一切都像个例子
7369 ，“史密斯”， 7902, 17/12/1980
7369|史密斯|7902|17/12/1980
我需要它被显示像：
7369
史密斯
7902
17/12/1980
我使用的代码如下（这是我用于生成带有空格的文件的示例代码）
开始
htp.flash ；
htp.init ；
--设置MIME类型
owa_util.mime_header （'应用程序/八位字节'，错误）；
&'97 ；设置文件名称
htp.p（'内容-处置：附件；文件名="CU.txt"'） ；
--关闭HTTP标头
owa_util.http_header_close；
&'97 ；循环遍历Cu中的所有行
用于中的x （从EMP中选择SL_NO、第一名、参考NO、SYSD ）
循环
--打印一行的一部分，
&'97 ；以逗号分隔，以CR结尾
htp.prn（rpad(x.SL_NO,21，''）|| rpad（x.SL_NAME,42，''）||
rpad （ x.REF_NO,4 ，''）|| rpad（x.SYSD,56，''）|| CHR(13)||CHR(10)) ；
end 循环;
&'97 ；发送错误代码，以便
-- HTML的其余部分不呈现
htmldb_应用.g_unrerecable_错误：= true ；
结束；
请一定要帮我。先谢谢你。
如何生成文本文件
我需要表格的每一列都显示在新的一行中。一次一排。要在另一个文件中显示的下一行.....
我试过了，但一切都像个例子
7369 ，“史密斯”， 7902, 17/12/1980
7369|史密斯|7902|17/12/1980
我需要它被显示像：
7369
史密斯
7902
17/12/1980
我使用的代码如下（这是我用于生成带有空格的文件的示例代码）
开始
htp.flash ；
htp.init ；
--设置MIME类型
owa_util.mime_header （'应用程序/八位字节'，错误）；
&'97 ；设置文件名称
htp.p（'内容-处置：附件；文件名="CU.txt"'） ；
--关闭HTTP标头
owa_util.http_header_close；
&'97 ；循环遍历Cu中的所有行
用于中的x （从EMP中选择SL_NO、第一名、参考NO、SYSD ）
循环
--打印一行的一部分，
&'97 ；以逗号分隔，以CR结尾
htp.prn（rpad(x.SL_NO,21，''）|| rpad（x.SL_NAME,42，''）||
rpad （ x.REF_NO,4 ，''）|| rpad（x.SYSD,56，''）|| CHR(13)||CHR(10)) ；
end 循环;
&'97 ；发送错误代码，以便
-- HTML的其余部分不呈现
htmldb_应用.g_unrerecable_错误：= true ；
结束；
请一定要帮我。先谢谢你。
专家解答
下面是一个适用于大多数查询的示例。只需将DBMS_OUTPUT更改为使用UTL_FILE ，就可以将输出定向到文本文件
SQL> set serverout on size 999999
SQL> declare
2 p_query varchar2(32767) := q'{select * from scott.emp}';
3
4 l_theCursor integer default dbms_sql.open_cursor;
5 l_columnValue varchar2(4000);
6 l_status integer;
7 l_descTbl dbms_sql.desc_tab;
8 l_colCnt number;
9 n number := 0;
10 procedure p(msg varchar2) is
11 l varchar2(4000) := msg;
12 begin
13 while length(l) > 0 loop
14 dbms_output.put_line(substr(l,1,80));
15 l := substr(l,81);
16 end loop;
17 end;
18 begin
19 dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
20 dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );
21
22 for i in 1 .. l_colCnt loop
23 dbms_sql.define_column(l_theCursor, i, l_columnValue, 4000);
24 end loop;
25
26 l_status := dbms_sql.execute(l_theCursor);
27
28 while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
29 for i in 1 .. l_colCnt loop
30 dbms_sql.column_value( l_theCursor, i, l_columnValue );
31 p( rpad( l_descTbl(i).col_name, 30 )
32 || ': ' ||
33 l_columnValue );
34 end loop;
35 dbms_output.put_line( '-----------------' );
36 n := n + 1;
37 end loop;
38 if n = 0 then
39 dbms_output.put_line( chr(10)||'No data found '||chr(10) );
40 end if;
41 end;
42 /
EMPNO : 7369
ENAME : SMITH
JOB : CLERK
MGR : 7902
HIREDATE : 17-DEC-80
SAL : 800
COMM :
DEPTNO : 20
-----------------
EMPNO : 7499
ENAME : ALLEN
JOB : SALESMAN
MGR : 7698
HIREDATE : 20-FEB-81
SAL : 1600
COMM : 300
DEPTNO : 30
-----------------
EMPNO : 7521
ENAME : WARD
JOB : SALESMAN
MGR : 7698
HIREDATE : 22-FEB-81
SAL : 1250
COMM : 500
DEPTNO : 30
-----------------
EMPNO : 7566
ENAME : JONES
JOB : MANAGER
MGR : 7839
HIREDATE : 02-APR-81
SAL : 2975
COMM :
DEPTNO : 20
-----------------
EMPNO : 7654
ENAME : MARTIN
JOB : SALESMAN
MGR : 7698
HIREDATE : 28-SEP-81
SAL : 1250
COMM : 1400
DEPTNO : 30
-----------------
EMPNO : 7698
ENAME : BLAKE
JOB : MANAGER
MGR : 7839
HIREDATE : 01-MAY-81
SAL : 2850
COMM :
DEPTNO : 30
-----------------
EMPNO : 7782
ENAME : CLARK
JOB : MANAGER
MGR : 7839
HIREDATE : 09-JUN-81
SAL : 2450
COMM :
DEPTNO : 10
-----------------
EMPNO : 7788
ENAME : SCOTT
JOB : ANALYST
MGR : 7566
HIREDATE : 09-DEC-82
SAL : 3000
COMM :
DEPTNO : 20
-----------------
EMPNO : 7839
ENAME : KING
JOB : PRESIDENT
MGR :
HIREDATE : 17-NOV-81
SAL : 5000
COMM :
DEPTNO : 10
-----------------
EMPNO : 7844
ENAME : TURNER
JOB : SALESMAN
MGR : 7698
HIREDATE : 08-SEP-81
SAL : 1500
COMM : 0
DEPTNO : 30
-----------------
EMPNO : 7876
ENAME : ADAMS
JOB : CLERK
MGR : 7788
HIREDATE : 12-JAN-83
SAL : 1100
COMM :
DEPTNO : 20
-----------------
EMPNO : 7900
ENAME : JAMES
JOB : CLERK
MGR : 7698
HIREDATE : 03-DEC-81
SAL : 950
COMM :
DEPTNO : 30
-----------------
EMPNO : 7902
ENAME : FORD
JOB : ANALYST
MGR : 7566
HIREDATE : 03-DEC-81
SAL : 3000
COMM :
DEPTNO : 20
-----------------
EMPNO : 7934
ENAME : MILLER
JOB : CLERK
MGR : 7782
HIREDATE : 23-JAN-82
SAL : 1300
COMM :
DEPTNO : 10
-----------------
PL/SQL procedure successfully completed.
SQL>
SQL>
「喜欢这篇文章，您的关注和赞赏是给作者最好的鼓励」
关注作者
【版权声明】本文为墨天轮用户原创内容，转载时必须标注文章的来源（墨天轮），文章链接，文章作者等基本信息，否则作者和墨天轮有权追究责任。如果您发现墨天轮中有涉嫌抄袭或者侵权的内容，欢迎发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。
