Extraction de chaines numériques d'un VARCHAR

Version imprimable

25/07/2007, 11h48
Tententai

Extraction de chaines numériques d'un VARCHAR

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 :D Existe-t-il une astuce pour le faire simplement ?
25/07/2007, 11h53
McM

Y'a rien de prévu nativement.
Comment tu boucles ?
25/07/2007, 12h03
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 :)
25/07/2007, 13h14
miloux32

Citation:

Envoyé par 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 :)

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

salut,

Adaptes ce code à ton besoin.

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
 
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:

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

25/07/2007, 13h59
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 :D 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.
25/07/2007, 14h11
McM

Citation:

Envoyé par 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 :)

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

Code:

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

Citation:

Envoyé par Tententai

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.

un truc du style :
Code:

1 2 3 4 5 6 7 chaine := LTRIM(TRANSLATE(UPPER(chaine),'ABCD...Z',' ... ')); WHILE LENGTH(chaine)>0 LOOP chiffre := TO_NUMBER(RTRIM(SUBSTR(chaine,1,INSTR(LTRIM(chaine),' '))); chaine := LTRIM(SUBSTR(chaine,INSTR(LTRIM(chaine),' '))); dbms_output.put_line(chiffre); END LOOP;

25/07/2007, 15h31
Tententai

Ah ben pour la peine j'ai même plusieurs solutions :D

En tests ça marche bien, je vais voir laquelle tourne le plus vite dans mon cas particulier.

Merci à tous !
25/07/2007, 15h54
McM

Attention avec la méthode d'orafrance tu peux avoir une boucle infinie !
(Si la chaine se termine par un nombre)

Rajoute toujours un espace à la fin de chaine
25/07/2007, 16h19
orafrance

bah non... je fais systématiquement un SUBSTR sur la chaine pour supprimer le nombre ;)

Ben oui, mais le INSTR renvoie NULL s'il n'y a plus d'espaces

Code:

1
2
LTRIM(SUBSTR('8 ',INSTR(LTRIM('8 '),' '))) => NULL
LTRIM(SUBSTR('8',INSTR(LTRIM('8'),' '))) => '8'

En reprenant ton code (1 parenthèse de rajoutée)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DECLARE
chaine VARCHAR2(20);
chiffre NUMBER;
i NUMBER := 0;
BEGIN
chaine := '123 456 8';
WHILE LENGTH(chaine)>0 
	AND i < 5
LOOP
	i := i + 1;
 chiffre := TO_NUMBER(RTRIM(SUBSTR(chaine,1,INSTR(LTRIM(chaine),' '))));
 chaine := LTRIM(SUBSTR(chaine,INSTR(LTRIM(chaine),' ')));
 DBMS_OUTPUT.PUT_LINE(chaine || ':= ' || chiffre);
END LOOP;
END;

Code:

1
2
3
4
5
6
456 8:= 123
8:= 456
8:= 
8:= 
8:= 
(là ça boucle... ça s'arrête grâce à i)

Avec chaine = '123 456 8 '

Code:

1
2
3
456 8 := 123
8 := 456
:= 8

25/07/2007, 16h49
orafrance

ha oui... bien vu :mouarf:

et ta solution est plus "classe"... même si je ne comprends rien :aie:
25/07/2007, 16h54
McM

Elle vient pas de moi... j'ai jamais fait de XML.
Pour rendre à César ce qui est à César, je vais rechercher le post pour savoir Qui avait posté ce truc :lol:
25/07/2007, 17h00
Tententai

J'avoue que je suis aussi entrain d'essayer de comprendre comment ça marche :mouarf: (comme ça j'apprends le xml en même temps, hop)

Le problème d'origine était celui ci (j'ai pas retrouvé le post)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Découpage d'une chaine de caractère
 
WITH t AS (
  SELECT 'Un, Trois, Cinq, Six' c FROM dual UNION ALL
  SELECT 'Un, Deux, Quatre' FROM dual UNION ALL
  SELECT 'Trois' FROM dual UNION ALL
  SELECT 'Sept, Huit' FROM dual UNION ALL
  SELECT 'Un, Six' FROM dual
   )
  SELECT DISTINCT extractvalue(column_value,'/x')
  FROM t,
 TABLE(xmlsequence(extract(xmltype('<list><x>'||REPLACE(c,', ','</x><x>')||'</x></list>'),
      '/list/x')))
 
Cinq
Deux
Huit
Quatre
Sept
Six
Trois
Un