Simple Eval() (Ithink) question

[Jeff]

I'm new to Visual Web 2005 using VB:

....trying to get something like the below to run.
Apparently, I need something other than the eval function, but what?

Thanks in advance

Jeff
Dim x As String
x = "5 4"

If Eval(x) Then
Label1.Text = "It Worked"
End If

--
Posted via a free Usenet account from http://www.teranews.com

[Joseph Bittman MVP MCSD]

Sept. 13, 2006

I don't know about your code sample as I've never really seen the Eval
method used.

What most people do in that situation, is something like this:

If 5 4 then
label1.text = "It worked"
end if

or if you needed to make sure the first integer passed in by the user was
greater than a number you have in mind... then you could do something like
this: (where textbox1.text contains the user's number)

if textbox1.text [yournumber] then
.....

Basically, the "if" statement automatically evaluates simple operations such
as or < or =True... or "if [passedinboolean]=False AND Textbox1.text 3
then" ... stuff like that.

Hope this helps!
--

Joseph Bittman
Microsoft Certified Solution Developer
Microsoft Most Valuable Professional -- DPM

Blog/Web Site: http://CactiDevelopers.ResDev.Net/
"Jeff" <no**@none.comw rote in message
news:45******** *************** @free.teranews. com...

>

I'm new to Visual Web 2005 using VB:

...trying to get something like the below to run.
Apparently, I need something other than the eval function, but what?

Thanks in advance

Jeff
Dim x As String
x = "5 4"

If Eval(x) Then
Label1.Text = "It Worked"
End If

--
Posted via a free Usenet account from http://www.teranews.com

[Tom Shelton]

Jeff wrote:

I'm new to Visual Web 2005 using VB:

...trying to get something like the below to run.
Apparently, I need something other than the eval function, but what?

Thanks in advance

Jeff
Dim x As String
x = "5 4"

If Eval(x) Then
Label1.Text = "It Worked"
End If

1. Create a class in JScript -

// JScript Source Code
class EvalClass
{
function Evaluate(expres sion)
{
return eval(expression );
}
}

2. Compile it to a dll (evaluator.dll) :

jsc /target:library evaluator.js

3. Reference the dll in your VB.NET project.

4. Write Code:

Dim ec As New EvalClass()
Dim expr As String = "(10 + 6) / 8"
Dim res As Double = CType(ec.Evalua te(expr), Double)

Console.WriteLi ne("{0} = {1}", expr, res)

The issues... Well, you can actually exectue arbitray bits of JScript
code through this so it might be wise to do a little input validation
(ex: use regex to make sure that the input is a valid mathmatical
expression) and error traping, since the eval function just returns
object - but it actually works pretty well :)

--
Tom Shelton

[Herfried K. Wagner [MVP]]

"Jeff" <no**@none.coms chrieb:

I'm new to Visual Web 2005 using VB:

...trying to get something like the below to run.
Apparently, I need something other than the eval function, but what?

Dim x As String
x = "5 4"

If Eval(x) Then
Label1.Text = "It Worked"
End If

Hand-made:

MathLib
<URL:http://www.palmbytes.d e/content/dotnet/mathlib.htm>

Dynamic compilation:

Build a Custom .NET "EVAL" Provider
<URL:http://www.eggheadcafe .com/articles/20030908.asp>

Runtime Compilation (A .NET eval statement)
<URL:http://www.codeproject .com/dotnet/evaluator.asp>

Evaluation of numeric expressions using J#:

<URL:http://groups.google.d e/group/microsoft.publi c.dotnet.langua ges.csharp/msg/9e95759b54a323a 7>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Tom Shelton]

Tom Shelton wrote:

Jeff wrote:

I'm new to Visual Web 2005 using VB:

...trying to get something like the below to run.
Apparently, I need something other than the eval function, but what?

Thanks in advance

Jeff
Dim x As String
x = "5 4"

If Eval(x) Then
Label1.Text = "It Worked"
End If

1. Create a class in JScript -

// JScript Source Code
class EvalClass
{
function Evaluate(expres sion)
{
return eval(expression );
}
}

2. Compile it to a dll (evaluator.dll) :

jsc /target:library evaluator.js

3. Reference the dll in your VB.NET project.

4. Write Code:

