CSV file data load

Question

Hi All,
I have a CSV file having data in cell. I have to load the csv file data in supporting table.
In code, I will pass parameters as - csv file name, path and supporting table name that required inserting the file data. (This is just a sample code; I required handling many things)
My Sample CSV file data: (Data are comma separated) ,In file in third,have null value ,Plese help to handle null values in below code while inserting.
1,AB,1/1/2013
2,CD,1/1/2012
3,<null>,1/1/2013Sample Code:
DECLARE
    v_csvfile       VARCHAR2(30) := 'temp.csv';--<<This is the csv file name>>
    v_csvpath       VARCHAR2(30) := --<<This is the path>>
    v_csvtab        VARCHAR2(30) := 'TEMP';
    v_csvdata       VARCHAR2(32767);
    v_csveof        BOOLEAN := FALSE;
    v_csvfilehandle utl_file.file_type;
    v_str           VARCHAR2(32767);
BEGIN
    v_csvfilehandle := utl_file.fopen(v_csvpath, v_csvfile, 'r', 32767);
    WHILE NOT v_csveof
    LOOP
        BEGIN
            utl_file.get_line(v_csvfilehandle, v_csvdata);
            FOR i IN (SELECT s.data_type, s.internal_column_id
                        FROM user_tab_cols s
                       WHERE s.table_name = UPPER(v_csvtab)
                       ORDER BY internal_column_id)
            LOOP
                IF i.data_type = 'DATE'
                THEN
                    v_str := v_str || 'TO_DATE (' || ' REGEXP_SUBSTR( ' || '''' ||
                             v_csvdata ||
                             '''' || ' ,' || '''' || '[^,]+' || '''' ||
                             ' ,1,' || i.internal_column_id || ' ),' || '''' ||
                             'MM/DD/YYYY' || '''' || ' )';
                ELSE
                    v_str := v_str || ' REGEXP_SUBSTR( ' || '''' ||
                             v_csvdata ||
                             '''' || ' ,' || '''' || '[^,]+' || '''' ||
                             ' ,1,' || i.internal_column_id || ' ),';
                END IF;
            END LOOP;
                    --DBMS_OUTPUT.put_line('INSERT INTO  ' || v_csvtab || ' VALUES ( ' || v_str || ' )');
            EXECUTE IMMEDIATE 'INSERT INTO  ' || v_csvtab || ' VALUES ( ' || v_str || ' )';
                              v_str := NULL;
        EXCEPTION
            WHEN no_data_found THEN
                v_csveof := TRUE;
        END;
    END LOOP;
    utl_file.fclose(v_csvfilehandle);
EXCEPTION
    WHEN OTHERS THEN
        dbms_output.put_line(dbms_utility.format_error_backtrace ||
                             ' Err ' || SQLERRM);
        RAISE;
END;Script to create sample supporting table:
CREATE TABLE TEMP
(col1 VARCHAR2(100),
col2 VARCHAR2(100),
col3 DATE );Thanks,

Answer 1

Don't re-invent the wheel.
If your CSV is on the database server (it must be if you are using UTL_FILE), use an external table
http://docs.oracle.com/cd/E11882_01/server.112/e22490/et_concepts.htm#SUTIL011
If your CSV is on a client PC, use Sql*Loader
http://docs.oracle.com/cd/E11882_01/server.112/e22490/ldr_concepts.htm#SUTIL003