Discussion :

[patrice@]

Bonjour à tous,
Je souhaite détecter le type d'une chaîne quelconque et dire s'il s'agit d'un texte, d'une date, d'un entier, d'un réel ...
Je fais 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
        function DetectType(const S1, S2: string): TSortTypeInterne;
        var
           ExtValue: Extended;
           CurrValue: Currency;
           DateValue: TDateTime;
           IntValue: Integer;
        begin
             if (TryStrToInt(S1,IntValue))
             and (TryStrToInt(S2,IntValue))
             then Result:=stiInteger
             else if (TryStrToCurr(S1,CurrValue))
                  and (TryStrToCurr(S2,CurrValue))
                  then Result:=stiCurrency
                  else if (TryStrToFloat(S1,ExtValue))
                       and (TryStrToFloat(S2,ExtValue))
                       then Result:=stiNumeric
                       else if (TryStrToDate(S1,DateValue))
                            and (TryStrToDate(S2,DateValue))
                            then Result:=stiDate
                            else Result:=stiText;
        end;

Mais ... j'ai un gros doute alors je souhaiterai voir s'il y a une programmation plus sure quand a la bonne attribution du type
En vous remerciant de votre contribution

[ShaiLeTroll]

D'où viennent les données ?
D'un fichier au contenu variable ?
D'une Base de données ? Dans ce cas, utile un Variant qui gère la notion de Type et de Valeur, cela permet ainsi d'adapter ses fonctions de comparaison


Ton code ma rappelle, un truc que j'ai baclé pour détecter le type d'un Code-Barre

Code sql :

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
 
  -- Détection approximative du type de contenant !
  -- Commence par les BLBR
  BEGIN
    SELECT 1 INTO ContenantType FROM T_BLBR br WHERE br.BLBR_CH_NUM = :pContenant;
  EXCEPTION WHEN NO_DATA_FOUND THEN 
    -- Ensuite essaye les colis
    BEGIN
      SELECT 3 INTO ContenantType FROM T_COLIS c WHERE LPAD(c.COL_N_NUMCOLIS, 9, '0') = :pContenant; 
    EXCEPTION WHEN NO_DATA_FOUND THEN     
      -- Enfin les inverntaires
      BEGIN
        SELECT 4 INTO ContenantType FROM T_INVENTAIRE inv WHERE LPAD(inv.IN_N_NUMINVEN, 9, '0') = :pContenant; 
      EXCEPTION WHEN NO_DATA_FOUND THEN     
        -- Si on ne trouve rien, on abandonne
        RAISE_APPLICATION_ERROR(-20000, 'Impossible de déterminer le type de contenant');
      END;
    END;  
  END;

[Roland Chastain]

Bonjour !

Le code me paraît bien conçu. Je me pose seulement la question de savoir si TryStrToCurr et TryStrToFloat ne vont pas toujours renvoyer le même résultat.

Code :

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

1
2
3
4
uses
  TypInfo;
  ...
  WriteLn(GetEnumName(TypeInfo(TSortTypeInterne), Ord(DetectType('1,5')))); // stiCurrency

Y a-t-il des cas où les deux fonctions ne renverront pas le même résultat ?

Sinon, personnellement, j'aurais fait une fonction avec un seul argument, pour ne pas dédoubler inutilement le code, et éventuellement une deuxième fonction avec deux arguments qui appelle la première.

Une dernière chose : il y a des parenthèses inutiles. On peut écrire simplement :

Code :

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

1
2
  if TryStrToInt(S1, IntValue)
    and TryStrToInt(S2, IntValue) then

P.-S. Le titre de la discussion est ambigu. Il s'agit plutôt de déterminer le type de donnée vers lequel une chaîne peut être convertie.

[retwas]

Tu peux aussi tester avec des expressions régulières.

[SergioMaster]

Tu peux aussi tester avec des expressions régulières.

j'allais le proposer quoiqu'en me disant que j'étais peut être trop obnubilé par celles-ci , l'herbe m'a été coupé sous le pied

[retwas]

j'allais le proposer quoiqu'en me disant que j'étais peut être trop obnubilé par celles-ci , l'herbe m'a été coupé sous le pied

Après avoir vu tes postes en leurs faveurs je les utilisent de plus en plus

[SergioMaster]

Après avoir vu tes posts en leurs faveurs je les utilisent de plus en plus

n'empêche que pour construire l'expression cela ne va pas être de la tarte
non seulement il y a les alternatives, mais il y a aussi le point décimal le séparateur de millier et la position du symbole (voire le symbole lui même) pour les monnaies à gérer

