从函数返回（带有函数的匿名类型） - 有更好的方法吗？

Question

众所周知，这个问题主要是学术性的，尽管我尝试在现实世界的解决方案中使用这个概念。我意识到这个例子是人为的，但我相信这个概念是有效的。

我想编写一些像这样流畅的代码：

copy(my_first_file).to(my_second_file)

简短，易于阅读和理解，完全合法。所以我这样定义我的复制方法：

Private Function copy(FilePath as String) As Object
  Return New With {.to = New Action(Of String)(Function(x) my_real_copy_method(FilePath,x))}
End Function

我意识到我不能将匿名类型强制转换为特定类型（例如实现接口或其他一些类），并且我不希望定义特定类的开销只是为了将我想要的流畅名称与实际方法名称相匹配。所以我能够使代码像这样工作：

copy(my_first_file).to.Invoke(my_second_file)

所以那里没有 IntelliSense 或类型感知，我必须包含 Invoke 才能运行该方法。在这些约束下，如何获得更多类型安全性并排除 Invoke 方法：

• 从方法返回的匿名类型
• 没有其他类或接口
• 最好，我不想将另一个参数传递给 copy() 方法来告诉返回什么类型，除非 copy 成为通用方法（但我认为这意味着定义另一个类/接口，我不想这样做）

我知道这听起来相当要求，如果我太难了，请随意打电话给“Bull”！

提前致谢。

Answer 1

我知道你说你的例子是人为的，但是这个怎么样？它支持方法链接（CopyTo 返回 FileInfo），即使它不是流畅。它也内置于 System.IO 中。

Dim f As New FileInfo("c:\x.txt")
f.CopyTo("c:\y.txt")

Answer 2

由于 VB 没有泛型方法的返回类型推断，即使没有歧义，也没有办法做到这一点。

您可以拥有一个使用泛型返回匿名类型的强类型函数，但不能使用推断泛型调用它，您需要显式指定它们。

Private Function Copy(Of T)(filePath as String, prototype As T) As T
    Return New With { .To = … }
End Function

（适应.NET的命名约定）

必须按如下方式调用：

Dim nullAction As Action(Of String) = Nothing
Dim proto = New With { .To = nullAction }
Copy(firstFile, proto).To(secondFile)

Answer 3

对不起;这是我能想到的最好的办法。它不满足您的要求......但它确实为您提供了您想要的语法。

Sub Main()
    copy("myFile").To("myOtherFile")
End Sub

Private Function copy(ByVal FilePath As String) As String
    Return FilePath
End Function

<Extension()> _
Public Sub [To](ByVal FromFile As String, ByVal ToFile As String)
    ' Code to really copy goes here
    my_real_copy_method(FromFile, ToFile)
End Sub