[Oracle 10g] Lecture d'un fichier en PL/SQL

Version imprimable

Bonjour à tous,

J'essaie actuellement sans succès d'écrire une procédure permettant de lire un fichier (alert_orcl.log pour être précis) avec des commandes PL/SQL.
J'ai trouvé le package UTL_FILE qui semblerait convenir, seulement, quand je m'en sers dans une procédure sous SQL*Plus, j'ai toujours l'erreur : "Procédure créée avec des erreurs de compilation".

Actuellement, j'ai essayé le code suivant :
Code:

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 SET SERVEROUTPUT ON CREATE DIRECTORY FICHIERS_IN AS 'C:\scripts'; GRANT READ ON DIRECTORY FICHIERS_IN TO PUBLIC; CREATE OR REPLACE PROCEDURE fic_ouv (nom_rep VARCHAR2, nom_fic VARCHAR2) IS ligne_fic VARCHAR2(200); contenu_fic utl_file.file_type; BEGIN contenu_fic := UTL_FILE.FOPEN(nom_rep, nom_fic, 'r'); LOOP BEGIN UTL_FILE.GET_LINE(contenu_fic, ligne_fic); DBMS_OUTPUT.PUT_LINE(ligne_fic); EXCEPTION WHEN NO_DATA_FOUND THEN UTL_FILE.CLOSE(contenu_fic); EXIT; END; END LOOP; END; / EXECUTE fic_ouv ('FICHIERS_IN', 'test.txt'); /
Quelqu'un pourrait-il m'éclairer ?

02/08/2007, 17h19
plaineR

Pour voir le détail de l'erreur fais :

Code:

show err procedure fic_ouv

Je pense qu'après tu dois pouvoir t'en sortir tout seul ;)
02/08/2007, 17h46
sebvita
Dans ce cas, il m'affiche l'erreur suivante sur les lignes 4 et 6 (quand je déclare et définis contenu_fic) :
Code:

1 2 PL/SQL: Item ignored PLS-00201: l'identificateur 'UTL_FILE' doit être déclaré
Et du coup, j'ai des erreurs à chaque fois que j'utilise contenu_fic.

Après recherche sur cette erreur, j'ai trouvé la discussion suivante :
http://www.developpez.net/forums/sho...d.php?t=128275

Cependant, la ligne de pifor me retourne l'erreur suivante :

Code:

ORA-00942: Table ou vue inexistante

Je ne comprends pas, étant donné que UTL_FILE est un package et non une table ou une vue.

Une autre discussion me paraît intéressante :
http://www.developpez.net/forums/arc.../t-154462.html

Est-ce vrai que le package UTL_FILE n'existe pas sous Oracle 10gXE ? Existe-t-il un moyen de l'ajouter ?

En vous remerciant une nouvelle fois,

Sebvita
02/08/2007, 18h01
McM

Tu ne dois pas avoir les droits sur UTL_FILE.
Fais un grant connecté en sys.

PS : c'est FCLOSE et pas CLOSE (ça t'évitera une erreur de plus)
02/08/2007, 18h09
Garuda
En 1OG, tu dois avoir un DIRECTORY (le paramètre UTL_FILE_DIR est obsolète dans cette version)
Code:

1 2 3 4 5 BEGIN contenu_fic := UTL_FILE.FOPEN('FICHIERS', nom_fic, 'r'); LOOP BEGIN
ou FICHIERS est un DIRECTORY

Merci pour vos réponses. J'ai actuellement installé la version 10gRC2 d'Oracle et j'ai corrigé les petites erreurs que vous m'aviez donné. Merci plaineR, j'avais complètement zappé cette commande pour voir les erreurs.

Maintenant, j'ai les droits et tout ça pour UTL_FILE mais il subsiste un problème, qui risque de vous parraître tout simple je parie... :P
Code:

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 SET SERVEROUTPUT ON CREATE DIRECTORY FICHIERS_IN AS 'C:\scripts'; GRANT READ ON DIRECTORY FICHIERS_IN TO PUBLIC; / CREATE OR REPLACE PROCEDURE fic_ouv (nom_rep VARCHAR2, nom_fic VARCHAR2) IS ligne_fic VARCHAR2(32767); contenu_fic UTL_FILE.file_type; BEGIN contenu_fic := UTL_FILE.FOPEN(nom_rep, nom_fic, 'r'); LOOP BEGIN UTL_FILE.GET_LINE ('contenu_fic', 'ligne_fic', TRUE); DBMS_OUTPUT.PUT_LINE(ligne_fic); EXCEPTION WHEN NO_DATA_FOUND THEN UTL_FILE.FCLOSE(contenu_fic); EXIT; END; END LOOP; END; / EXECUTE fic_ouv ('FICHIERS_IN', 'test.txt');
La procédure contient des erreurs à la ligne 9, lors de l'utilisation de GET_LINE, et est donc inutilisable. Voici ce que j'obtiens comme erreurs :
Code:

1 2 3 4 5 LINE/COL ERROR 9/1 PL/SQL: Statement ignored 9/1 PLS-00306: numéro ou types d'arguments erronés dans appel à 'GET_ LINE' 9/1 PLS-00306: numéro ou types d'arguments erronés dans appel à 'GET_ LINE' 9/35 PLS-00363: expression 'ligne_fic' ne peut être utilisée comme cib le d'affectation

Tsss Tsss. Ca tu peux y arriver tout seul :
Code:

1 2 3 contenu_fic := UTL_FILE.FOPEN(nom_rep, nom_fic, 'r'); UTL_FILE.GET_LINE ('contenu_fic', 'ligne_fic', TRUE); UTL_FILE.FCLOSE(contenu_fic);
Y'a des ' qui sont en trop !

C'est bon, ça fonctionne.
Au cas où quelqu'un chercherait la réponse à ce topic, voici le script "définitif" qui fonctionne.

Code:

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
SET SERVEROUTPUT ON
 
CREATE DIRECTORY FICHIERS_IN AS 'C:\scripts';
GRANT READ ON DIRECTORY FICHIERS_IN TO PUBLIC;
/
 
CREATE OR REPLACE PROCEDURE	fic_ouv (nom_rep VARCHAR2, nom_fic VARCHAR2)
IS
ligne_fic VARCHAR2(32767);
contenu_fic UTL_FILE.file_type;
BEGIN
contenu_fic := UTL_FILE.FOPEN(nom_rep, nom_fic, 'r', 32764);
LOOP
BEGIN
UTL_FILE.GET_LINE (contenu_fic, ligne_fic);
DBMS_OUTPUT.PUT_LINE(ligne_fic);
EXCEPTION
WHEN NO_DATA_FOUND THEN
UTL_FILE.FCLOSE(contenu_fic);
EXIT;
END;
END LOOP;
END;
/
 
EXECUTE fic_ouv ('FICHIERS_IN', 'test.txt');
/

Merci à tous pour votre aide :D