DECLARE
file_open utl_file.file_type;
v_file_path varchar2(200);
v_file_name varchar2(200);
BEGIN
--v_file_path := '/u01/app/oracle/product/19.3.0/dbhome_1/csv_file';
v_file_path := 'DUMP_CSV_DIR';
v_file_name := 'test.csv';
-- 建立 File Object
file_open := UTL_FILE.FOPEN(v_file_path
, v_file_name
, 'W'
);
-- 寫入資料並換行
UTL_FILE.PUT_LINE(file_open, 'Hello1哈囉一');
UTL_FILE.PUT_LINE(file_open, 'Hello2哈囉二');
UTL_FILE.PUT_LINE(file_open, 'Hello3哈囉三');
-- 寫入資料但不換行
for i in 0..9 loop
UTL_FILE.PUT( file_open, to_char(i) );
end loop;
-- 釋放物件
UTL_FILE.FCLOSE(file_open);
END;
沒有留言:
張貼留言