1. #1
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut "order by" alphanumérique

    Bonjour à tous,

    Ma question est un peu compliquée alors je vais essayer d'être le plus explicite possible. Voila j'ai une TABLE FICHE contenant les champs suivants (IDENT varchar(20), DESIGNATION VARCHAR(100)) et comme clé primaire IDENT et en prenant l'exemple de saisie suivant

    IDENT DESIGNATION
    ARM1 ARMOIRE COULOIR
    ARM2 ARMOIRE BUREAU
    BURE1 BUREAU CLASSIQUE
    BURE2 BUREAU TRADITIONNEL

    ....
    ARM10 ARMOIRE CAISSE
    ARM11 ARMOIRE CHAMBRE
    ect
    avec la commande sql suivante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    select * from FICHE order by ident
    j’obtiens ce résultat


    IDENT DESIGNATION
    ARM1 ARMOIRE COULOIR
    ARM10 ARMORE CAISSE
    ARM11 ARMOIRE CHAMBRE
    ARM2 ARMOIRE BUREAU
    BURE1 BUREAU CLASSIQUE
    BURE2 BUREAU TRADITIONNEL
    ect
    la question est comment ordonner par rapport à la partie alphabétique et la partie numérique en même temps sachant que la partie alphabétique a une taille variable .

  2. #2
    Expert éminent

    Homme Profil pro
    bourreau
    Inscrit en
    mars 2010
    Messages
    3 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : mars 2010
    Messages : 3 642
    Points : 8 219
    Points
    8 219
    Billets dans le blog
    1

    Par défaut

    Bonjour,

    Problèmes avérés :
    - la position des chiffres peut varier : dans votre extrait, le 1er chiffre est soit en 4ème (ARM1) soit en 5ème position (BURE1)
    - la valeur du 1er chiffre peut varier : dans votre extrait c'est soit 1 (ARM1) soit 2 (ARM2)

    Problèmes potentiels
    - y a -t- il systématiquement au moins un chiffre dans l'identifiant ?
    - ne peut on pas avoir des identifiants qui contiennent alternativement des chiffres et des lettres (ex: ARM3XX5) en ce cas quelle règle appliquer ?
    - ne peut on avoir des caractères minuscules, accentués, spéciaux, en ce cas comment souhaitez vous les trier ?

    Bref, c'est un joyeux souk

    De plus l'utilisation d'un identifiant primaire de type (var)char est une véritable hérésie

    Si vous en avez la possibilité, la seule bonne solution est de refaire une table avec un identifiant asémantique pour en garantir la stabilité et concis pour optimiser les performances.
    Le meilleur moyen est une colonne de type integer, dont la valeur est attribuée par le SGBD (identity column).

  3. #3
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut

    Bonjour,
    Problèmes avérés :
    - la position des chiffres peut varier : dans votre extrait, le 1er chiffre est soit en 4ème (ARM1) soit en 5ème position (BURE1)
    - la valeur du 1er chiffre peut varier : dans votre extrait c'est soit 1 (ARM1) soit 2 (ARM2)
    La partie alphabétique est toujours en premier dans le champs "IDENT" EXPLE(MARTI1, MARTI2,...MARTIn, ARB1,ARB2..,ARBn)

    - y a -t- il systématiquement au moins un chiffre dans l'identifiant ?
    Il peut y avoir, plusieurs chiffres et plusieurs caractères. La seule règle c'est que la partie alphabétique est en premier.

    - ne peut on pas avoir des identifiants qui contiennent alternativement des chiffres et des lettres (ex: ARM3XX5)
    - ne peut on avoir des caractères minuscules, accentués, spéciaux, en ce cas comment souhaitez vous les trier ?
    NON.

    De plus l'utilisation d'un identifiant primaire de type (var)char est une véritable hérésie
    Je ne comprends pas où est le problème ?

    Bref, c'est un joyeux souk
    évitez les sous-entendus s'il vous plait.

  4. #4
    Expert éminent

    Homme Profil pro
    bourreau
    Inscrit en
    mars 2010
    Messages
    3 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : mars 2010
    Messages : 3 642
    Points : 8 219
    Points
    8 219
    Billets dans le blog
    1

    Par défaut

    Citation Envoyé par chekkal Voir le message
    il peut y avoir, plusieurs chiffres et plusieurs caractères. la seule règle c'est que la partie alphabétique est en premier.
    Ma question était, y en a -t- il forcément au moins un ? autrement dit, peut il y avoir des identifiants sans aucun chiffre

    Citation Envoyé par chekkal Voir le message
    je comprend pas ou est le probléme!?
    C'est une règle de base de modélisation : l'identifiant primaire doit être stable, c'est à dire invariant dans le temps.
    Or ici vous avez utilisé un identifiant ayant une signification (ARMxx pour les armoires, BUREyy pour le bureaux)
    Si demain quelqu'un décide que le BUREAU BURE33 n'est finalement pas un bureau mais une commode, il faut en modifier son identifiant, ce qui aura comme conséquence
    - la mise à jour de l'index primaire et de la page DATA pour la table concernée
    - le déplacement éventuel des pages INDEX et DATA (risque accru si la longueur de l'identifiant augmente)
    - la mise à jour en cascade de toutes les occurrences liées dans les tables filles liées par des contraintes de type "reference"
    - le déplacement éventuel des pages INDEX et DATA pour les occurrences des tables filles concernées
    Bref une multitudes de d'entrées-sorties inutiles qui vont plomber les perfs, et désorganiser la base de données
    De plus, pour un nombre d'identifiants égal, le type (var)char est beaucoup plus encombrant qu'un type integer, là encore, ça pénalise les performances
    Le (var)char est sensible à la collation, ce qui impacte le résultat des tris et regroupements (ORDER BY, DISTINCT)
    Enfin, pour certaines opérations, le varchar nécessite un réa alignement sur une longueur fixe, ce qui a également un coût, rebelotte les performances !

    Citation Envoyé par chekkal Voir le message
    évitez les sous-entendu s'il vous plait.
    Il n'y a aucun sous-entendu, du char et pire encore du varchar, c'est une très mauvaise idée pour l'identifiant primaire. Un identifiant alternatif de type (var)char ne pose lui aucun souci (par exemple pour une recherche sur le nom), mais encore une fois, pas le primaire !

  5. #5
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 143
    Points : 20 911
    Points
    20 911
    Billets dans le blog
    9

    Par défaut

    Bonjour,

    à mon avis, faut pas rêver c'est votre structure de table/base de données qu'il faut revoir.
    Outre les hérésies pointées par escartefigue, je remarque que selon vos données vous avez en quelque sorte raté une notion de famille (ARMOIRE, BUREAU) dans votre analyse


    Il y a certainement moyen de faire ce que vous demandez en passant par une procédure ou une fonction UDF personnelle mais le jeu n'en vaut pas la chandelle

    J'ai passé un peu de temps sur le truc qui suit (ce qui fait que la discussion à évoluer depuis) , pour la partie procédure vous pouvez vous en inspirer
    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
     
    SET TERM ! ;
     
    EXECUTE BLOCK 
    RETURNS (ABLOC VARCHAR(10),
             ANUMBER INTEGER)
    AS
    DECLARE I SMALLINT;
    DECLARE L SMALLINT;
    DECLARE PARTN VARCHAR(10);
    DECLARE ATEXT VARCHAR(10);
     
    BEGIN
    ATEXT='AZRE10';
    L=CHAR_LENGTH(ATEXT);
    I=0;
    WHILE (L>=I) DO 
    BEGIN
     PARTN=SUBSTRING(ATEXT FROM L-i FOR I+1);
     ABLOC=SUBSTRING(ATEXT FROM 1 FOR L-i-1);
     ANUMBER=CAST(PARTN AS INTEGER);
     I=I+1;
    END 
    SUSPEND;
     WHEN ANY DO BEGIN  -- erreur de conversion
       I=I-1;
       PARTN=SUBSTRING(ATEXT FROM L-i FOR I+1);
       ABLOC=SUBSTRING(ATEXT FROM 1 FOR L-i-1);
       ANUMBER=CAST(PARTN AS INTEGER);
       SUSPEND;
      END           
    END!

    P.S. le "joyeux souk" n'est pas un sous-entendu à votre nationalité c'est devenu une expression plutôt commune dans la langue française escartefigue aurait pu écrire à la place de souk : bordel (pas très poli) ou capharnaüm tout aussi bien, pas la peine de prendre la mouche !
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  6. #6
    Expert éminent

    Homme Profil pro
    bourreau
    Inscrit en
    mars 2010
    Messages
    3 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : mars 2010
    Messages : 3 642
    Points : 8 219
    Points
    8 219
    Billets dans le blog
    1

    Par défaut

    Citation Envoyé par SergioMaster Voir le message
    P.S. le "joyeux souk" n'est pas un sous-entendu à votre nationalité c'est devenu une expression plutôt commune dans la langue française escartefigue aurait pu écrire à la place de souk : bordel (pas très poli) ou capharnaüm tout aussi bien, pas la peine de prendre la mouche !
    Je confirme, je n'avais d'ailleurs pas prêté attention à la nationalité de Chekkal

    @Chekkal : toutes mes excuses si toutefois j'ai été maladroit, c'était tout à fait involontaire

  7. #7
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 143
    Points : 20 911
    Points
    20 911
    Billets dans le blog
    9

    Par défaut

    J'ai légèrement modifié cette "procédure" pour les cas où !
    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
    SET TERM ! ;
     
    EXECUTE BLOCK 
    RETURNS (ABLOC VARCHAR(10),
             ANUMBER INTEGER)
    AS
    DECLARE I SMALLINT;
    DECLARE L SMALLINT;
    DECLARE PARTN VARCHAR(10);
    DECLARE ATEXT VARCHAR(10);
     
    BEGIN
    ATEXT='ARM10A';   -- codification non conforme   
    L=CHAR_LENGTH(ATEXT);
    I=0;
    WHILE (L>=I) DO 
    BEGIN
     PARTN=SUBSTRING(ATEXT FROM L-i FOR I+1);
     ABLOC=SUBSTRING(ATEXT FROM 1 FOR L-i-1);
     ANUMBER=CAST(PARTN AS INTEGER);
     I=I+1;
    END 
    SUSPEND;
     WHEN ANY DO BEGIN  -- erreur de conversion
       I=I-1;
       PARTN=SUBSTRING(ATEXT FROM L-i FOR I+1);
       ABLOC=SUBSTRING(ATEXT FROM 1 FOR L-i-1);
       IF (CHAR_LENGTH(PARTN)=0)  THEN ANUMBER=0;
                                  ELSE ANUMBER=CAST(PARTN AS INTEGER);
       SUSPEND;
      END           
    END!
    et me pose la question de savoir si une expression régulière (SIMILAR) ne pourrait pas fonctionner
    [Edit] les expressions régulières dans un substring ne sont valable qu'à partir de firebird 3.0.3 https://firebirdsql.org/file/documen...02ch09s05.html
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  8. #8
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut

    Bonjour,

    Ma question était, y en a -t- il forcément au moins un ? autrement dit, peut il y avoir des identifiants sans aucun chiffre
    NON, la saisie est toujours ALPHABETIQUE+NUMERIQUE, SEULE LA TAILLE CHANGE.

    C'est une règle de base de modélisation : l'identifiant primaire doit être stable, c'est à dire invariant dans le temps.
    Je travaille selon une demande fournie par un client.

    De plus, pour un nombre d'identifiants égal, le type (var)char est beaucoup plus encombrant qu'un type integer, là encore, ça pénalise les performances
    Le (var)char est sensible à la collation, ce qui impacte le résultat des tris et regroupements (ORDER BY, DISTINCT)
    Enfin, pour certaines opérations, le varchar nécessite un réa alignement sur une longueur fixe, ce qui a également un coût, rebelotte les performances !
    J'ai utilisé le varchar, parce que la saisie peut varier plus tard vers d'autres caractères.

    je remarque que selon vos données vous avez en quelque sorte raté une notion de famille (ARMOIRE, BUREAU) dans votre analyse
    Non, je n'ai pas oublié la Notion de Famille, mais je me soumets seulement à une demande d'un client.

    Il y a certainement moyen de faire ce que vous demandez en passant par une procédure ou une fonction UDF personnelle mais le jeu n'en vaut pas la chandelle

    J'ai passé un peu de temps sur le truc qui suit (ce qui fait que la discussion à évoluer depuis) , pour la partie procédure vous pouvez vous en inspirer
    Franchement, je n'ai pas compris cette procédure. En quoi peut-elle m'aider dans "order by" ?

  9. #9
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 143
    Points : 20 911
    Points
    20 911
    Billets dans le blog
    9

    Par défaut

    Bonjour,
    Citation Envoyé par chekkal Voir le message
    Non, je n'ai pas oublié la Notion de Famille, mais je me soumets seulement à une demande d'un client.
    Ce n'est pas pour cela qu'il ne faut pas lui signaler ! cela fait partie du job d'analyste, le client n'y connait peut être rien en base de données et demain il peut très bien vouloir , par exemple, ne voir que les Bureaux

    Franchement, je n'ai pas compris cette procédure. En quoi peut-elle m'aider dans "order by" ?
    Vous remarquerez qu'il ne s'agit pas d'une procédure mains d'un BLOCK qui permet de vérifier un algorithme de transformation en deux parties d'une donnée.
    j'ai pensé, à tort semble t-il, que vous auriez pu :
    1- la tester pour voir (en changeant la valeur de ATEXT à chaque essai)
    2- l'analyser pour comprendre le principe
    3- l'appliquer comme suit

    ce qui suit n'est pas testé par manque de temps, il manque peut être des : par ci par là
    fournir un script de création de la table et d'insertion de données m'aurait certainement permis de le faire!

    Construisez une procédure
    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
     
    SET TERM ^ ;
     
    CREATE PROCEDURE  FICHETRIE
    RETURNS 
     ( IDENT VARCHAR(10),
       DESIGNATION VARCHAR(100),
       PARTALPHA VARCHAR(10),
       PARTNUMBER INTEGER )
    AS 
    DECLARE I SMALLINT;
    DECLARE L SMALLINT;
    DECLARE PARTNA VARCHAR(10); 
    BEGIN
      FOR SELECT IDENT,DESIGNATION from FICHE INTO :IDENT,:DESIGNATION DO 
      BEGIN
         L=CHAR_LENGTH(IDENT);
         I=0;
        WHILE (L>=I) DO 
           PARTNA=SUBSTRING(IDENT FROM L-i FOR I+1);
           PARTALPHA=SUBSTRING(IDENT FROM 1 FOR L-i-1);
           PARTNUMBER=CAST(PARTNA AS INTEGER);
           I=I+1;
        END -- WHILE
        WHEN ANY DO BEGIN  -- erreur de conversion
         I=I-1;
         PARTNA=SUBSTRING(IDENT FROM L-i FOR I+1);
         PARTALPHA=SUBSTRING(IDENT FROM 1 FOR L-i-1);
         IF (CHAR_LENGTH(PARTN)=0)  THEN PARTNUMBER=0;
                                                 ELSE PARTNUMBER=CAST(PARTN AS INTEGER);
        END -- ERREUR          
        SUSPEND;
     END  -- FOR SELECT 
    END^
     
    SET TERM ; ^
    utilisez alors
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SELECT IDENT,DESIGNATION FROM FICHETRIE ORDER BY PARTALPHA,PARTNUMBER
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  10. #10
    Expert éminent

    Homme Profil pro
    bourreau
    Inscrit en
    mars 2010
    Messages
    3 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : mars 2010
    Messages : 3 642
    Points : 8 219
    Points
    8 219
    Billets dans le blog
    1

    Par défaut

    Citation Envoyé par chekkal Voir le message
    Je travaille selon une demande fournie par un client.

    [. . .]

    Non, je n'ai pas oublié la Notion de Famille, mais je me soumets seulement à une demande d'un client.
    Chacun doit être dans son rôle : le client exprime le "quoi", l'informaticien choisit le "comment" obtenir ce "quoi"
    Le client souhait identifier ses meubles par un code genre "BURE2", "ARM1" etc... qu'à cela ne tienne, conservez cet identifiant comme clef alternative, et choisissez en plus un identifiant primaire dans les règles de l'art.
    Ca ne gênera en rien la satisfaction du client, et c'est même tout le contraire car un identifiant primaire bien construit est d'une part un gage de fiabilité et d'autre part un gage de performances.

  11. #11
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut

    Bonjour,

    J'ai modifié un petit peu le code comme cela
    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
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
     
    SET TERM ^ ;
    ALTER PROCEDURE FICHETRIE
    RETURNS (
        IDENT Varchar(10),
        DESIGNATION Varchar(100),
        PARTALPHA Varchar(10),
        PARTNUMBER Integer )
    AS
    DECLARE I SMALLINT;
    DECLARE L SMALLINT;
    DECLARE s1 VARCHAR(1); 
    DECLARE s2 VARCHAR(10); 
    BEGIN
      FOR SELECT IDENT,DESIGNATION from STK INTO :IDENT,:DESIGNATION DO 
      BEGIN
             L=CHAR_LENGTH(:IDENT);
             I=1;s2='';s1=SUBSTRING(:IDENT FROM :i FOR 1);
             WHILE ((L>=:I)and((select * from int_check(:s1))=-1)) DO 
             begin 
                  s2=:s2||s1;
                  I=I+1;
                  if (L>=I) then s1=SUBSTRING(:IDENT FROM :i FOR 1);
             END
             PARTALPHA=:s2;
     
             PARTNUMBER=cast (SUBSTRING(:IDENT FROM :i FOR :L-:i+1) as integer);
             suspend;
     
     END 
     
    END^
    SET TERM ; ^
     
     
    GRANT EXECUTE
     ON PROCEDURE FICHETRIE TO  SYSDBA;
     
     
    /*j'ai ajouter cette procédure pour tester si integer ou non*/
     
    create or alter procedure int_CHECK (
        IN_STR varchar(100))
    returns (
        ORESULT integer)
    as
    BEGIN
      begin
      oresult = cast(:in_str as integer);
      when any do
          begin
            oresult = -1;
          end
      end
      suspend;
    END^
     
    SET TERM ; ^
    et ça marche

  12. #12
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 143
    Points : 20 911
    Points
    20 911
    Billets dans le blog
    9

    Par défaut

    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    (select * from int_check(:s1))=-1
    c'est quoi ça ce besoin de procédure en plus! c'est plutôt


    pourquoi ne pas utiliser une expression régulière
    s1 SIMILAR TO [:ALPHA:] ou s1 SIMILAR TO [^[:DIGIT:]]voilà qui permet de traiter des codes comme AR1M10 ou même ARM1A, donc une procédure plus générale
    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
     
    SET TERM ! ;
    ALTER PROCEDURE FICHETRIE
    RETURNS (
        IDENT Varchar(10),
        DESIGNATION Varchar(100),
        PARTALPHA Varchar(10),
        PARTNUMBER Integer )
    AS
    DECLARE I SMALLINT;
    DECLARE PARTN VARCHAR(10);
    BEGIN
      FOR SELECT IDENT,DESIGNATION from STK INTO :IDENT,:DESIGNATION DO 
      BEGIN
       CHARFOUND=0; 
       I=CHAR_LENGTH(IDENT);
      PARTALPHA='';
      PARTN='';
      WHILE (I>0) DO 
       BEGIN
       IF ((SUBSTRING(IDENT FROM I FOR 1) SIMILAR TO '[^[:DIGIT:]]') OR (CHARFOUND>0)) 
       THEN BEGIN  
        ABLOC=SUBSTRING(IDENT FROM I FOR 1)||ABLOC;
        CHARFOUND=1;
       END 
       ELSE PARTN=SUBSTRING(IDENT FROM I FOR 1)||PARTN;
       I=I-1;
     END 
     PARTNUMBER=0; 
     IF (CHAR_LENGTH(PARTN)>0) THEN PARTNUMBER=CAST(PARTN AS INTEGER);
     SUSPEND; 
    END
    END !
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  13. #13
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut

    Bonjour,

    il ya des erreurs dans ton code!
    CHARFOUND ?????
    ABLOC ????
    En devinant leur type j'ai modifié ton code comme ceci.
    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
    SET TERM ! ;
    ALTER PROCEDURE FICHETRIE
    RETURNS (
        IDENT Varchar(10),
        DESIGNATION Varchar(100),
        PARTALPHA Varchar(10),
        PARTNUMBER Integer )
    AS
    DECLARE I SMALLINT;
    DECLARE PARTN VARCHAR(10);
    DECLARE CHARFOUND SMALLINT;
    DECLARE ABLOC VARCHAR(10);
    BEGIN
      FOR SELECT IDENT,DESIGNATION from STK INTO :IDENT,:DESIGNATION DO 
      BEGIN
       CHARFOUND=0; 
       I=CHAR_LENGTH(IDENT);
      PARTALPHA='';
      PARTN='';
      WHILE (I>0) DO 
       BEGIN
       IF ((SUBSTRING(IDENT FROM I FOR 1) SIMILAR TO '[^[:DIGIT:]]') OR (CHARFOUND>0)) 
       THEN BEGIN  
        ABLOC=SUBSTRING(IDENT FROM I FOR 1)||ABLOC;
        CHARFOUND=1;
       END 
       ELSE PARTN=SUBSTRING(IDENT FROM I FOR 1)||PARTN;
       I=I-1;
     END 
     PARTNUMBER=0; 
     IF (CHAR_LENGTH(PARTN)>0) THEN PARTNUMBER=CAST(PARTN AS INTEGER);
     SUSPEND; 
    END
    END !
    Le code s’exécute mais le résultat est faux . Il donne que la partie numérique.

  14. #14
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 143
    Points : 20 911
    Points
    20 911
    Billets dans le blog
    9

    Par défaut

    Bonjour,

    parce que je me suis trompé sur ABLOC faisait partie de mon test
    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
    SET TERM ! ;
     
    EXECUTE BLOCK 
    RETURNS (ABLOC VARCHAR(10),
             ANUMBER INTEGER)
    AS
    DECLARE I SMALLINT;
    DECLARE L SMALLINT;
    DECLARE PARTN VARCHAR(10);
    DECLARE ATEXT VARCHAR(10);
    DECLARE CHARFOUND SMALLINT;
    BEGIN
    ATEXT='AR1M10';
    CHARFOUND=0;
    I=CHAR_LENGTH(ATEXT);
    ABLOC='';
    PARTN='';
    WHILE (I>0) DO 
    BEGIN
     IF ((SUBSTRING(ATEXT FROM I FOR 1) SIMILAR TO '[^[:DIGIT:]]') OR (CHARFOUND>0)) 
     THEN BEGIN  
        ABLOC=SUBSTRING(ATEXT FROM I FOR 1)||ABLOC;
        CHARFOUND=1;
     END 
     ELSE PARTN=SUBSTRING(ATEXT FROM I FOR 1)||PARTN;
     I=I-1;
    END
    ANUMBER=0; 
    IF (CHAR_LENGTH(PARTN)>0) THEN ANUMBER=CAST(PARTN AS INTEGER);
    SUSPEND;
    END!
    qui fonctionne correctement

    ARM10 donne ARM 10
    AR1M10 donne AR1M 10
    ARM10A donne ARM10A 0
    il faut simplement remplacer ABLOC par PARTALPHA et, oui je l'ai oublié en procédant à la conversion du code Ajouter CHARFOUND
    Au départ je voulais juste démontré qu'il était possible d'utiliser les expressions régulières, pas mâcher le travail comme j'ai fini par le faire à partir de https://www.developpez.net/forums/d1.../#post10318530

    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
    SET TERM ! ;
    ALTER PROCEDURE FICHETRIE
    RETURNS (
        IDENT Varchar(10),
        DESIGNATION Varchar(100),
        PARTALPHA Varchar(10),
        PARTNUMBER Integer )
    AS
    DECLARE I SMALLINT;
    DECLARE PARTN VARCHAR(10);
    DECLARE CHARFOUND SMALLINT;
    BEGIN
      FOR SELECT IDENT,DESIGNATION from STK INTO :IDENT,:DESIGNATION DO 
      BEGIN
       CHARFOUND=0; 
       I=CHAR_LENGTH(IDENT);
      PARTALPHA='';
      PARTN='';
      WHILE (I>0) DO 
       BEGIN
       IF ((SUBSTRING(IDENT FROM I FOR 1) SIMILAR TO '[^[:DIGIT:]]') OR (CHARFOUND>0)) 
       THEN BEGIN  
        PARTALPHA=SUBSTRING(IDENT FROM I FOR 1)||PARTALPHA;
        CHARFOUND=1;
       END 
       ELSE PARTN=SUBSTRING(IDENT FROM I FOR 1)||PARTN;
       I=I-1;
     END 
     PARTNUMBER=0; 
     IF (CHAR_LENGTH(PARTN)>0) THEN PARTNUMBER=CAST(PARTN AS INTEGER);
     SUSPEND; 
    END
    END !
    Le code s’exécute mais le résultat est faux . Il donne que la partie numérique.
    c'eut été de bonne guerre à ma critique de votre code, si votre correction n'avait pas aussi pêcher par une mauvaise rectification
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  15. #15
    Membre actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2010
    Messages
    611
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2010
    Messages : 611
    Points : 201
    Points
    201

    Par défaut

    c'eut été de bonne guerre à ma critique de votre code, si votre correction n'avait pas aussi pêcher par une mauvaise rectification
    j'ai pas corrigé votre code pour qu'il donne un résultat correcte mais pour qu'il s’exécute seulement. Par ailleurs j'ai testé votre code corrigé et le mien et le temps d’exécution c'est pareil.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Quote et double quote
    Par aktos dans le forum Fonctions
    Réponses: 8
    Dernier message: 05/01/2007, 19h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo