1
PROCEDURE READ_FILE (iv_file_pathIN VARCHAR2,
iv_file_nameIN VARCHAR2 )
IS
lv_file_path VARCHAR2(100);
lv_file_name VARCHAR2(100);
l_file_handleUTL_FILE.FILE_TYPE;
lv_line_bufVARCHAR2(4000);
ln_loader_countNUMBER := 0;
BEGIN
l_file_handle := UTL_FILE.FOPEN(lv_file_path, lv_file_name, 'r');
LOOP
---------------------------
--Get you data line by line
---------------------------
UTL_FILE.GET_LINE(l_file_handle, lv_line_buf);
ln_read_count := ln_read_count + 1;
IF lv_line_buf IS NULL THEN
---- Ìø¹ý¿ÕÐÐ
GOTO END_LOOP;
-----------------------------
---- È¥³ýÊý¾ÝÐÐ×îºóµÄ»Ø³µ·ûºÅ
-----------------------------
IF ASCII(SUBSTR(lv_line_buf,-1,1)) IN (10,13) THEN
lv_line_buf := SUBSTR(lv_line_buf, 1, LENGTH(lv_line_buf)-1);
END IF;
--------------------------------------
--Add code here to deal with your data
--------------------------------------
null;
>
END LOOP;
UTL_FILE.FCLOSE(l_file_handle);
EXCEPTION
WHEN NO_DATA_FOUND THEN
UTL_FILE.FCLOSE(l_file_handle);
NULL;
WHEN OTHERS THEN
UTL_FILE.FCLOSE(l_file_handle);
ROLLBACK;
END;
-----------------------------------------------------
2.
date /t >>test.txt
|