-------------------------------------------------- Declare vfilename varchar2(500); in_file Client_Text_IO.File_Type; linebuf VARCHAR2(1800); BEGIN vfilename := client_get_file_name('c:/temp/', File_Filter=>'Comma Dialimeted Files (*.csv)|*.csv|'); in_file := client_Text_IO.Fopen(vfilename, 'r'); GO_BLOCK('Emp'); FIRST_RECORD; LOOP Client_Text_IO.Get_Line(in_file, linebuf); p_output_line(linebuf); Client_Text_IO.New_Line; Next_record; END LOOP; FIRST_RECORD; EXCEPTION WHEN no_data_found THEN Client_Text_IO.Put_Line('Closing the file...'); Client_Text_IO.Fclose(in_file); END; ------------------------------------------------------- PROCEDURE p_output_line(p_line varchar2) IS vLINE VARCHAR2(4000); vVALUE VARCHAR2(1000); vCOMMA_COUNT NUMBER; vREPORT_DATE DATE; BEGIN vLINE := p_line; vCOMMA_COUNT := LENGTH(vLINE)- LENGTH(REPLACE(vLINE,',',''
Comments