/*
/*===========================================================================
テキストファイル読込み ( TEXT_GET )
===========================================================================*/
CREATE or REPLACE PROCEDURE TEXT_GET
AS
TEXT_BUFFER VARCHAR2(2000); -- 読込バッファ
FILEHANDLE UTL_FILE.FILE_TYPE;
BEGIN
FILEHANDLE := UTL_FILE.FOPEN( 'TEXT_DIR', 'list.txt', 'r' );
LOOP
BEGIN
UTL_FILE.GET_LINE( FILEHANDLE,TEXT_BUFFER );
EXCEPTION
WHEN NO_DATA_FOUND THEN
EXIT;
END;
DBMS_OUTPUT.PUT_LINE( TEXT_BUFFER );
END LOOP;
UTL_FILE.FCLOSE( FILEHANDLE );
END TEXT_GET;
/