利用UTL_FILE包实现数据的导出与导入

oracle系统所提供的UTL_FILE包，可以对文本文件进行I/O操作，善用这个包，可以从文本文件中导入我们需要的数据到数据库中，或者导出数据到指定的文件中。一般操作步骤有如下：
1，创建一个文件对象。
   v_file := UTL_FILE.FILE_TYPE;
2，打开某个文本文件流。
   v_file := UTL_FILE.FOPEN(p_filedir, p_filename, 'w') ; --其中p_filedir为目录路径，p_filename为文件名，w为写入，r为读取。
3，写入或读取数据。
   UTL_FILE.PUTF(v_file, 'text');
4，异常捕捉。
   WHEN UTL_FILE.WRITE_ERROR THEN raise_application_error('write error');
5，关闭文件流。
   UTL_FILE.FCLOSE(v_file);
文本文件操作一般包含以上的五个步骤，才是一个合格的文件操作过程。更多UTL_FILE包的过程和函数的用法，请去查找相关资料。下面是一个小例子：
将超出平均工资的员工信息查找出来，并将信息写入到一个指定的文件中。

 create or replace procedure beyond_avg (p_dir varchar2, p_filename varchar2) is cursor avg_cursor is select last_name,deparment_id,salary from employees emp1 where salary >(select avg(salary) from employees emp2 where deparment_id = emp1.deparment_id) order by deparment_id; v_file utl_file.file_type; begin v_file := utl_file.fopen(p_dir,p_filename,'w'); for avg_record in avg_cursor loop utl_file.putf(v_file,'%s %s/n',avg_record.last_name,avg_record.salary); end loop; utl_file.fclose(v_file); exception when utl_file.invalid_filehandle then raise_application_error(-20366,'invalid file'); when utl_file.write_error then raise_application_error(-20367,'write error'); end beyond_avg;