我爱Aspx >> VB.Net >> vb.net 实现javascript中的Eval功能

vb.net 实现javascript中的Eval功能

vb.net中实现javascript中包含的功能，绝对不会有问题。做过javascript开发的程序员对eval都会有深刻的印象。只是在vb.net中实现这个功能没有想象得那么简单。不管怎么说能实现就好。但不知道是否还有其他比较简单的方法。 

　　例子代码如下：

 

Imports System.CodeDom.Compiler
Public Class Form1Class Form1

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        　MsgBox(Calculate("1+2*3+4").ToString)
    End Sub

    Public Function Calculate()Function Calculate(ByVal expression As String) As Object
        Dim className As String = "clsF"
        Dim methodName As String = "funCal"

        Dim classSource As New System.Text.StringBuilder

        classSource.Append("public   class   " + className + vbCrLf)
        classSource.Append("         public  function " + methodName + "() as object" + vbCrLf)
        classSource.Append("                 return   " + expression + vbCrLf)
        classSource.Append("         end function" + vbCrLf)
        classSource.Append("end class")

        Dim codeProvider As New VBCodeProvider
        Dim cParams As New CompilerParameters
        cParams.GenerateExecutable = False
        cParams.GenerateInMemory = False
        Dim cResults As CompilerResults = codeProvider.CompileAssemblyFromSource(cParams, classSource.ToString)
        Dim asm As System.Reflection.Assembly = cResults.CompiledAssembly
        Dim eval As Object = asm.CreateInstance(className)
        Dim method As System.Reflection.MethodInfo = eval.GetType().GetMethod(methodName)
        Dim args() As String = Nothing
        Dim reObj As Object = method.Invoke(eval, args)

        GC.Collect()
        Return reObj
    End Function
End Class

Ҷƪл˵?