Discussion :

[Reivilo35]

Bonjour,
Je dois réaliser un (ou des) script(s) de transcodage en PL/SQL.
Je n'ai pas tellement pratiqué ce langage donc je ne sais pas trop comment démarrer pour réaliser la demande.

Je vais essayer d'être clair, succinct et précis.

Au départ, j'ai une table de correspondance en Excel (que je devrais convertir par la suite en fichier texte avec séparateur de champ ou en table) à 2 colonnes :
- une colonne A qui contient un identifiant A,
- et une colonne B qui contient un identifiant B.

Le principe est que pour chaque table où l'identifiant A est présent (une bonne dizaine de tables en tout), je dois le remplacer par l'identifiant B.

Je pensais faire une moulinette pour chaque table concernée avec une boucle de lecture de mon fichier de données en entrée et, pour chaque occurrence 'identifiant A' trouvée, faire une requête de mise à jour avec l'identifiant B.

Pourriez-vous m'aiguiller sur la meilleure et plus simple façon de faire ?

En vous remerciant par avance.
Cordialement,
Olivier

[McM]

Plusieurs solutions suivant la fréquence d'utilisation.
Si c'est du one-shot sans avoir 10M de lignes, insérer manuellement les données du fichier excel dans une table temporaire et faire ton script d'update en te basant dessus.
Si c'est du récurent ou s'il y a beaucoup de lignes dans ton fichier excel (plus de 20 000), faut passer par du fichier texte, et ensuite soit de la lecture de fichier par UTL_FILE, soit en table externe.

[Reivilo35]

Bonjour,
Merci McM.
J'ai beaucoup de lignes dans mes fichiers textes : un avec 65000 lignes et l'autre avec plus de 25000 lignes, donc je pense passer par un fichier texte et ensuite le lire par UTL_FILE.
Voici un extrait de mes fichiers d'entrée :

837426;3000837426
837437;3000837437
837448;3000837448
837459;3000837459
837460;3000837460
837470;3000837470
837492;3000837492
837506;3000837506
837539;3000837539
837540;3000837540
837550;3000837550
837561;3000837561
837572;3000837572
837583;3000837583
837594;3000837594

J'ai commencé un petit script avec quelques exemples trouvés sur le net :

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
 
-- On créé ou on remplace un répertoire nommé monChemin qui pointe sur /u01 (repértoire existant au niveau de l'OS)
CREATE OR REPLACE DIRECTORY "monChemin" AS '/u01';
 
DECLARE
/* Création du descripteur de fichier */
monFichier  UTL_FILE.FILE_TYPE;
buffer varchar2 (10);
 
begin
/* Ouverture du fichier Transco_ipp.txt en lecture (r)
   si situant dans le répertoire contenu dans l'objet DIRECTORY
   monChemin.
*/
monFichier := UTL_FILE.FOPEN ('monChemin','Transco_ipp.txt', 'r');
 
loop
  begin
    utl_file.get_line (monFichier, buffer);
  exception
    when no_data_found then exit;
  end;
--  INSERT INTO opts(valeur) VALUES(buffer);
  UPDATE tableX SET PAT_C_IPP='buffer' WHERE ...
end loop;
commit;
 
/* Fermeture du descripteur de fichier */
UTL_FILE.FCLOSE (monFichier);
 
/* Bloc d'exceptions */
EXCEPTION
  WHEN UTL_FILE.INVALID_PATH then
  dbms_output.put_line ('Chemin Invalide');
  RAISE;
  WHEN OTHERS then
     RAISE;
end;
/

Au niveau de l'UPDATE, je suis coincé.
Je voudrais faire :

Code :

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

1
2
 
UPDATE maTable SET maColonne='2ème champ de mon fichier texte' WHERE maColonne='1er champ de mon fichier texte'

Pourriez-vous m'aiguiller SVP, je n'arrive pas à me le représenter via le langage ?
Merci.

Bonne journée.
Cdlt,
Olivier

[Scriuiw]

Faire une fonction qui boucle sur le buffer en effectuant un découpage zone à zone à l'aide du séparateur (SUBSTR, INSTR)

[Reivilo35]

Pourrais-je avoir un exemple de syntaxe SVP?
Si qqun pouvait m'aider.
Merci.
Cdlt,
Olivier

[McM]

Ta variable buffer contient donc une ligne à chaque boucle (enfin faudra augmenter sa taille parce que buffer est déclaré en varchar2(10) et que tes lignes font visiblement 17 caractères minimum)

c'est comme si tu avais affecté buffer := '837470;3000837470';
à toi de découper ta chaine comme le dit Scriuiw en utilisant le séparateur

Code :

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

1
2
v1 := SUBSTR(buffer, 1, INSTR(buffer, ';') -1);
v2 := SUBSTR(buffer, INSTR(buffer, ';') +1);

et ensuite tu passes ton update avec ces variables.