plsql批量导出procedure脚本

plsql批量导出procedure脚本 

 

plsql批量导出procedure脚本 

方法1.

PL/SQL Developer    menu: Tools -> Export User Objects + File per object / spec & body in a single file

 

 

方法2.Utl_File

 

create or replace directory BCCCGC as 'C:\log';

 

DECLARE

 File_Handle Utl_File.File_Type;

  Stor_Text   Varchar2(4000);

  n           Number;

  i           Number;

Begin

 

 

  For a In (Select object_Name As Name From User_Objects where Object_type= Upper('procedure') AND object_Name LIKE '%EBCAR%' ) Loop

 File_Handle := UTL_FILE.FOPEN('BCCCGC', a.name || '.txt', 'W');

 Select Max(Line) Into n From All_Source Where Owner = Upper( 'cb' ) And Name = a.name;

  While i <= n Loop

    Select Text Into Stor_Text From All_Source Where Owner = Upper( 'cb' ) And Name = a.name And Line = i;

    i := i + 1;

  Utl_File.Put_Line(File_Handle, Stor_Text);

  End Loop;

i := 1;

  Utl_File.Fclose(File_Handle);

 

  Commit;

  End Loop ;

END;