How to evaluate a string expression to a boolean...

[yarborg]

This is kind of a weird one and hard to find answers online because of the format of the question.

Essentially I want to be able to have a string that looks like this "True AND True AND True" and evaluate that to a boolean which in this case would be True. Another example would be "(True or False) AND True" would be True. The reason for this is that I have a form where the user has to build some logic in a graphical interface. I can evaluate the logic and create a string but I don't know how to evaluate the string. The problem is that they can also choose items such as OR\AND\NOT which is hard to account for in code.

BTW I am working in VB .Net.


HELP!!

[yarborg]

I think I have this figured out. I borrowed some C# code that is similar and converted to VB .Net. I still don't completely understand why it works but I have verified that it does.

Private Function Eval(ByVal expression As String) As Boolean
expression = expression.ToLo wer
expression = expression.Repl ace("false", "0")
expression = expression.Repl ace("true", "1")
expression = expression.Repl ace(" ", "")
Dim temp As String

Do
temp = expression
expression = expression.Repl ace("(0)", "0")
expression = expression.Repl ace("(1)", "1")
expression = expression.Repl ace("0and0", "0")
expression = expression.Repl ace("0and1", "0")
expression = expression.Repl ace("1and0", "0")
expression = expression.Repl ace("1and1", "1")
expression = expression.Repl ace("0or0", "0")
expression = expression.Repl ace("0or1", "1")
expression = expression.Repl ace("1or0", "1")
expression = expression.Repl ace("1or1", "1")
Loop While temp <> expression

If expression = "0" Then
Return False
End If
If expression = "1" Then
Return True
End If
Throw New ArgumentExcepti on("expression" )
End Function

Usage Example:
Eval("(True or True or False) and True")

Returns True as a boolean

[Plater]

Sounds like you are creating a regular grammer for yourself.
Seems like a workable enough solution.