Discussion :

[M.Aicha]

Bonjour,

Je viens de débuter en pl sql, et je cherche a crée une procedure stockée qui prend en parametre un fichier csv, parcour le fichier ligne par ligne et insert les donnée dans une table temporaire .
voici le debut e mon code :

Code :

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
45
46
47
48
49
 
CREATE OR REPLACE PROCEDURE LIAISON_TM(LiaisonServicesRateplan IN VARCHAR2) IS
      -- declaration des constantes, variables
    fich_resultat UTL_FILE.FILE_TYPE;
  num1 Integer;
  i Integer;
    pos_fich1 Integer;
  position Integer;
  anc_position Integer;
  champ varchar2(20);
    chaine1 varchar2(20);
  buffer1 varchar2(1500);
  echange boolean;
  p_directory VARCHAR2(20);
  cursor mpulktmb_cur IS SELECT TMCODE FROM mpulktmb ORDER BY TMCODE;
 
 BEGIN
    -- creation du descripteur du fichier
    fich_resultat := UTL_FILE.FOPEN ('RATING_LOG', 'LiaisonServicesRateplan', 'r');
 
 while echange loop
         echange := true;
        loop
              begin
              --Lecture d une ligne
                   UTL_FILE.GET_LINE(fich_resultat, buffer1);
             --buffer1= variable destiné a recevoir les données lues
              exception
                    when no_data_found then exit;
            end;
           --extraction du premier champ de chaque ligne
          pos_fich1 := instr (buffer1, ';');--Recherche dans buffer1 la position de ' ;  '
                     chaine1 := substr (buffer1, 0, pos_fich1 -1); --Extrait de buffer1, les caractères situés à partir du rang 0 jusqu'à la longueur pos_fich1 -1
                    num1 := to_number(chaine1);
 
           end loop;
end loop;    
            loop
                begin
                  UTL_FILE.GET_LINE(fich_resultat, buffer1);
                  exception
                    when no_data_found then exit;
                 end;
             end loop;
              commit;
 
          UTL_FILE.FCLOSE(fich_resultat);
 
END LIAISON_TM;

Merci d avance de votre aide

[al1_24]

Quelle est la question ?
Tu rencontres une erreur ? une partie de ton code ne fonctionne pas ?

Donne nous un peu plus de détails...

[M.Aicha]

Bonjour,
Merci d'avoir pris le temps de répondre à ma demande,
En fait, j'ai carrément changé de code et maintenant j'ai un message d'erreur qui est le suivant :

ORA-20000: ORU-10027: buffer overflow, limit of 2000 bytes

j'ai cherché un peu sur le net, et apparemment c'est un problème de taille du buffer
j'ai ajouté cette ligne à mon code : DBMS_OUTPUT.ENABLE( 1000000 ); mais c'est toujours le même problème.

Voici mon Code :

Code :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
CREATE OR REPLACE
PROCEDURE LIAISON_TM(
 p_filename IN VARCHAR2,
 p_directory IN VARCHAR2,
 p_ignore_headerlines IN INTEGER DEFAULT 1,
 p_delimiter IN VARCHAR2 DEFAULT ';')
IS
 v_filehandle UTL_FILE.file_type;
 v_text VARCHAR2(32767);
 v_eof BOOLEAN := FALSE;
 v_fields DBMS_SQL.varchar2a;
 v_field_index INTEGER;
 v_length INTEGER;
 v_start INTEGER;
 v_index INTEGER;
 v_enclosed_start INTEGER;
 v_enclosed_end INTEGER;
 
BEGIN
 
--DBMS_OUTPUT.ENABLE( 1000000 ) ;
 v_filehandle := UTL_FILE.fopen('RATING_LOG','LiaisonServicesRateplan.csv', 'r',32767);
 
IF p_ignore_headerlines > 0
 THEN
 BEGIN
 FOR i IN 1 .. p_ignore_headerlines
 LOOP
 UTL_FILE.get_line(v_filehandle, v_text);  
 END LOOP;
 
 EXCEPTION
 WHEN NO_DATA_FOUND
 THEN
 v_eof := TRUE;
 END;
 END IF;
 
WHILE NOT v_eof
 LOOP
 BEGIN
 UTL_FILE.get_line(v_filehandle, v_text);
 DBMS_OUTPUT.put_line('v_text=' || v_text);
 v_fields.DELETE;
 v_field_index := 0;
 v_length := LENGTH(v_text);
 v_start := 1;
 v_enclosed_start := INSTR(v_text, ';', 1);
 v_enclosed_end := INSTR(v_text, ';', v_enclosed_start + 1);
 
