Discussion :

[Pascal Lob]

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 ?

[jopopmk]

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.

[mactwist69]

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 :

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

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 :

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
  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

[Pascal Lob]

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