У меня есть код, в котором выберите данные из таблиц и введите данные в файл "CSV". Код выполняется успешно, но при открытии файла "CSV" по умолчанию столбец ширины ширины не устанавливается. Мне нужно, когда открыть файл "CSV", то столбцы Autofil Width
КОД:
PROCEDURE DATA_CSV IS
BEGIN
Declare
LC$Line Varchar2(30000);
TFile TEXT_IO.FILE_TYPE;
Begin
TFile := TEXT_IO.FOpen( 'E:\Report_MOF.csv', 'W' );
text_io.Put_Line(TFile,'HOFID,MOFID,MOFNAME,RID,CNICNO');
For C1 in
( SELECT b.hofid, b.mofid, b.mofname, b.rid, b.cnicno
FROM hof a, mof b
WHERE a.cnicno IN (SELECT cnic_no FROM we_group_hof_k)
AND a.cnicno = b.cnicno
)
Loop
LC$Line := C1.hofid|| ',' ||C1.mofid|| ',' ||C1.mofname|| ',' ||C1.rid|| ',' ||C1.cnicno;
TEXT_IO.PUT_LINE( TFile, LC$Line ) ;
End loop;
TEXT_IO.FClose( TFile);
End;
END;