.Net实现表达式计算(公式) 表达式字符串

文档原址：http://blog.csdn.net/fangxing80/article/details/5992661

实现复杂公式计算，比如含IF分支判断等，可考虑通过调用EXCEL公式获取值。

Excel公式计算参考：http://www.cnblogs.com/senyier/p/3498526.html

方法一： MSScriptControl.ScriptControl

VB.NET

[vb] view plaincopy

1. Dim exp As String = "3 + 4"
2. Dim t As Type = Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
3. Dim obj As Object = Activator.CreateInstance(t)
4. t.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty, _
5. Nothing, obj, New Object() {"vbscript"})
6. Dim result As Object = t.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, _
7. Nothing, obj, New Object() {exp})
8. MsgBox("method 1: " & CStr(result))

C#

[c-sharp] view plaincopy

1. var exp = "3 + (2 + 3)/5";
2. var type = Type.GetTypeFromProgID("MSScriptControl.ScriptControl");
3. var obj = Activator.CreateInstance(type);
4. type.InvokeMember("Language", BindingFlags.SetProperty, null,
5. obj, new object[] { "javascript" });
6. var result = type.InvokeMember("Eval", BindingFlags.InvokeMethod, null,
7. obj, new object[] { exp });
8. Console.WriteLine("{0} = {1}", exp, result);

方法二： CodeDOM

VB.NET

[vb] view plaincopy

1. Dim oCodeProvider As VBCodeProvider = New VBCodeProvider
2. Dim oCParams As CompilerParameters = New CompilerParameters
3. Dim oCResults As CompilerResults = Nothing
4. Dim oAssy As System.Reflection.Assembly = Nothing
5. Dim oExecInstance As Object = Nothing
6. Dim oRetObj As Object = Nothing
7. Dim oMethodInfo As MethodInfo = Nothing
8. Dim oType As Type = Nothing
9. Dim strSource As String = _
10. "Public Class MainClass " + vbCrLf + _
11. "   Public Shared Function Eval() As Integer" + vbCrLf + _
12. "      Return 3 + 4" + vbCrLf + _
13. "   End Function" + vbCrLf + _
14. "End Class"
15. oCParams.CompilerOptions = "/t:library"
16. oCParams.GenerateInMemory = True
17. oCResults = oCodeProvider.CompileAssemblyFromSource(oCParams, strSource)
18. If oCResults.Errors.Count <> 0 Then
19. MsgBox("Error")
20. End If
21. oAssy = oCResults.CompiledAssembly
22. 'oExecInstance = oAssy.CreateInstance("MainClass")
23. 'oType = oExecInstance.GetType
24. 'oMethodInfo = oType.GetMethod("Eval")
25. 'oRetObj = oMethodInfo.Invoke(oExecInstance, Nothing)
26. oType = oAssy.GetType("MainClass")
27. oRetObj = oType.InvokeMember("Eval", BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)
28. MsgBox("method 2: " & CStr(oRetObj))

C#

[c-sharp] view plaincopy

1. var exp = "3 + (2 + 3)/5";
2. var csCodeProvider = new CSharpCodeProvider();
3. var csParams = new CompilerParameters();
4. var source = "public class MainClass { public static object Eval() { return (#exp#); } }";
5. source = source.Replace("#exp#", exp);
6. csParams.CompilerOptions = "/t:library";
7. csParams.GenerateInMemory = true;
8. var csResults = csCodeProvider.
9. CompileAssemblyFromSource(csParams, source);
10. if (csResults.Errors.Count > 0)
11. {
12. Console.WriteLine(csResults.Errors[0].ToString());
13. return;
14. }
15. var ass = csResults.CompiledAssembly;
16. var type = ass.GetType("MainClass");
17. var result = type.InvokeMember("Eval", BindingFlags.InvokeMethod,
18. null, null, null);
19. Console.WriteLine("{0} = {1}", exp, result);

方法三： DataColumn.Expression & DataTable.Compute方法。

VB.NET

[vb] view plaincopy

1. Dim dt As DataTable = New DataTable
2. dt.Columns.Add("Val1", GetType(Integer))
3. dt.Columns.Add("Val2", GetType(Integer))
4. dt.Columns.Add("Result").Expression = String.Format("Val1 + Val2", Me.TextBox1.Text)
5. dt.Rows.Add(New Object() {3, 4})
6. MsgBox("method 3: " & dt.Rows(0)("Result"))

C#

[c-sharp] view plaincopy

1. var exp = "3 + (2 + 3)/5";
2. DataTable dt = new DataTable();
3. dt.Columns.Add("Result").Expression = exp;
4. dt.Rows.Add(dt.NewRow());
5. var result = dt.Rows[0]["Result"];
6. Console.WriteLine("{0} = {1}", exp, result);