我想导出pg数据库中的所有存储过程，每个存储过程一个文件，文件名就是存储过程的名字。可以实现吗？感谢

Posted 2023-04-16

需要存储过程实现。

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

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

12345

   

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、里边内容（就是存储过程创建时的代码，可能排版看着难看点，但是不影响使用）：

追问

第“2、”步的意思是登陆数据库操作吗？还是？

参考技术A 用java可以

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

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

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

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代表什么？

参考技术A 用plsql到出，十分方便