How to create a table using a variable or flat file ?

Question

Hello All,
I want to create a table in which column names and data type will be read from a flat file or a variable.
How can i do this ? Any suggestations are appricaible.....
Regards,
Ashish

Answer 1

How about using this code.
Used Directory object EXT_DIR where the input file abc.txt is located with the below mentioned data
TABLE SANJ_TEST
SANJ_AB NUMBER(6)
SANJ_BC VARCHAR2(100)
Declare
v_file utl_file.file_type;
z varchar2(100);
v_cnt number :=0;
v_str Varchar2(1000) :='';
v_tab varchar2(40);
v_col varchar2(30);
v_data_type varchar2(30);
Begin
v_file := utl_file.fopen('EXT_DIR','abc.txt','r');
loop
utl_file.get_line(v_file,z);
if substr(z,1,5) = 'TABLE' then
if v_cnt <> 0 Then
v_str := v_str||')';
execute immediate v_str;
end if;
v_cnt := 0;
v_str := 'Create Table ';
v_tab :=Ltrim(Rtrim(substr(z,7)));
v_str := v_str||v_tab||'(';
Else
dbms_output.put_line('count in else start '||v_cnt);
v_col := ltrim(rtrim(substr(z,1,30)));
v_data_type := ltrim(rtrim(substr(z,31)));
if v_cnt=0 then
v_str := v_str||v_col||' '||v_data_type;
else
v_str := v_str||','||v_col||' '||v_data_type;
end if;
v_cnt := v_cnt+1;
End if;
End loop;
utl_file.fclose(v_file);
Exception
When NO_DATA_FOUND then
v_str := v_str||')';
execute immediate v_str;
dbms_output.put_line('In excep '||sqlerrm);
utl_file.fclose(v_file);
End;
/