vb.net如何运算一个字符串

Posted 2023-03-21

比如在textbox1中输入1*5+3-6/2，建立一个botton1控件，点击，使”5“这个结果出现在textbox2中

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

     Function Eval(ByVal Expressions As String) As Double
        Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
        Mssc.Language = "vbscript"
        Return CDbl( Mssc.Eval(Expressions))
    End Function

不喜欢上面提示的警告的话

     textbox2.text=EvalString(textbox1.text)
     
     Function EvalString(ByVal Expressions As String) As String
        dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
        Dim o = System.Activator.CreateInstance(oType)
        oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object() "vbscript")
        Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object()Expressions).ToString()
    End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

http://tieba.baidu.com/p/967893260

参考技术A 在按钮里面设置程序 当按下按钮时候 tetx2显示text1的东西 参考技术B 如果是windows电脑，调用vbs即可。如果要移植，那就自己写。用栈。 参考技术C 复合运算需要你自己去写算法