WHILE (v_start <= v_length)
 LOOP
 v_index := INSTR(v_text, p_delimiter, v_start);
 
IF v_enclosed_end != 0
 AND v_index > v_enclosed_start
 AND v_index < v_enclosed_end
 THEN
 v_index := INSTR(v_text, p_delimiter, v_enclosed_end);
 v_enclosed_start := INSTR(v_text, ';', v_enclosed_end + 1);
 
IF v_enclosed_start != 0
 THEN
 v_enclosed_end :=INSTR(v_text, ';', v_enclosed_start + 1);
 END IF;
 END IF;
 
IF v_index = 0
 THEN
 v_fields(v_field_index) :=TRIM(LTRIM(RTRIM(SUBSTR(v_text, v_start), ';'), ';'));
 v_start := v_length + LENGTH(p_delimiter);
 ELSE
 v_fields(v_field_index) :=TRIM(LTRIM(RTRIM(SUBSTR(v_text, v_start, v_index - v_start),';'),';'));
 v_start := v_index + LENGTH(p_delimiter);
 END IF;
 
v_field_index := v_field_index + 1;
 END LOOP;
 
 INSERT
 INTO temp12(vShDes_sn, vShdes_sp, vAcceSsFee, vSubScript, vCsind, vSrvInd, vAdvInd, vSusInd, vPrintSubsCrind)
 VALUES (v_fields(0),v_fields(1),v_fields(2),v_fields(3),v_fields(4),v_fields(5),v_fields(6),v_fields(7),v_fields(8));
 
 EXCEPTION
 WHEN NO_DATA_FOUND
 THEN
 v_eof := TRUE;
 
WHEN OTHERS
 THEN
 
 DBMS_OUTPUT.put_line(SQLERRM);
 DBMS_OUTPUT.put_line(v_text);
 
 END;
 END LOOP;
 
UTL_FILE.fclose(v_filehandle);
 
 
DECLARE
 P_FILENAME VARCHAR2(200):= 'LiaisonServicesRateplan.csv';
 P_DIRECTORY VARCHAR2(200):= 'RATING_LOG';
 P_IGNORE_HEADERLINES NUMBER := 1;
 BEGIN
 LIAISON_TM( P_FILENAME => P_FILENAME, P_DIRECTORY => P_DIRECTORY, P_IGNORE_HEADERLINES => P_IGNORE_HEADERLINES );
END;
 
 
END LIAISON_TM;

Voici le contenu de mon fichier CSV ::

FE;VSERV1;1;1;Y;T;Z;Y;Y
FR;VSERV2;1;1;Y;T;Z;Y;Y
FF;VSERV3;1;1;Y;T;Z;Y;Y
FG;VSERV4;1;1;Y;T;Z;Y;Y

Un coup de main de votre côté est le bienvenu

Merci d'avance.

[al1_24]

Qu'est censé faire ton programme ?
A quelle ligne du programme rencontres-tu ton erreur ? A quelle ligne du fichier ?
Peut-être qu'en indentant tes lignes de code et en y ajoutant des commentaires, sa structure apparaitrait mieux...

[mnitu]

Le plus simple sera de créer une table externe pour lire le fichier des données et de réduire la procédure à un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Insert into table ...
Select *
  From table_externe

[M.Aicha]

Bonjour,

A propos, je cherche a crée une procédure stockée qui prend en paramètre un fichier csv, parcourt le fichier ligne par ligne et insert les données dans une table.
J'ai pensé effectivement a la création d'une table temporaire''temp12'', en voici la requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 INSERT
 INTO temp12(vShDes_sn, vShdes_sp, vAcceSsFee, vSubScript, vCsind, vSrvInd, vAdvInd, vSusInd, vPrintSubsCrind)
 VALUES (v_fields(0),v_fields(1),v_fields(2),v_fields(3),v_fields(4),v_fields(5),v_fields(6),v_fields(7),v_fields(8));

En faisant une sélection sur la table temporaire 'temp12' aucune donnée insérée, mais par contre j'ai un message d'erreur au niveau de ligne 22 qui est le suivant : "ORA-20000: ORU-10027: buffer overflow, limit of 2000 bytes"

Comme j'avais expliqué hier, apparemment c'est un problème de taille du buffer
j'ai ajouté cette ligne à mon code : DBMS_OUTPUT.ENABLE( 1000000 ); mais c'est toujours le même problème.

Auriez vous une solution pour résoudre le problème du Buffer?

Merci d'avance.