导出oracle序列

set serveroutput on;
spool c:\sequence_code.txt;
 
declare
  v_sequence varchar2(4000);
  v_nextval number(38,0);
begin
  for i in (select sequence_name from user_sequences) loop
   select dbms_metadata.get_ddl('SEQUENCE',i.sequence_name,user) into v_sequence from dual;
   execute immediate 'select '||i.sequence_name||'.'||'nextval from dual' into v_nextval;
   v_sequence := substr(v_sequence,1,instr(v_sequence,'START WITH',1,1)+length('START WITH'))||' '||to_char(v_nextval)||' '||
                 substr(v_sequence,instr(v_sequence,'CACHE'))||';';
   dbms_output.put_line(v_sequence);
  end loop;
end;
/
spool off;