Formule enregistrée en base

Bonjour,

Je travaille sur une application VB 2010 pour laquelle j'ai besoin de calculer des bonus attribués à des clients.
Pour chaque client, je récupère le (ou les) lien(s) avec les bonus.
Pour chaque bonus, j'ai une formule de calcul associée.
par exemple : "(Val1 * 1.2) + (Val2 * 1.3)"

Val1 et Val2 sont des données de la fiche client.
Si je remplace Val1 et 2 par leur valeur j'obtient une chaine "(12.2*1.2)+(5.1*1.3)"

Comment puis-je effectuer réellement le calcul et récupérer le résultat dans une variable ?

Salut,

vu qu'il n'y a plus d'eval toupabo en VB.NET tu te retrouves avec deux solutions (à ma connaissance) :
- normaliser tes formules (ex. la formule est toujours de forme (v1 *X) +(v2 *Y), alors tu mets X et Y en base),
- faire un parser qui va lire et interpréter tes formules.

Il existe des dll opensource comme NCalc, qui à l'air d'être éprouvé : http://ncalc.codeplex.com/


Mais par curiosité, je suis allez voir si il reste des "Eval" toutPAsbo (comme tu dis) en .NET. Et oui, via la Datatable.
(Après, je laisse les experts évaluer à quel point ce n'est pas beau)


Si on fait bien sur au préalable :

Code:

---

1 2 3 4

MaChaine.Replace("Val1",12.5) MaChaine.Replace("Val2",5.1)   Dim result as double = Evaluate(MaChaine)

---

Fonctionne, je l'ai tester pour rigoler :

Code:

---

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

Private Function Evaluate(ByVal MathExpression As String) As Double   Try   Dim result As Double   Dim dt As New DataTable Dim dc As New DataColumn("Eval", result.GetType(), MathExpression)   dt.Columns.Add(dc) dt.Rows.Add(0)   result = CType(dt.Rows(0).Item("Eval"), Double)   Return result   Catch ex As Exception Return -1 End Try   End Function

---

Merci mactwist69 , c'est exactement ce que je cherchais.