如何在.NET 2.0中编写一个简单的类似Expression的类？

Question

我目前正在使用 .NET 2.0 Visual Basic。当前项目是一个 Active Directory Wrapper 类库，其中有一个 Searcher(Of T) 通用类，我希望用它来搜索底层目录中的对象。

在这个 Searcher(Of T) 类中，我有以下方法：

Private Function GetResults() As CustomSet(Of T)
Public Function ToList() As CustomSet(Of T)
Public Function Find(ByVal ParamArray filter() As Object) As CustomSet(Of T)
// And some other functions here...

我最感兴趣的是 Find() 方法，我可以向该方法传递属性和值，并且想要从此 filter() ParamArray 参数解析我的 LDAP 查询。实际上，我能弄清楚的是：

Public Sub SomeSub()
    Dim groupSearcher As Searcher(Of Group) = New Searcher(Of Group)()
    Dim groupsSet as CustomSet(Of Group) = groupSearcher.Find("Name=someName", "Description=someDescription")

    // Working with the result here...
End Sub

但我希望能够向我的用户提供的是：

Public Sub SomeSub()
    Dim groupSearcher As Searcher(Of Group) = New Searcher(Of Group)()
    Dim groupsSet As CustomSet(Of Groupe) = groupSearcher.Find(Name = "someName", Guid = someGuid, Description = "someDescription")

    // And work with the result here...
End Sub

简而言之，我想向我的用户提供某种 Expression 功能，除非它工作量太大了，因为这个项目不是最重要的，而且我没有两年的时间来开发它。我认为我应该做的更好的事情是编写类似 CustomExpression 的东西，可以将参数传递给某些函数或子函数。

感谢您提供任何可能使我实现目标的建议！

Answer 1

有趣的问题。这是一个依赖于语言的功能，因此如果没有 IDE/编译器的一些巧妙技巧，我不会看到这种情况发生。

不过，您可以在 Find 方法上进行可选重载（vb.net 对此很有用），然后手动创建搜索字符串以获取结果。

最后，您可以使用 lambda 函数，但仅限于 .net 3.5 及更高版本。即便如此，它仍然需要您的搜索器公开一组初步数据，以便您可以恢复表达式树并构建查找字符串。

更新

我刚刚玩弄反射，看看是否可以检索传递的参数，并根据它们是否存在动态构建一个字符串。这似乎不可能，因为编译的代码不引用这些名称。

刚刚使用的代码是：

'-- Get all the "parameters"
Dim m As MethodInfo = GetType(Finder).GetMethod("Find")
Dim params() As ParameterInfo = m.GetParameters()
'-- We now have a reference to the parameter names, like Name and Description

嗯。 http://channel9.msdn。 com/forums/TechOff/259443-Using-SystemReflection-to-obtain-parameter-values-dynamically/

令人烦恼的是，它不可能（容易）恢复发送的值，所以我们必须坚持建立以非动态方式字符串。

一个简单的可选方法如下所示：

Public Sub Find( _
               Optional ByVal Name As String = "", _
               Optional ByVal Description As String = "")

    Dim query As String = String.Empty
    If Not String.IsNullOrEmpty(Name) Then
        query &= "Name=" & Name
        '-- ..... more go here with your string seperater.
    End If
End Sub