2008/12/23 Andes Febrian <[email protected]>:
> Hi chiank..
>
> Thanks for ur reply, it helps a lot.
> untuk menjalankan di sql developer, bisa kah berikan saya salah satu contoh
> ? Thanks.
>
ini contoh dari internet. moga membantu..
DECLARE
file_handle utl_file.file_type; -- file handle of OS flat file
utl_dir VARCHAR2(255) := '/u01/utl_output';
col1 NUMBER; -- C1 retrieved from testtab table
retrieved_buffer VARCHAR2(100); -- Line retrieved from flat file
BEGIN
-- Open file to write into and obtain its file_handle.
--file_handle := utl_file.fopen(utl_dir,'myfile.txt','W',32767);
file_handle := utl_file.fopen(utl_dir,'myfile.txt','W');
dbms_output.put_line('File opened for write');
-- Write a line of text out to the file.
utl_file.put_line(file_handle, 'this is line 1 as a test');
dbms_output.put_line('Write 1 success');
-- Select the c1 from the testtab table where empno = 7900.
SELECT 10 INTO col1 FROM dual;
-- Using PUTF write text with the col1 argument out to the file.
utl_file.putf(file_handle, 'This is the c1 %s when the c2 is
%s.\n', col1,'25');
dbms_output.put_line('Write 2 success');
-- Close the file.
utl_file.fclose(file_handle);
dbms_output.put_line('File closed');
-- Open the same file to read from.
--file_handle := utl_file.fopen(utl_dir,'myfile.txt','R',32767);
file_handle := utl_file.fopen(utl_dir,'myfile.txt','R');
dbms_output.put_line('File opened for read');
-- Read a line from the file.
utl_file.get_line(file_handle, retrieved_buffer);
dbms_output.put_line('Read success');
-- Print fetched line out to the SQL*Plus prompt.
dbms_output.put_line(retrieved_buffer);
-- CLose the file.
utl_file.fclose(file_handle);
dbms_output.put_line('File closed');
END;
/
--
They say a rainbow appears after every storm
but my storms were caused by those who were my rainbows
