在oracle中如何把查询结果的列标题换为列注释

由于最近有这个需要，我查看了相关文档后，写了一个存储过程，指定用户名，表明后，过程返回查询该表的sql语句，同时把列标题替换为注释了。

ps：由于小弟能力有限，程序中有点小瑕疵，就是在注释中出现特殊字符，比如||，'等字符时，返回的sql语句会报错，提示找不到from关键字，有没有解决办法呢，正在思索中，如有知道者与小弟联系，万分感谢。

 

create or replace procedure get_result_by_col_comments(tableowner varchar2,tablename varchar2,out_sql out varchar2) is
--申明变量
v_sql varchar2(2000);
type c is ref cursor;
cur c;
v_col_name varchar2(255);
v_col_comment varchar2(255);
--开始处理
begin
out_sql:='select ';
v_sql:='select column_name,comments from all_col_comments s where s.table_name='''||
trim(tablename)||''' and s.owner='''||trim(upper(tableowner))||'''';
dbms_output.put_line(v_sql);
open cur for v_sql;
loop
fetch cur into v_col_name,v_col_comment; 
exit when cur%notfound;
out_sql:=out_sql||v_col_name ||' '||v_col_comment||',';
end loop;
close cur;
out_sql:=out_sql||' rownum from '||tableowner||'.'||tablename;
dbms_output.put_line('查询语句为：'||out_sql);
end get_result_by_col_comments;