如何导出存储过程和自定义函数?

项目做完了,想导出一些存储过程来,上网找了些资料,最后成功导出:

Connected to Oracle Database 10g Enterprise Edition Release 10.2.0.1.0
Connected as xgck

SQL> SPOOL C:/adddate.SQL;//你导出存储过程放的位置.
Started spooling to C:/adddate.SQL

SQL> SELECT TEXT FROM USER_SOURCE WHERE TYPE='PROCEDURE' AND NAME='ADDDATE';

TEXT
--------------------------------------------------------------------------------
procedure adddate//存储过程名
as
ddate date;
begin
--SESSION SET NLS_DATE_format='yyyy-mm-dd';
ddate:=to_date('1990-01-01','yyyy-mm-dd');
while ddate<to_date('2010-01-01','yyyy-mm-dd') loop
insert into DIM_BD_TIME values(substr(ddate,1,4),
to_char(ddate,'q'),
substr(ddate,6,2),
to_char(ddate,'ww'),
ddate);
ddate:=ddate+1;
end loop;
commit;
end;

16 rows selected

这种方法只能每次导出一个存储过程,正在找如何一次导出多个存储过程中,关于自定义函数如何导出还在找寻中.希望知道的同胞能告诉我怎样一次导出多个存储过程和自定义函数.