Expression에서 람다를 추출 하시겠습니까?

Question

나는이 기능을 구현하려면 :

Public Function GetFunc(Of TSource, TResult) _ 
    selector As Expression(Of Func(Of TSource, TResult)) _ 
     As Func(Of TSource, TResult) 
    'Implement here 
End Function 

UPDATE를

나는 다음과 같은 문제는,이 함수의 부분이 있습니다

Dim obj As Object = value 
For Each exp In expressions 
    If obj Is Nothing Then Return [default] 
    Select Case exp.NodeType 
    Case ExpressionType.Call 
     Dim method = DirectCast(exp, MethodCallExpression) 
     Dim info = method.Method   

     If method.Object Is Nothing Then 
     Dim args = {obj}.Union(method.Arguments.Skip(1)) 

     'The following line throws the exception, see details bellow 
     obj = info.Invoke(Nothing, args.ToArray) 
     Else 
     obj = info.Invoke(obj, method.Arguments.ToArray) 
     End If 

---

예외 정보 :

ArgumentException: 

Object of type 'System.Linq.Expressions.Expression`1 
[System.Func`3[System.Char,System.Char,System.Char]]' 
cannot be converted to type 
'System.Func`3[System.Char,System.Char,System.Char]'. 

Answer 1

Public Function GetFunc(Of TSource, TResult) _ 
    selector As Expression(Of Func(Of TSource, TResult)) _ 
     As Func(Of TSource, TResult) 
    Return selector.Compile() 
End Function