Colegas segue uma procedure interessante que lë arquivos .csv Douglas Freire - MADMAX

Create or Replace procedure test_read is v_file_import utl_File.file_type; v_newline varchar2(300); V_ERROR VARCHAR2(2000); begin  v_file_import := utl_file.fopen('\\mydocs','test_read.csv','r');  LOOP     BEGIN       UTL_FILE.get_line(v_file_import, v_newline);     EXCEPTION        WHEN NO_DATA_FOUND  THEN           EXIT;     END;     DBMS_OUTPUT.PUT_LINE(v_newline);  END LOOP;    utl_file.fclose(v_file_import); EXCEPTION   WHEN UTL_FILE.invalid_operation  THEN      UTL_FILE.fclose(v_file_import);      RAISE_application_error(-20011,'Could not open file: ' ||'\\mydocs\\test_read.csv' );   WHEN UTL_FILE.invalid_filehandle  THEN      UTL_FILE.fclose(v_file_import);      RAISE_application_error(-20012,'Could not open file: ' ||'\\mydocs\\test_read.csv' );   WHEN UTL_FILE.read_error  THEN      UTL_FILE.fclose(v_file_import);      RAISE_application_error(-20013,'Could not read file: ' ||'\\mydocs\\test_read.csv' );    WHEN OTHERS  THEN       UTL_FILE.fclose(v_file_import);       V_ERROR := SQLERRM;       RAISE_application_error( -20000, 'The parameters: ' ||'\\mydocs\\test_read.csv'                                ||' are invalid.'  ); end test_read; Douglas Freire - MADMAX

Quebra-Linha

Colaborador..: Douglas Freire
Categoria(s).: Banco de Dados; Oracle;
Versão.......: Oracle 8x, 9x, 10g
Data.........: 10/07/2007 16:12:04
Visualizado..: 5696 vezes
Fonte........: Douglas Freire - MADMAX