以下是Oracle导出sql语句存储过程的一个方法：

　　先修改init.ora

　　例如：

　　utl_file_dir=/usr //路径为 oracle所在的盘:/usr

　　然后就是Oracle导出sql语句的过程。此过程将用户TEMP的P1过程的代码保存到ORACLE安装盘下/USR/TEXT.TXT中

create   or   replace   procedure   TEST     
is     
    file_handle   utl_file.file_type;     
    STOR_TEXT   VARCHAR2(4000);     
    N   NUMBER;     
I   NUMBER;     
  begin     
I:=1;     
      SELECT   MAX(LINE)   INTO   N   FROM   ALL_SOURCE   WHERE   OWNER='TEMP'   AND       
    
NAME='P1';     
file_handle:=utl_file.fopen('/usr','test.txt','a');     
WHILE   I<=N   LOOP     
      SELECT   TEXT     INTO   STOR_TEXT   FROM   ALL_SOURCE   WHERE   OWNER='TEMP'   AND       
    
NAME='P1'   AND   LINE=   I;     
      I:=I+1;     
      utl_file.put_line(file_handle,stor_text);     
END   LOOP;     
      utl_file.fclose(file_handle);     
commit;     
end   TEST;     
/     
exec   TEST;    

　　这样就实现了Oracle导出sql语句存储过程。