Discussion :

[Issam]

Bonsoir,

je suis entrain de faire la maintenance d'une vielle application qui tourne avec Firebird 2.1


je cherche un moyen en natif donc pas de UDF via une fonction par exemple , d'enlever tout les caractères non numérique d'une chaine donnée,

donc si j'ai : ABCD2015 je dois avoir 2015 .

si c'est impossible en 2.1, est ce possible en 2.5 ... 3.0 ?


merci et bonne fin de journée !

[SergioMaster]

Bonjour,

il faudrait voir avec la fonction REPLACE présente dès la version 2.1
seulement je ne vois pas de solution autre que de le faire lettre par lettre

Code :

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

SELECT REPLACE(REPLACE(REPLACE('ABC2015','A',''),'B',''),'C','') FROM RDB$DATABASE

donnera bien '2015'

maintenant en créant une procédure , la fonction ASCII_CHAR() et une boucle couplée au REPLACE

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
SET TERM ^ ;
CREATE PROCEDURE OTERLETTRES (
    DEPART Varchar(30) )
RETURNS (
    ARRIVEE Varchar(30) )
AS
DECLARE VARIABLE I INTEGER; 
BEGIN
  ARRIVEE=UPPER(DEPART);
  i=65; -- A
  while (i <91 ) do -- to Z
  begin
   ARRIVEE=REPLACE(ARRIVEE,ASCII_CHAR(i),'');
   i = i + 1;
  end
  SUSPEND;
END^
SET TERM ; ^

testé sous fb 2.5 en tout cas , ça le fait

Code :

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

1
2
SELECT p.ARRIVEE
FROM OTERLETTRES ('ABCDWXYZ1234') p

-> 1234

[Issam]

WOW !

Merci chef !