Dim ec As New EvalClass()
Dim expr As String = "(10 + 6) / 8"
Dim res As Double = CType(ec.Evalua te(expr), Double)

Console.WriteLi ne("{0} = {1}", expr, res)

The issues... Well, you can actually exectue arbitray bits of JScript
code through this so it might be wise to do a little input validation
(ex: use regex to make sure that the input is a valid mathmatical
expression) and error traping, since the eval function just returns
object - but it actually works pretty well :)

I also forgot to mention - you need to reference the
microsoft.jscri pt.dll in your vb.net project :)

--
Tom Shelton

>
--
Tom Shelton

[stax]

using late binding:

'as first line put 'Option Strict Off' for late binding
Dim o As Object = CreateObject("M SScriptControl. ScriptControl")
o.Language = "VBScript"
MsgBox(o.Eval(" 1+1"))
another way using reflection (works also with C#):

Dim expression As String = "1+1"
Dim scriptControl As Object = CreateObject("M SScriptControl. ScriptControl")
scriptControl.G etType.InvokeMe mber("Language" , BindingFlags.Se tProperty, Nothing, scriptControl, New Object() {"VBScript"} , Nothing)
Dim value As Object = scriptControl.G etType.InvokeMe mber("Eval", BindingFlags.In vokeMethod, Nothing, scriptControl, New Object() {expression})
MsgBox(value.To String)

Personally I rather skip the reflection hassle and use late binding, not for the entire project, but only for one file where all classes go that use reflection.

[Jeff Jarrell]

This isn't an answer to your question but when I think about the need to
EVAL() scripts I have been considering hosting a Powershell instance (in
your app, non visually). Obviously, this would only be effective where
scripts don't already exist and you aren't protecting an existing body of
work.

It does appear that Powershell is the next generation of scripting on the
MSFT platform.

http://www.microsoft.com/windowsserv...l/default.mspx

jeff

"stax" <no****@nomail. nowrote in message news:es******** **@online.de...

using late binding:

'as first line put 'Option Strict Off' for late binding
Dim o As Object = CreateObject("M SScriptControl. ScriptControl")
o.Language = "VBScript"
MsgBox(o.Eval(" 1+1"))
another way using reflection (works also with C#):

Dim expression As String = "1+1"
Dim scriptControl As Object =
CreateObject("M SScriptControl. ScriptControl")
scriptControl.G etType.InvokeMe mber("Language" , BindingFlags.Se tProperty,
Nothing, scriptControl, New Object() {"VBScript"} , Nothing)
Dim value As Object = scriptControl.G etType.InvokeMe mber("Eval",
BindingFlags.In vokeMethod, Nothing, scriptControl, New Object()
{expression})
MsgBox(value.To String)

Personally I rather skip the reflection hassle and use late binding, not
for the entire project, but only for one file where all classes go that
use reflection.

[stax]

do you have sample code for this?

Jeff Jarrell wrote:

This isn't an answer to your question but when I think about the need to
EVAL() scripts I have been considering hosting a Powershell instance (in
your app, non visually). Obviously, this would only be effective where
scripts don't already exist and you aren't protecting an existing body of
work.

It does appear that Powershell is the next generation of scripting on the
MSFT platform.

http://www.microsoft.com/windowsserv...l/default.mspx

[Jeff Jarrell]

I haven't actually coded to this. I was thinking about this as a way to
provide extensibility to the customer in a winforms app. Something like
providing a hook so that when a button a click there would be an opportunity
to provide a script there.

Aside from just looking and learning what a powershell script is, you can
start here for how to host powershell in your app.
http://msdn2.microsoft.com/en-us/library/ms714459.aspx

If you take a listen at some his old shows you can get a feel for what
powershell is all about.
http://www.hanselminutes.com/
"stax" <no****@nomail. nowrote in message news:es******** **@online.de...

do you have sample code for this?

Jeff Jarrell wrote:

>This isn't an answer to your question but when I think about the need to
EVAL() scripts I have been considering hosting a Powershell instance (in
your app, non visually). Obviously, this would only be effective where
scripts don't already exist and you aren't protecting an existing body of
work.

It does appear that Powershell is the next generation of scripting on the
MSFT platform.

http://www.microsoft.com/windowsserv...l/default.mspx