Script Control Integration 1

[mansii]

Hi All,
I'm not sure if this forum is the right place to throw my problem.

VB 2005
Refference : MS Script Control

I have this simple equation:

Dim str2Eval As String = "1.1 + 2.2 = 3.3"
Dim sscript As New MSScriptControl.ScriptControl
sscript.Language = "VBScript"
Try
    Label1.Text = sscript.Eval(str2Eval)
Catch ex As Exception
    Label1.Text = Label1.Text = ex.Message
    Exit Try
End Try

But The result is False.

I tried to evaluate the left side of the equation which gives me the desired result:

Dim str2Eval As String = "1.1 + 2.2"
..
Label1.Text = sscript.Eval(str2Eval)
'gives me 3.3

No problem with integers.
Any help would be appreciated.

 

[mansii]

After several workarounds, I came to this solution:

Dim str2Eval As String = "1.1 + 2.2"
Dim str2Eval2 As String = "3.3"
..
Label1.Text = sscript.Eval(str2Eval & "=" & str2Eval2)

Which gave a True result.
But the question remains.

Regards.

 

[earthandfire]

A couple of things:

=====

Are you sure that this is what you intended?

[tt]Label1.Text = Label1.Text = ex.Message[/tt]

and not:

[tt]Label1.Text = ex.Message[/tt]

=====

Try this:

[tt]Label2.Text = (1.1 + 2.2 = 3.3).ToString[/tt]


Notice it also returns False

=====


You are dealing with inaccurate numbers (doubles and singles). Make them accurate and you will get the desired result as in:

[tt]Dim str2Eval As String = "CCur(1.1) + CCur(2.2) = CCur(3.3)"[/tt]


Hope this helps.

 

[mansii]

EnF,
First thing is a typo.
I agree with second thing.
And the last line is the thing that I long for.

Thank's. A star for you.