je me suis piqué au jeu
en voilà déjà une :
- pour les entiers ^[+-]?\d+$ - pour les monétaires sous la 'forme US' (symbole monétaire quelconque,+-, virgule séparateur de milliers et point décimal) ^([^\d\s]{1,}\s?[+-]?)(\d{1,3})(\,\d{3})*(\.\d{1,})?$soit en alternative

Code :

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

(?<Entier>^[+-]?\d+$)|(?<monetaire>^([^\d\s]{1,}\s?[+-]?)(\d{1,3})(\,\d{3})*(\.\d{1,})?$)

reste que cela me paraît bien "lourd"

Hors Sujet
mais pour encenser les expressions régulières un peu plus, voici mon expérience d'hier.
J'avais besoins de récupérer dans un fichier ini toutes les valeurs d'un texte sous la forme

[Message]
ligne1=xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ligne2=***********************
etc..

si récupérer toute un section ne pose pas de problème ReadSectionValues renvoie en entier la section pas uniquement les valeurs

Code :

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

1
2
3
4
5
 
  Texte : TStringList;
 
  F.ReadSectionValues('Message',Texte);
  Texte.Text:=TRegEx.Replace(Texte.text,'ligne\d*=','');

merci TRegEx.Replace

[Paul TOTH]

j'ai fait quelque chose dans le genre pour une zone de recherche intelligente

1) si je n'ai que des chiffres
-> si j'ai 10 chiffres c'est potentiellement un n° de téléphone
-> si j'ai 6 ou 8 chiffres c'est possible que ce soit une date de naissance
-> dans les autres cas je traite un numéro de dossier
-> sur une autre appli, 1 ou 2 chiffre représentaient l'age des individus

2) si j'ai des chiffres avec 3 "/" c'est une date

3) si j'ai 10 chiffres avec un séparateur tous les 2 chiffres c'est un numéro de téléphone

4) @ indique probablement un email

dans ton cas des chiffres avec 2 chiffres après une virgule (ou point) sera un montant

autre exemple, une appli permettait de rechercher par tranches d'age, soit deux nombres de maxi 2 chiffres séparés par un "-"

etc...

[SergioMaster]

Bonjour,
comme nous partions vers les expressions régulières ce qui n'était peut être pas fort a propos pour la demande de Patrice@ j'ai préféré scindé la discussion en deux
vous retrouverez notre "marteau pilon" à cette adresse https://www.developpez.net/forums/d1...ns-regulieres/

[patrice@]

Bonjour à tous,
En fait ce bout de code est implémenté dans une routine permettant de trier une stringgrid. Le code doit déterminer de quel type de valeur il s'agit.
Note à propos de la remarque de Roland Chastain : ah ben flute alors, j'étais persuadé qu'il fallait obligatoirement encadrer les évaluations multiples par les () !!!
Finalement, je me suis tourné vers ceci (pourquoi je perds les indentation de mon code ???) :

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
function CellCompare(const AStringGrid: TStringGrid;const Column, Index1, Index2: Integer): Integer;
var
   ExtValue: Extended;
   CurrValue: Currency;
   DateValue: TDateTime;
   IntValue: Integer;
   S1,S2:String;
begin
     S1:=AStringGrid.Cells[Column, Index1];
     S2:=AStringGrid.Cells[Column, Index2];
     if (TryStrToInt(S1,IntValue))
     and (TryStrToInt(S2,IntValue))
     then Result:=CompareValue(StrToInt(S1), StrToInt(S2))
     else if (TryStrToCurr(S1,CurrValue))
          and (TryStrToCurr(S2,CurrValue))
          then result:=CompareValue(StrToCurr(S1), StrToCurr(S2), 0)
          else if (TryStrToFloat(S1,ExtValue))
               and (TryStrToFloat(S2,ExtValue))
               then Result:=CompareValue(StrToFloat(S1), StrToFloat(S2), 0)
               else if (TryStrToDate(S1,DateValue))
                    and (TryStrToDate(S2,DateValue))
                    then Result:=CompareDate(StrToDate(S1), StrToDate(S2))
                    else Result:=AnsiCompareText(S1, S2);
end;

Pour le moment, ça semble correctement fonctionner.
Je laisse la discussion ouverte au cas où ... je la fermerai d'ici qques jours si pas de nouveautés

[SergioMaster]

Bonjour,

Pour le moment, ça semble correctement fonctionner.

je reste sceptique quant au traitement des Currency et Float, j'ai l'impression que ça ne passera jamais dans la partie float sauf peut être s'il s'agit de notation scientifique.
Pour les dates, un VarToDateTime permettrait aussi les dates sous la forme jour nomdumois année (ie : 12 mars 17, 1 oct. 2016, 12 octobre 11)