高分求在PL/SQL中读取文件的例子（急！急！急！）

Question

declare
file_handle UTL_FILE.FILE_TYPE;
begin
file_handle := UTL_FILE.FOPEN('/tmp', '文件名', 'w');
UTL_FILE.PUTF(file_handle, '写入的信息\n');
UTL_FILE.FCLOSE(file_handle);
exception
WHEN utl_file.invalid_path THEN
raise_application_error(-20000, 'ERROR: Invalid path for file or path not in INIT.ORA.');
end; PutF()过程用来以指定格式把文本写入一个文件Put_Line()过程把一个指定的字符串写入文件并在文件中开始新的一行

Answer 1

写入的例子：先修改或添加init.ora的UTL_FILE_DIR参数
例如：
utl_file_dir=G:\oracle\temp    //保存文本的路径为G:\oracle\temp
此过程将用户FILE_OWNER的过程FILE_NAME的代码保存到G:\oracle\temp\TEXT.TXT中
create or replace procedure PRO_TO_TXT(FILE_OWNER VARCHAR2,FILE_NAME VARCHAR2)
is
   file_handle  utl_file.file_type;
   STOR_TEXT  VARCHAR2(4000);
   N NUMBER;
I NUMBER;
begin
I:=1;
    SELECT MAX(LINE) INTO N FROM ALL_SOURCE WHERE OWNER=FILE_OWNER AND  NAME=FILE_NAME AND TYPE='PROCEDURE';
file_handle:=utl_file.fopen('G:\oracle\temp','test.txt','a');
utl_file.put_line(file_handle,'PROCEDURE NAME:'||FILE_NAME);
WHILE I<=N LOOP
    SELECT TEXT  INTO STOR_TEXT FROM ALL_SOURCE WHERE OWNER=FILE_OWNER 
AND NAME=FILE_NAME AND TYPE='PROCEDURE' AND LINE= I;
    I:=I+1;
    utl_file.put_line(file_handle,stor_text);
END LOOP;
    utl_file.fclose(file_handle);
commit;
end PRO_TO_TXT;
/

Answer 2

utl_file.get_line()就是读取
取出来自己处理就行了。

Answer 3

谢谢 乔还有个问题，就是文本中的一行数据，
12，34，45，6我想分别得到被逗号分割的值在PL/SQL中应该怎么操作阿

Answer 4

用for循环处理
instr() substr()

Answer 5

在init.ora中要设置一个util_file_dir的参数。
declare
file_handle utl_file.file_type;
begin
    file_handle:=utl_file.fopen('c:\temp','sss.txt','r');
    utl_file.put_line(file_handle,str);
用substr截取str；
    utl_file.fclose(file_handle);
END;

Answer 6

create or replace procedure imp is
  i number(3);
  j number(3);  id varchar2(10);
  zh varchar2(10);
  ph varchar2(10);
  flag varchar2(10);
  temp varchar2(300);  handle utl_file.file_type;
begin
  handle:=utl_file.fopen('e:\','ticket.txt','r');  loop
    begin
      utl_file.get_line(handle,temp);
    exception 
      when no_data_found then exit;
    end;
     
    select replace(temp,'"') into temp from dual;    i:=instr(temp,',',1,1);
    id:=trim(substr(temp,1,i-1));    j:=instr(temp,',',1,2);
    zh:=trim(substr(temp,i+1,j-i-1));    i:=j;
    j:=instr(temp,',',1,3);
    ph:=trim(substr(temp,i+1,j-i-1));    flag:=trim(substr(temp,j+1));    insert into subwaydata(id,zh,ph,flag)values(id,zh,ph,flag);
    commit;
  end loop;  utl_file.fclose(handle);
end;

Answer 7

使用utl_file的时候，是不是先的给用户授予utl_file 包的execute特权阿。我现在用sys用户登录，出现这样的错误信息，connection to sys should be as sysdba or sysoper 什么原因阿

Answer 8

try:
connect sys/change_on_install as sysdba

Answer 9

connect sys/change_on_install as sysdbaokThanks

Answer 10

init.ora 文件放到什么位置阿在读写文件的时候，必须是相对路径吗不能指定绝对路径吗这样：
file_handle := utl_file.fopen('E:\temp', 'ReadTest.txt', 'r');运行的时候出现：无效的文件夹路径的错误。

Answer 11

在客户端可以查看utl_file_dir 是什么不

Answer 12

14:24:20 SQL> connect system/manager
已连接。
14:24:26 SQL> show parameter utlNAME                                 TYPE    VALUE
------------------------------------ ------- ------
utl_file_dir                         string  *
14:24:28 SQL>

Answer 13

NAME                                 TYPE        VALUE
------------------------------------ ----------- -----------------
create_stored_outlines               string
utl_file_dir                         string我的这样
是不是我放的那个init.ora文件没有起作用阿

Answer 14

参数没有设置，修改init.ora文件，加上这个参数。

Answer 15

oracle 10g 也是init.ora文件吗

Answer 16

我创建的数据库MATEST在MATEST/PFILE下有一个init.ora.107....一堆数字是这个文件吗