读取oracle文件,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;