bonjour à tous j'ai cree une procédure PL-SQL qui permet d'ouvrir un fichier text en mode lecture mais rien à afficher

Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
create directory fichiers_in as 'd:\fichiers\in' ;
grant read on directory fichiers_in to public ;
create directory fichiers_out as 'd:\fichiers\out' ;
grant read, write on directory fichiers_out to public ;
 
SQL> declare
  2   
  3    lc$fic_in   varchar2(128) := 'emp.txt' ;  
  4    lc$dir_in   varchar(30)   := 'FICHIERS_IN';  
  5  
  6    lf$ficin utl_file.file_type ;
  7    
  8    lc$ligne varchar2(32767) ;  
  9  
 10    lc$msg    varchar2(256) ;
 11    le$fin    exception ;
 12  begin
 13  
 14    begin
 15      lf$ficin := utl_file.fopen( lc$dir_in, lc$fic_in, 'r', 32764 ) ;
 16    exception
 17      when others then
 18   lc$msg := sqlerrm || ' [' || lc$dir_in || '] -> ' || lc$fic_in;
 19   raise le$fin ;
 20    end ;
 21    begin
 22       loop
 23   utl_file.get_line( lf$ficin,  lc$ligne ) ;
 24       end loop ;
 25    exception
 26       when no_data_found then 
 27   utl_file.fclose( lf$ficin ) ;
 28    end  ;     
 29    
 30  exception
 31     when le$fin then
 32       utl_file.fclose_all ;
 33       raise_application_error( -20100, lc$msg ) ;
 34  end ;
 35  /
 
Procédure PL/SQL terminée avec succès.
 
SQL>