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>![]()
Partager