read delimited file from pl sql procedure - oracle

Question

I'm new to pl sql and trying to read a file(column wise),where file(abc.txt) has data delimited by pipe "|" like as below:
first test|add|123
second test|mod|654
So my requirement is like
How can we read above file in a pl sql procedure.
working sample code will be very helpful.
and below code i used for reading a file:
set serveroutput on;
DECLARE
V1 VARCHAR2(200);
F1 UTL_FILE.FILE_TYPE;
V1 VARCHAR2(200);
F1 UTL_FILE.FILE_TYPE;
BEGIN
F1 := UTL_FILE.FOPEN('USER_DIR','abc.txt','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(F1,V1);
dbms_output.put_line(V1);
EXCEPTION
WHEN no_data_found THEN EXIT;
END;
END LOOP;
IF UTL_FILE.IS_OPEN(F1) THEN
dbms_output.put_line('File is Open');
end if;
UTL_FILE.FCLOSE(F1);
END;
/

Answer 1

Solution 1: sqlloader
create a table for incoming data
define your "loading rules":
Use LOAD DATA
infile '/yourappli/utl_file/abc.txt'
REPLACE
INTO TABLE LOAN_BALANCE_MASTER_INT
fields terminated by '|' optionally enclosed by '"'
(
Col_1,
Col_2,
Col_3
)
Solution 2: Turn each of your delimited string into a collection
Here is how you can loop trough your delimited string V1 in your code, with the cto_table function declared from the documentation link:
DECLARE
V1 VARCHAR2(200);
F1 UTL_FILE.FILE_TYPE;
BEGIN
F1 := UTL_FILE.FOPEN('USER_DIR','abc.txt','R');
Loop
BEGIN
UTL_FILE.GET_LINE(F1,V1);
for x in (
select column_value a from table(cto_table('|', V1) )
) loop
dbms_output.put_line(x.a);
end loop;
EXCEPTION WHEN No_Data_Found
THEN EXIT;
END;
end loop;
IF UTL_FILE.IS_OPEN(F1) THEN
dbms_output.put_line('File is Open');
end if;
UTL_FILE.FCLOSE(F1);
END;
/