oracle读取文件

CREATE OR REPLACE FUNCTION M_ALLOT_$R_DISTRIBUTION(p_users_id IN NUMBER,

r_xml IN VARCHAR2)

RETURN CLOB IS

--author:csy

--date:20121031

--description:调用r_subdistribution

v_return CLOB;

BEGIN

--调用m_allot_$r_subdistribution

v_return := m_allot_$r_subdistribution(p_users_id, r_xml);

RETURN v_return;

END m_allot_$r_distribution;

select * from TEST3;

m_allot_$r_distribution;

--创建directory

create or replace directory FILENAME as 'C:\TEMP2';

--CREATE TABLE TEST4(a varchar2(32000));

/*set serveroutput ON*/

DECLARE

filehandle utl_file.file_type;

filebuffer varchar2(4000);

BEGIN

filehandle := utl_file.fopen('FILENAME','test1.txt','r',4000 );

loop

begin

utl_file.get_line(filehandle,filebuffer);

--INSERT INTO TEST3(a) VALUES(filebuffer);

EXCEPTION

WHEN no_data_found THEN

exit ;

End;

END LOOP;

utl_file.fclose(filehandle);

COMMIT;

END;