oracle 树状结构递归 PL/SQL输出控制 包括空格输出控制

树状结构

存储过程中通过递归构建，类似BBS回帖显示，代码共三段：

建表，插入数据，创建存储过程显示；

1.
create table article
(
id number primary key,
cont varchar2(4000),
pid number,
idleaf number(1), --0为非叶子节点,1为叶子节点
alevel number(2)
);

2.

insert into article values(1,'蚂蚁大战大象',0,0,0);
insert into article values(2,'大象被打趴下了',1,0,1);
insert into article values(3,'蚂蚁也不好过',1,0,1);
insert into article values(4,'瞎说',2,1,2);
insert into article values(5,'没有瞎说',4,1,3);
insert into article values(6,'怎么可能',1,0,1);
insert into article values(7,'怎么没可能',6,1,2);
insert into article values(8,'可能性很大的',6,1,2);
insert into article values(9,'大象进了医院',2,0,2);
insert into article values(10,'护士是蚂蚁',9,1,3);

3.

create or replace procedure tree(v_pid article.pid%type,v_alevel article.alevel%type)
is
　　cursor c is select * from article where pid=v_pid;
　　v_str varchar2(2048) :=' ';
begin
　　for i in 0..v_alevel loop
　　v_str :=v_str||'      ';
end loop;
　　for v_article in c loop dbms_output.put_line(v_str||v_article.cont);
　　if (v_article.isleaf =0) then
　　　　tree(v_article.id,v_article.alevel);
　　end if;
　　end loop;
　　end;

结果前面的N*4个空格不显示：

设置空格输出后，问题解决：

其它问题：第一层的输出前不应该带空格，设置初始字符串为空，i从1开始。

设置 oracle sqlplus DBMS_OUTPUT.put_line

下面内容摘录自

http://blog.csdn.net/wbj1234566/article/details/2557515

1 设置DBMS_OUTPUT.put_line输出显示     SET SERVEROUTPUT ON

2 关闭DBMS_OUTPUT.put_line输出显示     SET SERVEROUTPUT OFF

3 设置DBMS_OUTPUT缓冲区大小     SET SERVEROUTPUT ON SIZE number（1000）

4 设置只显示DBMS_OUTPUT默认的长度     SET SERVEROUTPUT ON FORMAT TRUNCATED

5 设置空格的输出     SET SERVEROUTPUT ON FORMAT WRAPPED

6 取消空格的输出     SET SERVEROUTPUT ON FORMAT WORD_WRAPPED