Ecriture dans un fichier || difficultés

[JuJuLaTordue]

Bonjour,

Je rencontre quelques problèmes pour écrire le résultat d'une requête dans un fichier . Voici mon code

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
   -- Test du package UTL_FILE
    --
    CREATE OR REPLACE PROCEDURE Test_util_file IS
      	ref_fichier UTL_FILE.FILE_TYPE;
	LC$Ligne    Varchar2(32767) ;
	LC$Requete	Varchar2(10000) ;
	TYPE REFCUR1 IS REF CURSOR ;
	 cur		REFCUR1;
    BEGIN
      ref_fichier := UTL_FILE.FOPEN('c:\julien','test.txt','w');
	LC$Requete := 'SELECT * FROM TABLE';
      Open cur FOR LC$Requete ;
  Loop
	Fetch cur INTO LC$Ligne ;
	Exit when cur%NOTFOUND ;
	-- Ecriture du fichier de sortie --
	  UTL_FILE.PUT_LINE( ref_fichier, LC$Ligne ) ;
	  UTL_FILE.PUT( ref_fichier, 'test2');
  End loop ;
 
  Close cur ;
      UTL_FILE.FFLUSH(ref_fichier);
      UTL_FILE.FCLOSE(ref_fichier);
    EXCEPTION
      -- traitement des erreurs rencontrees
      WHEN NO_DATA_FOUND THEN
          DBMS_OUTPUT.PUT_LINE ('Pas de donnée trouvée.');
          UTL_FILE.FCLOSE(ref_fichier);
      WHEN UTL_FILE.INVALID_PATH THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.INVALID_PATH invalide.');
          UTL_FILE.FCLOSE(ref_fichier);
      WHEN UTL_FILE.READ_ERROR THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.READ_ERROR invlide.');
          UTL_FILE.FCLOSE(ref_fichier);
      WHEN UTL_FILE.WRITE_ERROR THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.WRITE_ERROR invalide.');
          UTL_FILE.FCLOSE(ref_fichier);
      WHEN OTHERS THEN 
          DBMS_OUTPUT.PUT_LINE ('Autre erreur.');
          UTL_FILE.FCLOSE(ref_fichier);
    END; -- fin de la procedure
        -- le signe / execute la procedure sous SQL*Plus
    /

Et l'appel de cette procédure >>

Code :

1
2
3
4
BEGIN 
test_util_file; 
END;
/

J'ai bien le fichier qui se crée, ainsi que le simple message test1, mais tout ce qui est dans la boucle (LOOP) ne s'écrit pas ...

Quelqu'un a t'il une idée ?

[McM]

Il est où le test1 ??

Sinon, tu es sur de ta requête ?
Tu n'as qu'à l'afficher par un DBMS_OUTPUT, et aussi mettre un dbms_output dans le LOOP.

[JuJuLaTordue]

Salut,
ah effectivement j'ai viré test1 que j'avais placé au dessus de la boucle, et ca l'écrivait bien dans le fichier ...

Apparemment c'est la boucle qui pose problème, pourtant la requête me retourne bien des résultats sous SQL*Plus ...

Pour ce qui est de DBMS_OUTPUT ya peut-être un problème

SQL> set serveroutput on
SQL> BEGIN
2 DBMS_OUTPUT.ENABLE( 1000000 ) ;
3 DBMS_OUTPUT.PUT( 'test');
4 END;
5 /

Procédure PL/SQL terminée avec succès.

[McM]

Fais un PUT_LINE, avec que le PUT, la chaine reste dans le buffer et ne ressort pas automatiquement.

[JuJuLaTordue]

Ca donne la meme chose c étrange

[McM]

Essayes avec la requête réelle (sans passer par des ' et avec un FOR LOOP)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 CREATE OR REPLACE PROCEDURE Test_util_file IS
  	ref_fichier UTL_FILE.FILE_TYPE;
	LC$Requete	VARCHAR2(10000) ;
BEGIN
    ref_fichier := UTL_FILE.FOPEN('c:\julien','test.txt','w');
 
    IF UTL_FILE.isopen(ref_fichier)
    THEN
        FOR r IN SELECT col1 ||';'||col2 AS ligne FROM TABLE;
        LOOP
            -- Ecriture du fichier de sortie --
            DBMS_OUTPUT.PUT_LINE('Ecriture ligne');
            UTL_FILE.PUT_LINE( ref_fichier, r.ligne ) ;
        END LOOP ;
 
          UTL_FILE.FFLUSH(ref_fichier);
          UTL_FILE.FCLOSE(ref_fichier);
     ELSE
        DBMS_OUTPUT.PUT_LINE('Fichier non créé');
     END IF; 
END;

[dgi77]

Dans ta boucle, tu écris le contenu d'une variable (LC$Ligne) héritant du FETCH d'un SELECT *.
Je me demande si ce n'est pas trop imprécis au niveau du PUT_LINE. Est-ce que tu ne devrais pas spécifier les colonne dans le PUT_LINE : LC$Ligne .col1 || LC$Ligne .col3 ... ?

[JuJuLaTordue]

Salut,

Effectivement ma requête n'était pas assez précise

Je remercie McM pour m'avoir aiguiller dans le debuggage

Par contre, je n'ai pas résolu le non affichage via DBMS_OUTPUT, cela reste obscure.