und noch'n Mathe-Parser (dieses Mal mit COMate + VBS)

[Kiffi]

Hoi,

Berechnung von mathematischen Termen via VbScript:

Code: Alles auswählen

IncludeFile "[PfadZuCOMatePlus]/comateplus.pbi" ; Anpassen

EnableExplicit

Define ScriptControl.COMateObject
Define VbScript.s
Define myResult.s

ScriptControl = COMate_CreateObject("ScriptControl")

ScriptControl\SetProperty("Language = 'VBScript'")

VbScript = "myResult = 1 + 2 * 3 - 4" 

ScriptControl\Invoke("AddCode('" + VbScript + "')")

myResult.s = ScriptControl\GetStringProperty("Eval('myResult')")

Debug "Result: " + myResult

ScriptControl\Release()

(benötigt COMatePlus)

Grüße ... Kiffi

[bobobo]

Isch 'abe gar keinen Scripting-'ost .. und nu?

--

'ab zu früh genöhlt .. das geht auch ohne scripting- 'ost

fragt sich nur warum

[Kiffi]

fragt sich nur warum

it's magic!

[bobobo]

naja
ich dachte eigentlich, dass es u.U. brauchbarer wäre wenn nicht jede Applikation
mit dem Scriptingzeugs auf meinem Rechner Schindluder nach Belieben treiben darf.
Dafür der deaktivierte ScriptingHost.
Das deaktiviert allerdings wohl nur die Ausführung von vbs-dateien
aber nicht die scriptingmöglichkeit an sich.

Kein Wunder, dass Windows anfällig ist.

Dreckswindows

[marco2007]

Thx, Kiffi