Sélectionner uniquement des champs numériques

:salut: Bonjour à tous

Je travaille avec Firebird 2.1. J'ai "hérité" d'une base contenant une table ARTICLE. Cette table contient, entre autres informations, la taille de l'article. Le champ est déclaré Varchar et peut contenir des valeurs numériques (25.5, 140,...) ou alphabétiques (XXL, L,M, ...) ou autres (24M, 25P65 ,....).

Existe-t-il une fonction ou une séquence de code qui me permettrait dans un select de ne récupérer que les lignes dont le champ TAILLE ne contient que des des valeurs numériques ? Un peu l'équivalent de IsNumeric

....et qui ne soit pas :lol: une usine à gaz :lol:

Bonjour,

Il y a SIMILAR TO, un équivalent pauvre des expressions régulières, pour ça

Code:

---

1 2 3

SELECT r.CODE_ART,r.TAILLE_LOC FROM ART_LOC r WHERE R.TAILLE_LOC SIMILAR TO '[0123456789.]*'

---

NB. bien sûr on peut réduire en longueur 'fixe' en utilisant SIMILAR TO '[0123456789.]{4}'
ou 'variable' SIMILAR TO ''[0123456789.]{1,4}'
et compresser un peu l'expression [0123456789.] = [0-9.] ou encore [[:DIGIT:].]Edit : :oops: SIMILAR TO est du Firebird 2.5

Il doit y avoir moyen en utilisant EXECUTE BLOCK (flamerobin)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

SET TERM !; EXECUTE BLOCK RETURNS (CODE VARCHAR(6),TAILLE VARCHAR(20)) AS DECLARE VARIABLE N NUMERIC(15,4); BEGIN FOR SELECT CODE_ART_LOC,TAILLE_LOC FROM ART_LOC INTO :CODE,:TAILLE DO BEGIN N=CAST(:TAILLE AS NUMERIC(15,4)); IF (N>0) THEN SUSPEND; WHEN ANY DO N=0; END END!

---

:rire: Heureusement SergioMaster que tu as ajouté le petit edit. J'avais trouvé SIMILAR, mais j'avais aussi trouvé le refus de Firebird 2.1 :weird:

Maintenant, j'ai une question toute simple : peut-il y avoir dans la clause when l'appel à une procédure du style

Code:

---

when PROC(a.TAILLE ) = 0

---

La procédure PROC testant la zone et renvoyant 0 si la zone ne contient aucun caractère alpha ?

Je n'ai pas tout compris à cette "proc" mais je dirais non.
Pour info le EXECUTE BLOCK fonctionnera en 2.1

Je pars sur une autre piste : créer un fonction. J'ai trouvé des exemples de création d'une DLL avec Kylix et une avec Windows. En principe, je devrais y arriver, mais j'ai un doute. Voici le code de la fonction que je veux créer et ensuite des explications

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

library DLL;   uses SysUtils, Classes;   {$R *.res}   function ISALPHA (TAILLE : string) : integer; var i : integer; x : string; begin result := 0; i := strlen(PChar(TAILLE)); while (i > 0) do begin x := substr( TAILLE, i, 1); <====== if ((x >= 'A') and (x <= 'Z')) then exit; if ((x >= 'a') and (x <='z')) then exit; i := i -1; end result := 1; end; begin end.

---

Je me suis inspiré d'un exemple sous windows. Autant strlen() existe en Delphi, autant substr n'existe pas. Cette fonction existe dans un répertoire à moi. Faire la liaison ne me pose pas de problème : un copier coller dans le répertoire de la DLL et un uses bien placé et cela devrait faire, mais puis-je faire cela dans le cas d'une DLL ?

Apparemment, ma question est sans objet, quoique...

Maintenant j'ai un autre souci : je ne peux pas la tester. En effet, voici un code tout simple mis dans une procédure

Code:

---

x = strlen('gggggg';

---

[QUOTE]

J'ai un beau message

Citation:

---

STRLEN : tocken unknown

---

ce qui est incompréhensible, puisque j'ai récupéré strlen par Ctrl+Espace et que j'ai une autre procédure qui l'utilise depuis bientôt dix ans ! Alors lorsque j'utilise isalpha j'ai le même message et je ne peux aller plus loin

Petite précision : ISALPHA est bien dans la liste des fonctions de ma base

Bonjour,

Citation:

---

Envoyé par JP.NUAGE

Code:

---

x = strlen('gggggg';

---

---

Il ne manquerait pas la parenthèse de fermeture?
Copy n'est-il pas équivalent à substring du-moins en ANSI?
Les fonctions UDF ont pour inconvénient de nécessiter une installation supplémentaire sur chaque serveur d'une version particulière à l'OS de ce serveur. Au moins lorsque le problème est simple, je préfère utiliser une procédure stockée dans la base. Par exemple celle-ci pourrait peut-être répondre à votre problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

SET TERM ^ ;   CREATE or ALTER PROCEDURE ValChamp(Valeur varchar(255)) RETURNS(TypeChamp smallint ,ValString varchar(255) ,ValFloat double precision) AS BEGIN begin valfloat=cast(trim(replace(valeur,',','.')) as double precision); typechamp=2; when any do begin typechamp=1; valstring=valeur; end end suspend; END^   SET TERM ; ^

---

André

Dont acte pour la parenthèse, mais la compilation n'était pas arrivée si loin. Dix minutes après avoir posté ma réponse, la compilation a accepté strlen et m'a signalé l'erreur de parenthèse ! :D:D

Le problème n'en est pas résolu pour autant. Voici le code de la procédure destinée à tester la fonction que je viens d'installer :

Code:

---

1 2 3 4 5 6 7 8

PROCEDURE GENN RETURNS ( J Integer ) AS begin j = isalpha('hhhhh'); suspend; end^

---

Pas d'erreur à la compilation, mais lorsque je veux l'enregistrer cela part en boucle, et me plante flamerobin. Je dois forcer l'arrêt. Et derrière, plus de Firebird...enfin si, il est toujours actif, mais inutilisable et je dois "lui taper dessus" pour l'arrêter. Ce n'est qu'après dix tentatives de Stop, qu'enfin il s'arrête et je peux le redémarrer correctement.

Je dois avoir loupé quelque chose mais ....:koi::koi:

A toutes fins utiles, voici le code de la fonction isalpha et la déclaration pour sa création dans la base.

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 30 31 32 33 34

library ALPHA; uses ShareMem, SysUtils, fonctions, Classes;   {$R *.res}   function ISALPHA (TAILLE : string) : integer; stdcall; var i : integer; x : string; begin result := 0; i := strlen(PChar(TAILLE)); while (i > 0) do begin x := Fonction.substr( TAILLE, i, 1); if ((x >= 'A') and (x <= 'Z')) then exit; if ((x >= 'a') and (x <='z')) then exit; i := i -1; end; result := 1; end;   exports iSALPHA;   begin end.

---

Code:

---

1 2 3 4 5

DECLARE EXTERNAL FUNCTION ISALPHA CSTRING(10) RETURNS Integer BY VALUE ENTRY_POINT 'ISALPHA' MODULE_NAME 'ALPHA';

---

Bonjour,

il me semble que la fonction isalpha devrait avoir comme argument un PANSICHAR (avec D7 un PChar suffirait) et non un String.


voici ma proposition (test rapide à contrôler plus en détail)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function ContainAlpha(Test : PChar): Integer; Var x : Char; i : integer; begin i:=Pred(Strlen(Test)); // pour éviter le #0 de fin de chaine while (i>=0) do begin x:=Test[i]; if x in ['a'..'z','A'..'Z'] then begin Result:=-1; exit; end; Dec(i); end; Result:=0; end;

---

Je n'ai pas pu utiliser la fonction Test : elle ne doit pas être disponible sous Firebird 2.1, mais cela n'est pas important. En revanche, j'ai fais les modification concernant le PChar. J'ai testé dans un petit module Delphi : elle fonctionne parfaitement, mais côté Firebird, j'ai le même blocage lorsque je veux enregistrer GENN (ma procédure de test)

Bonjour

Citation:

---

Envoyé par JP.NUAGE

Je n'ai pas pu utiliser la fonction Test : elle ne doit pas être disponible sous Firebird 2.1, mais cela n'est pas important.

---

:koi: quelle fonction test ?

Citation:

---

En revanche, j'ai fais les modification concernant le PChar. J'ai testé dans un petit module Delphi : elle fonctionne parfaitement, mais côté Firebird, j'ai le même blocage lorsque je veux enregistrer GENN (ma procédure de test)

---

mais pourquoi diable une procédure ? pour tester un simple SELECT F_ISALPHA('H123') from RDB$DATABASEbien sûr il y a deux ou trois petites choses à faire au préalable :
- avoir mis la dll au bon endroit
- être sûr qu'il s'agit bien d'une dll de même "poids" que la version de Firebird (Firebird 32bits => dll 32 bits, Firebird 64 => dll 64bits)
- avoir déclaré l'utilisation de la fonction (declare external, en général je mets un F_ devant pour éviter la confusion avec le nom dans la dll)
- avoir redémarré le service firebird

Bonjour,

Si l'objet de cette discussion c'est d'apprendre à créer une fonction UDF, vous avez raison de poursuivre sur cette voie, sinon c'est chercher les complications (pour pas dire les emm;)).
Pour reprendre la méthode présentée précédemment par Sergio avec execute block, voici un exemple sous FB3.0 utilisant une sous-fonction:

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

set term ^;   execute block returns(code varchar(6) ,taille double precision ) as declare function valfloat(valstring varchar(20)) returns double precision as begin return cast(trim(replace(valstring,',','.')) as double precision); when any do begin end end begin for select CODE_ART_LOC,valfloat(TAILLE_LOC) from ART_LOC where valfloat(TAILLE_LOC) is not null into code,taille do suspend; end^   set term ;^

---

Comme FB2.1 ne connait ni les sous-fonctions ni les fonctions, il suffit de transformer cette sous-fonction en procédure stockée à appeler dans un select. Plus de problème d'UDF à installer dans la bonne version.

André

C'est vrai que j'aurais pu tester directement par la solution de Sergio_Master, (à condition de connaître cette astuce :ptdr:) mais j'ai trouvé la solution et la procédure fonctionne (comme le select d'ailleurs), et je sais (enfin je pense savoir) pourquoi il y avait un blocage : j'ai remplacé l'appel de la fonction substr par le code (dans ce cas, très court) de substr. et plus de blocage. c'est ce que dit alanglet
Et du même coup

Code:

---

select * from BASE where isalpha(TAILLE) =1

---

tourne comme une horloge !!!
:yaisse:
:merci: à tous