Oracle存儲過程讀取文件例子--UTL_FILE

---讀文件測試
DECLARE
f_file utl_file.file_type;
c_line VARCHAR2(2048);
BEGIN
--打開文件
f_file := utl_file.fopen('SQL_SCRIPT', 'xml.pkg', 'R');


IF utl_file.is_open(f_file) THEN
LOOP
BEGIN
utl_file.get_line(f_file, c_line);
EXCEPTION
WHEN no_data_found THEN
EXIT;
END;

dbms_output.put_line(c_line);
END LOOP;
END IF;
IF utl_file.is_open(f_file) THEN
utl_file.fclose(f_file);
END IF;
EXCEPTION
WHEN OTHERS THEN
IF utl_file.is_open(f_file) THEN
utl_file.fclose(f_file);
END IF;
dbms_output.put_line('異常:' || SQLERRM);
END;