Hallo zusammen,

ich habe eine Formel die wie folgt aussehen könnte.

Dim Formel as string

String = "Math.Cos(Math.Pow(10, 2)) + Pow(9, 1 / 3) + Math.PI"

Diese ist als String gespeichert. Hintergrund ist, dass diese Formel über eine Oberfläche zusammengeklickt wird.

Wie führe ich das nun aus.
Wenn ich hingehe uns sage
Dim Ergebnis as double

Ergebnis = Formel

funktioniert es nicht

auch das funktioniert nicht
Ergebnis = Double.Parse(Formel)

Wie bekomme ich die Formel ausgewertet ??

Vielen Dank im voraus

Fatma

Hallo,

das funktioniert nicht so einfach, dazu brauchst du einen Formel-Parser.
Schau dir mal das angehängt Projekt in diesem Post an.

@Counterbug Jou.

FatmaA schrieb:

Wie bekomme ich die Formel ausgewertet ?

Da musst Du Dich allein drum kümmern.
Vielleicht solltest Du davon die Finger lassen und Dich zunächst mit ein paar einfacheren Übungen befassen, gugst Du hier.

So funktioniert es:

_____________________________________________

VB Code:
Imports System.CodeDom.Compiler
Imports Microsoft.VisualBasic 'More than just VB6 Runtime functions in here!
Imports System.Reflection

And here is the function, converted to VB.NETVB Code:
''' <summary>
''' A simple function using CodeDom to process an expression.
''' </summary>
''' <param name="command">A string expression to evaluate</param>
''' <returns>A double with the result of the evaluated command parameter</returns>
''' <remarks>Vulnerable to injection attacks.</remarks>
Private Function ProcessCommand(ByVal command As String) As Double
Dim MyProvider As New VBCodeProvider 'Create a new VB Code Compiler
Dim cp As New CompilerParameters 'Create a new Compiler parameter object.
cp.GenerateExecutable = False 'Don't create an object on disk
cp.GenerateInMemory = True 'But do create one in memory.
'If cp.OutputAssembly is used with a VBCodeProvider, it seems to want to read before it is executed.
'See C# CodeBank example for explanation of why it was used.

'the below is an empty VB.NET Project with a function that simply returns the value of our command parameter.
Dim TempModuleSource As String = "Imports System" & Environment.NewLine & _
"Namespace ns " & Environment.NewLine & _
"Public Class class1" & Environment.NewLine & _
"Public Shared Function Evaluate()" & Environment.NewLine & _
"Return " & command & Environment.NewLine & _
"End Function" & Environment.NewLine & _
"End Class" & Environment.NewLine & _
"End Namespace"
'Create a compiler output results object and compile the source code.
Dim cr As CompilerResults = MyProvider.CompileAssemblyFromSource(cp, TempModuleSource)
If cr.Errors.Count > 0 Then
'If the expression passed is invalid or "", the compiler will generate errors.
Throw New ArgumentOutOfRangeException("Invalid Expression - please use something VB could evaluate")
Else
'Find our Evaluate method.
Dim methInfo As MethodInfo = cr.CompiledAssembly.GetType("ns.class1").GetMethod("Evaluate")
'Invoke it on nothing, so that we can get the return value
Return Convert.ToDouble(methInfo.Invoke(Nothing, Nothing))
End If
End Function

Sample usage and output:VB Code:
MsgBox(ProcessCommand(TextBox1.Text)) 'SHows a message box with the result of an expression in TextBox1
Console.WriteLine(ProcessCommand("1+1").ToString()) 'Displays 2
Console.WriteLine(ProcessCommand("Math.PI").ToString()) 'Displays 3.14159265358979
Console.WriteLine(ProcessCommand("Math.Abs(-22)").ToString()) 'Displays 22
Console.WriteLine(ProcessCommand("3-4+6+7+22/3+66*(55)").ToString()) 'Displays 3649.333333333333333333

_____________________________________

Falls jemand sowas mal brauchen sollte.

Grüße

Fatma

FatmaA schrieb:

Falls jemand sowas mal brauchen sollte

Gut recherchiert , aber unbrauchbar umgesetzt.
Ich hab mir mal erlaubt, da was brauchbares zu machen:
Parserklasse mit einem ordentlichen TryParseCommand und dem üblichen TryParse-Handling
und zur Darstellung eine Form mit 2 Buttons und einer RichTextBox.

Zu bedenken ist, dass ein böser Mensch dir alles mögliche in diese Textbox hinein-coden kann, also analog zur sql-injection kann man hier vom vb-injection-angriffen sprechen.

Oh supi danke...

das Projekt was ich umsetzt, ist umfangreicher als ich gedacht habe... Und bin noch Neuling in der VB.Net Welt.

Übung und gute Ratschläge machen den Meistern.

Vielen lieben Dank.