How to Create text(dat) file.

Question

I have ~ separated String in my table.
Now i have to make a text file form my this string which i have in table.
How can this be done in a procedure
Please give any example.
Regards,
AgrawalV

Answer 1

A quick example
sql>create or replace directory test_dir as 'd:\test';
Directory created.
sql>
drop table t;
Table dropped.
sql>
create table t
(str varchar2(100));
Table created.
sql>
insert into t
values('a~b~c~d~e~');
1 row created
sql>
insert into t
values('f~g~h~i~j~');
1 row created
sql>commit;
commit complete
sql>
create or replace procedure proc1(p_file_name varchar2)
as
f_id utl_file.file_type;
vc_str varchar2(100);
n1 number := 1;
n2 number;
n number;
p_str varchar2(100);
begin
f_id := utl_file.fopen('TEST_DIR',p_file_name,'w');
for rec in (select str from t) loop
  p_str := rec.str;
  n1 := 1;
  n := length(p_str) - length(replace(p_str,'~'));
  for i in 0..n-1 loop
   n2 := instr(p_str,'~',1,i+1);
   if i > 0 then
    n1 := instr(p_str,'~',1,i);
    vc_str := substr(p_str,n1+1,n2-n1-1);
   else
    vc_str := substr(p_str,1,n2-1);
   end if;
   dbms_output.put_line('wrote value : '||vc_str);
   utl_file.put_line(f_id,vc_str);
  end loop;
end loop;
  utl_file.fclose(f_id);
end;
show errors;
Procedure created.
No errors.
sql>exec proc1('a.doc');
wrote value : a
wrote value : b
wrote value : c
wrote value : d
wrote value : e
wrote value : f
wrote value : g
wrote value : h
wrote value : i
wrote value : j
PL/SQL procedure successfully completed.
"a.doc" will be created in d:\test of server