Импорт данных столбцов файла CSV в блок данных с использованием Oracle Forms - PullRequest
Новая
       47

Импорт данных столбцов файла CSV в блок данных с использованием Oracle Forms

0 голосов
/ 01 апреля 2019

Я хочу прочитать данные столбцов файла "CSV" в блок данных Oracle Forms. У меня есть код при нажатии кнопки, то ничего не происходит. Как решить эту проблему? Я использую приложение Oracle Forms 11g

Код: 

Declare

in_file   Client_Text_IO.File_Type;
linebuf   VARCHAR2(1800); 
BEGIN

in_file := client_Text_IO.Fopen(:WE_GROUP.FILE, 'r');  

LOOP
Client_Text_IO.Get_Line(in_file, linebuf); 
p_output_line(linebuf);
Client_Text_IO.New_Line; 

END LOOP; 

EXCEPTION
WHEN no_data_found THEN
Client_Text_IO.Put_Line('Closing the file...');
Client_Text_IO.Fclose(in_file);
END;

Код процедуры: 

PROCEDURE p_output_line(p_line varchar2) IS 
 vLINE VARCHAR2(4000);
 vVALUE VARCHAR2(1000); 
 vCOMMA_COUNT NUMBER;

BEGIN                    
 vLINE := p_line;
 vCOMMA_COUNT := LENGTH(vLINE)- LENGTH(REPLACE(vLINE,',','')); -- COUNT THE NUMBER OF COMMAS
FOR I IN 1.. vCOMMA_COUNT+1 LOOP  
vVALUE := SUBSTR(vLINE,1,INSTR(vLINE,',')-1);                             -- IF vLINE = 123,ABC,9877 THEN VVALUE WILL BE  123
IF vVALUE IS NULL THEN
    vVALUE := vLINE;
END IF;    
vLINE := SUBSTR(vLINE,INSTR(vLINE,',')+1) ;                              -- CHANGE   123,ABC,9877 TO BE   ABC,9877  

END LOOP; 
EXCEPTION
WHEN NO_DATA_FOUND THEN
MESSAGE('Please Check the data type is appropriate on you excel file');
MESSAGE('Please Check the data type is appropriate on you excel file');
END;
...