Fonction eval : "4+5" => 9
Soyez le premier à donner votre avis sur cette source.
Vue 8 295 fois - Téléchargée 458 fois
Description
Cette fonction permet d'évaluer une expression.
Entendez par là que si je fais MsgBox Parse("4+5")
j'obtiens 9 !!
pour l'instant, vous ne pouvez utiliser que des opérateurs classiques, et les parenthèses ( + / - * ^ )
je vais sans doute ajouter des fonctions mathématiques
le principe est simple : je convertit l'expression en notation polonaise inverse (cf Web). En gros, 4+5 deviens 45+
pour pouvoir traiter des nombres, j'ai préféré obtenir 4;5;+;
ensuite, il suffit de regarder morceau par morceau......
Entendez par là que si je fais MsgBox Parse("4+5")
j'obtiens 9 !!
pour l'instant, vous ne pouvez utiliser que des opérateurs classiques, et les parenthèses ( + / - * ^ )
je vais sans doute ajouter des fonctions mathématiques
le principe est simple : je convertit l'expression en notation polonaise inverse (cf Web). En gros, 4+5 deviens 45+
pour pouvoir traiter des nombres, j'ai préféré obtenir 4;5;+;
ensuite, il suffit de regarder morceau par morceau......
Codes Sources
A voir également
- "server api" "build date" "php version 4.4.5" "php variables"
- "php variables" "build date" "php version 4.4.5" "server api" - Meilleures réponses
- "php variables" "php version 4.4.5" "build date" "server api" - Meilleures réponses
- Serveur ✓ - Forum - PHP
- ColdFusion : Liste de toutes les variables cgi de coldfusion 4.5 - CodeS SourceS - Guide
- IRC : Avertir ceux qui ont une version vulnérable de mirc - CodeS SourceS - Guide
- "php variables" "server api" "build date" "php version 4.4.5" - Guide
- ASP / ASP.NET : Imode_db : version allégé de admin_db pour terminaux imode - CodeS So - Guide
Private Function calcule(texte As String) As Long
Dim PosOp As Long
Dim Op As String
Dim Num() As String
PosOp = InStr(1, texte, "+")
If PosOp 0 Then PosOp InStr(1, texte, "-")
If PosOp 0 Then PosOp InStr(1, texte, "/")
If PosOp 0 Then PosOp InStr(1, texte, "*")
Op = Mid(texte, PosOp, 1)
Num = Split(texte, Op, 2)
If InStr(1, Num(1), "=") Then Num(1) = Left(Num(1), InStr(1, Num(1), "=") - 1)
If Calculable(Num(1)) Then Num(1) = calcule(Num(1))
If Calculable(Num(0)) Then Num(0) = calcule(Num(0))
If Op "+" Then Reponse Str(Val(Num(0)) + Val(Num(1)))
If Op "-" Then Reponse Str(Val(Num(0)) - Val(Num(1)))
If Op "/" Then Reponse Str(Val(Num(0)) / Val(Num(1)))
If Op "*" Then Reponse Str(Val(Num(0)) * Val(Num(1)))
calcule = Reponse
End Function
Private Function Calculable(texte As String) As Boolean
Possible = InStr(1, texte, "+") Or InStr(1, texte, "-") Or InStr(1, texte, "*") Or InStr(1, texte, "/")
Calculable = Possible
End Function
et sa marche ters bien
Ton code fonctionne bien.
j'ai apporté quelques modifications pour le faire tourner sur .NET en thread.
Merci a toi !
Fox
http://www.microsoft.com/france/msdn/info/info.asp?mar=/france/msdn/technologies/outils/vcsharp/info/20030710-Evaluateurs-Expressions.html
Fox
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.