Discussion :

[Tententai]

Bonjour,

Dans une procédure PL SQL, j'ai une variable de type VARCHAR qui ressemble à ça :

"blabla 1234 blablabla 123 blabla 4567 blabla"

Mon but est d'en extraire toutes les chaines numériques :
1234
123
4567

De façon à pouvoir faire une boucle sur ces chaines pour tester certaines propriétés.

J'y parviens, mais avec une fonction très lourde et inélégante Existe-t-il une astuce pour le faire simplement ?

[McM]

Y'a rien de prévu nativement.
Comment tu boucles ?

[orafrance]

avec un translate ça devrait se faire facilement. Tu remplaces tout ce qui n'est pas un chiffre en espace et tu extraits les nombres avec des INSTR

[miloux32]

avec un translate ça devrait se faire facilement. Tu remplaces tout ce qui n'est pas un chiffre en espace et tu extraits les nombres avec des INSTR

Tu peux meme faire mieux apres non ?
genre en remplacant 2 espaces par un seul ( ainsi tu as une chaine "formatée")

[salim11]

salut,

Adaptes ce code à ton besoin.

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
 
CREATE OR REPLACE PACKAGE extraire_nb_pkg IS
TYPE outrecset IS TABLE OF number;
FUNCTION extraire_nb (v_chaine IN VARCHAR2)
RETURN outrecset PIPELINED;
END extraire_nb_pkg;
--Package body 
CREATE OR REPLACE PACKAGE BODY scott.extraire_nb_pkg
IS
   FUNCTION extraire_nb (v_chaine IN VARCHAR2)
      RETURN outrecset PIPELINED
   IS
      v_number   NUMBER;
      i          NUMBER := 1;
   BEGIN
      LOOP
         SELECT REGEXP_SUBSTR (v_chaine, '[[:digit:]]+{1,10}', 1, i)
           INTO v_number
           FROM DUAL;
 
         PIPE ROW (v_number);
         EXIT WHEN v_number IS NULL AND i > 1;
         i := i + 1;
      END LOOP;
 
      RETURN;
   END;
END extraire_nb_pkg;
/

Le résultat

Code :

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

1
2
3
4
5
6
7
8
9
 
SQL> select * from table(extraire_nb_pkg.extraire_nb('blabla 1254 hdghjdgh 12546 hjggsdh 12547 sdvjs
 '));
 
COLUMN_VALUE
------------
        1254
       12546
       12547

[Tententai]

Ca m'a l'air nickel cette fonction, mais je crois que REGEXP_SUBSTR ne fonctionne qu'à partir d'Oracle 10, ce sera dans quelques mois en ce qui me concerne En tout cas c'est bon à savoir.

Sinon pour l'idée précédente, si j'ai bien compris il faut transormer

"blabla 1234 blablabla 123 blabla 4567 blabla"

en

" 1234 123 4567 "

Mais ensuite comment je fais pour boucler sur ces trois nombres ? (j'ai besoin pour chacun d'entre eux de tester leur valeur et selon les cas les mémoriser dans une variable). Je ne vois pas trop comment procéder avec des INSTR.

[McM]

avec un translate ça devrait se faire facilement. Tu remplaces tout ce qui n'est pas un chiffre en espace et tu extraits les nombres avec des INSTR

C'est ce à quoi j'avais pensé mais si tu as ceci :
"blabla 1234 blabla 5678 bla9bla"
tu te retrouves avec "1234 5678 9"

[McM]

Code :

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

1
2
3
4
5
6
7
8
9
WITH t AS (
  SELECT TRIM(TRANSLATE('blablabla 1234 blajafiojz 5678 bla9bla', ' ' || TRANSLATE('blablabla 1234 blajafiojz 5678 bla9bla', 'a 0123456789', 'a'), ' ')) AS c
	FROM dual
   )
  SELECT DISTINCT extractvalue(COLUMN_VALUE,'/x')
  FROM t,
 TABLE(xmlsequence(EXTRACT(XMLTYPE('<list><x>'||REPLACE(c,' ','</x><x>')||'</x></list>'),
      '/list/x')))
WHERE extractvalue(COLUMN_VALUE,'/x') IS NOT NULL