急!!!!!!!!!!!!!存贮过程

Question

CREATE OR REPLACE PROCEDURE PrintTranscript (
  /* Outputs a transcript for the indicated student. The
     transcript will consist of the classes for which the
     student is currently registered and the grade received
     for each class. At the end of the transcript, the student's
     GPA is output. */
  p_StudentID IN students.ID%TYPE,
  p_FileDir IN VARCHAR2,
  p_FileName IN VARCHAR2) AS  v_StudentGPA NUMBER;
  v_StudentRecord  students%ROWTYPE;
  v_FileHandle UTL_FILE.FILE_TYPE;
  v_NumCredits NUMBER;  CURSOR c_CurrentClasses IS
    SELECT *
      FROM registered_students
      WHERE student_id = p_StudentID;BEGIN
  -- Open the output file in append mode.
  v_FileHandle := UTL_FILE.FOPEN(p_FileDir, p_FileName, 'w');  SELECT *
    INTO v_StudentRecord
    FROM students
    WHERE ID = p_StudentID;  -- Output header information.  This consists of the current
  -- date and time, and information about this student.  UTL_FILE.PUTF(v_FileHandle, 'Student ID: %s\n',
    v_StudentRecord.ID);
  UTL_FILE.PUTF(v_FileHandle, 'Student Name: %s %s\n',
    v_StudentRecord.first_name, v_StudentRecord.last_name);
  UTL_FILE.PUTF(v_FileHandle, 'Major: %s\n',
    v_StudentRecord.major);
  UTL_FILE.PUTF(v_FileHandle, 'Transcript Printed on: %s\n\n\n',
    TO_CHAR(SYSDATE, 'Mon DD,YYYY HH24:MI:SS'));  UTL_FILE.PUT_LINE(v_FileHandle, 'Class   Credits Grade');
  UTL_FILE.PUT_LINE(v_FileHandle, '------- ------- -----');
  FOR v_ClassesRecord in c_CurrentClasses LOOP
    -- Determine the number of credits for this class.
    SELECT num_credits
      INTO v_NumCredits
      FROM classes
      WHERE course = v_ClassesRecord.course
      AND department = v_ClassesRecord.department;    -- Output the info for this class.
    UTL_FILE.PUTF(v_FileHandle, '%s %s %s\n',
      RPAD(v_ClassesRecord.department || ' '  ||
           v_ClassesRecord.course, 7),
      LPAD(v_NumCredits, 7),
      LPAD(v_ClassesRecord.grade, 5));
  END LOOP;  -- Determine the GPA.
  CalculateGPA(p_StudentID, v_StudentGPA);  -- Output the GPA.
  UTL_FILE.PUTF(v_FileHandle, '\n\nCurrent GPA: %s\n',
    TO_CHAR(v_StudentGPA, '9.99'));  -- Close the file.
  UTL_FILE.FCLOSE(v_FileHandle);EXCEPTION
  -- Handle the UTL_FILE exceptions meaningfully, and make sure
  -- that the file is properly closed.
  WHEN UTL_FILE.INVALID_OPERATION THEN
    UTL_FILE.FCLOSE(v_FileHandle);
    RAISE_APPLICATION_ERROR(-20061,
                            'PrintTranscript: Invalid Operation');
  WHEN UTL_FILE.INVALID_FILEHANDLE THEN
    UTL_FILE.FCLOSE(v_FileHandle);
    RAISE_APPLICATION_ERROR(-20062,
                            'PrintTranscript: Invalid File Handle');
  WHEN UTL_FILE.WRITE_ERROR THEN
    UTL_FILE.FCLOSE(v_FileHandle);
    RAISE_APPLICATION_ERROR(-20063,
                            'PrintTranscript: Write Error');
  WHEN OTHERS THEN
    UTL_FILE.FCLOSE(v_FileHandle);
    RAISE;
END PrintTranscript;
/
http://search.csdn.net/expert/topic/61/6102/2003/11/5/2429953.xml
http://search.csdn.net/expert/topic/61/6102/2003/7/1/1978027.xml至于根据表来建立文件那就是从数据字典（tab、user_tables,cat等表）中取出表名来。

Answer 1

请问:
UTL_FILE.FOPEN(p_FileDir, p_FileName, 'w');
若p_FileName文件不存在,会自动创建p_FileName文件吗？

Answer 2

create or replace procedure test as 
f UTL_FILE.file_type; 
s varchar2(200); 
a varchar2(200); 
path varchar2(50); 
begin 
path:='c:'; 
f:=utl_file.fopen('c:','aa.CSV','R'); 
loop 
utl_file.get_line(f,s); 
N:=INSTR(S,',',1,1); 
a := substr(s,.....) 
select count(*) into i from aa where aa = a; 
if i > 0 then 
update .... set ... 
else 
insert into ..... 
end if; 
end loop; 
utl_file.fclose(f); 
COMMIT; 
EXCEPTION 
when NO_DATA_FOUND then 
utl_file.fclose(f); 
rollback; 
end; 
/参考:
http://download-west.oracle.com/docs/cd/B10501_01/appdev.920/a96612/u_file.htm#ARPLS069