Question

Oracle批量导出存储过程（保持每个存储过程独立）

如有A,B,C三个存储过程希望被导出，导出时还是保持A.sql，B.sql，C.sql而不是全部导到一个text.sql当中。存储过程或者shell方式都可以

Answer 1

略微复杂，需要存储过程实现。

1、创建输出路径，比如你要在d盘test目录下输出，你就先在d盘根目录下建立一个test的目录。

2、sqlplus下以sysdba登录，执行以下语句

create or replace directory TMP as 'd:\test';
 
grant read,write on directory TMP to scott; --比如我用的scott用户
 
alter system set utl_file_dir='d:\test' scope=spfile;

3、以上步骤执行完，需要重启数据库。

4、创建一个存储过程，代码如下（基本是不用改动，原封复制即可）：

CREATE OR REPLACE PROCEDURE SP_OUTPUT_PROCEDURE is
  file_handle     utl_file.file_type;
  Write_content   VARCHAR2(1024);
  Write_file_name VARCHAR2(50);
  v_name          varchar2(50);
  v_text          varchar2(2000);
  cursor cur_procedure_name is
    select distinct name from user_source where type = 'PROCEDURE';
  cursor cur_sp_out is
    select t.text
      from (select 0 line, 'CREATE OR REPLACE ' text
              from dual
            union
            select line, text
              from user_source
             where type = 'PROCEDURE'
               and name = v_name) t
     order by line;
begin
  open cur_procedure_name;
  loop
    fetch cur_procedure_name
      into v_name;
    exit when cur_procedure_name%notfound;
    write_file_name := v_name || '.txt';
    open cur_sp_out;
    loop
      fetch cur_sp_out
        into v_text;
      exit when cur_sp_out%notfound;
      file_handle   := utl_file.fopen('TMP', write_file_name, 'a');
      write_content := v_text;
      --write file
      IF utl_file.is_open(file_handle) THEN
        utl_file.put_line(file_handle, write_content);
      END IF;
      --close file
      utl_file.fclose(file_handle);
    end loop;
    close cur_sp_out;
  end loop;
  close cur_procedure_name;
end;

5、创建完毕执行存储过程，这个就不赘述了，执行完毕后，你会发现d盘test目录下的文件名就是以存储过程名命名的txt文件，如图：

6、里边内容（就是存储过程创建时的代码，可能排版看着难看点，但是不影响使用）：

追问

请问第31行里的a代表什么？

Answer 2

用plsql到出，十分方便