---

Hallo,

gibt es in VB eine einfache vorhandene Möglichkeit, einen String auszurechnen?
"16*5" würde reichen, "16*5+3" wäre nett.
Mit dem XML-Parser oder einer Excel/Access - Applikation ist es mir zu
aufwendig.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmm, mit Excel wäre es

Code:

---

xy = Evaluate(string)

---

und mangels VB kann ich  nur googeln... "vb  Evaluate"
http://www.vb-helper.com/howto_evaluate_expressions.html
http://deadline.3x.ro/vb6code_find_roots.html

HTH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

du mußt auf jeden Fall einen Projekt-Verweis auf die COM-Routine "MS Script Control" machen.

Code-Beispiel

Imports MSScriptControl
Imports System.Text.RegularExpressions

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SC As New MSScriptControl.ScriptControl
        SC.Language = "VBScript"
        Dim Formel As String
        Dim Muster As String = "^([0-9\s\-+*/()]+)$"    ' Formelstruktur
        Dim Regex As New Regex("")

        Formel = "-12 *(4 + 9)"

        If Regex.IsMatch(Formel, Muster) Then           ' Grobe Strukturprüfung
            Try
                Label1.Text = SC.Eval(Formel)           ' Formel berechnen
            Catch ex As Exception
                MessageBox.Show("Falsche Formelstruktur")
            End Try
        Else
            MessageBox.Show("Formel enthält Fehler")
        End If
    End Sub
End Class

Das hab ich in meinem VB Archiv gefunden, müsste also funktionieren. Habe VB leider nicht mehr installiert, konnte es also nicht testen.
Ansonsten: Hier

[Diese Nachricht wurde von -Schwabe- am 12. Nov. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die MSScriptControl hat mir Freund Google leider verheimlicht, vielen Dank.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gut, wenns funktioniert freuts mich 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP