Discussion :

[FANDOR]

Bonjour.

Je doit écrire un logiciel, qui calcul un montant en fonction d'une formule choisie par l'utilisateur. Par exemple :

3 * NBKM + 5 * NBJOURS + 2 * (TAUX1 + TAUX2)

L'utilisateur peut saisir ce qu'il veut, mais je dois m'assurer que ce soit quelque chose de correct :
- Pas d'erreur de syntaxe
- toutes les "expressions" doivent être "reconnues" ("NBKM" est un "mot clé", qui peut se traduire par un champ de base de donnée par exemple).

J'imagine que ce genre de chose doit exister, et qu'il est inutile de réinventer la poudre.

De plus, je ne devrait pas non plus avoir de formule trop compliquées. Peut être des fonctions simples comme "Somme", mais pas au delà.

Auriez vous des pistes, ou des méthodes pour faire cela ?

Merci d'avance.

[Paul TOTH]

oui ça "doit" exister ... mais si tu veux t'amuser à le code toi même, voici le principe :

1) tu vas faire une première fonction qui permet de lire un "token" dans la chaine

en gros c'est :

Code :

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

1
2
3
4
5
6
7
 
 case NextChar of
  '0'..'9': GetNumber;
  '+','*','-','/','(',')':GetChar;
  'A'..'Z','a'..'z': GetName;
  else SyntaxError;
 end;

je te laisse imaginer les boucles du style

Code :

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

1
2
3
4
5
6
 
function getNumber:string;
begin
 Result:='';
 while nextChar in ['0'..'9'] do Result:=Result+ReadChar;
end;

donc ces fonctions vont te permettre d'identifier les éléments de ton expression :

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
 
 // 3 * NBKM + 5 * NBJOURS + 2 * (TAUX1 + TAUX2) 
 3
 *
 NBKM
 +
 5
 *
 NBJOURS
 +
 2 
 *
 (
 TAUX1
 +
 TAUX2
 )

de là il te faut une fonction en trois étapes qui va lire les "token"

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
 
function expression:single;
var
 t1:single;
 op:string;
 t2:single;
begin
 t1:=terme;
 while (token='+')or(token='-') do begin
  op:=token;
  NextToken;
  t2:=terme;
  if (op='+') then t1:=t1+t2 else t1:=t1-t2;
 end;
 result:=t1;
end;

de la même façon la fonction "produit" va repérer les "*" et les "/"

et au final, la fonction valeur

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
 
function valeur:single;
begin
 if token='NBJOURS' then 
  result:=... 
 else
 if token='NBKM' then 
  result:=... 
 else
 if token='(' then begin
  readtoken;
  result:=expression(); // appel réentrant de la première fonction
  if token<>')' then syntaxerror;
 end else begin
  result:=StrToFloat(token);
 end;
 readtoken;
end;

Voilà l'idée générale

[b_reda31]

Bonsoir,
En ce qui concérne l'analyse syntaxique,si vous avez des notions de compilation vous pouvez vous baser sur les grammaires
En définissant la grammaire de la formule que vous devez vérifier,il est possible de créer un analyseur syntaxique (Procédures récursives,analyseur LL ou LR...etc).
L'analyseur vous permettra de vérifier si un mot (que formera l'utilisateur)appartient au langage (votre formule) ou non.

Voici grossomodo la grammaire qui génére votre formule :

Exp->(Exp) / Exp+Exp / Exp*Exp / id .

PS:Si vous opter pour la méthode des procédures récursives,il faudra modifier cette grammaire (car elle est récursive gauche)

[FANDOR]

Merci pour ces pistes.

Je ne me sens pas trop capable de m'attaquer à la grammaire.

Par contre, les fonctions me plaisent pas mal. J'avais d'ailleurs commencé à réfléchir à une solution de ce genre.

Je pensais également créer une sorte d'arbre. Chaque noeud de l'arbre étant une expression, chaque expression étant elle même composée de sous-expressions, avec au plus fin, des expressions élémentaires :


3 * NBKM + 5 * NBJOURS + 2 * (TAUX1 + TAUX2)

--> 3 * NBKM
------> 3
------> NBKM

--> 5 * NBJOURS
------> 5
------> NBJOURS

--> 2 * (TAUX1 + TAUX2)
------> 2
------> TAUX1 + TAUX2
--------------> TAUX1
--------------> TAUX2

[petitprince]

Il y a peut être plus simple: SynEdit...
Je suis en train de mettre au point un petit utilitaire pour produire des "highlighters" pour SynEdit...
Si tu es patient, je pense le finir dans quelques semaines, sinon tu peux utiliser SynGen, livré avec les composants de SynEdit.
En espérant t'avoir aidé un peu

[Aka Guymelef]

SynEdit n'est utilise que pour faire la coloration syntaxique d'un texte or ici on veut d'une part vérifier la syntaxe et d'autre part exécuter les formules entrées par l'utilisateur.

[anapurna]

salut

il y a plus simple
va sur le site de jhon colibri ancien responsable
de l'excellent magazine pascalisime
il y a les source d'un analyseur


@+ phil

[Invité]

Google "delphi parser formula"

Le 1er résultat est une page de liens sur efg :
http://www.efg2.com/Lab/Library/Delp...ns/Parsers.htm

Le code suivant extrait du MicroCalc TP3 semble très proche du besoin:

http://www.geocities.com/SiliconVall...crocalcpas.txt

Cordialement

[ShaiLeTroll]

peut se traduire par un champ de base de donnée par exemple

Si c'est toujours le cas, tu peux simplement faire un outil qui permet de saisir la partie SELECT, et toi tu génère un SQL (jointure compris) qui lance ce calcul

Ma fonction Explode permet de transformer la chaine

Code :

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

3 * NBKM + 5 * NBJOURS + 2 * (TAUX1 + TAUX2)

en un tableau, avec le paramètre KeepSeparators à True

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
 3
 *
 NBKM
 +
 5
 *
 NBJOURS
 +
 2 
 *
 (
 TAUX1
 +
 TAUX2
 )

[FANDOR]

salut

il y a plus simple
va sur le site de jhon colibri ancien responsable
de l'excellent magazine pascalisime
il y a les source d'un analyseur


@+ phil

Google "delphi parser formula"

Le 1er résultat est une page de liens sur efg :
http://www.efg2.com/Lab/Library/Delp...ns/Parsers.htm

Le code suivant extrait du MicroCalc TP3 semble très proche du besoin:

http://www.geocities.com/SiliconVall...crocalcpas.txt

Cordialement

Merci pour ces liens.

Je pense que je vais trouver mon bonheur dans tout cela.
L'arbre de J Colibri ressemble beaucoup à ce que j'essayais de faire.

Merci.