错误将C＃转换为VB.NET

Question

我试图将此方法转换为VB.NET，但在线转换器似乎使转换它乱七八糟。有人可以帮助：

C＃原：

private IEnumerable<IGrouping<string, Reference>> FindReferencesWithTheSameShortNameButDiffererntFullNames(List<Reference> references) 
     { 
      return from reference in references 
        group reference by reference.ReferencedAssembly.Name 
         into referenceGroup 
         where referenceGroup.ToList().Select(reference => reference.ReferencedAssembly.FullName).Distinct().Count() > 1 
         select referenceGroup; 
     } 

VB.NET使用在线转换器：

Private Function FindReferencesWithTheSameShortNameButDiffererntFullNames(references As List(Of Reference)) As IEnumerable(Of IGrouping(Of String, Reference)) 
     Return _ 
      Where referenceGroup.ToList().[Select](Function(reference) reference.ReferencedAssembly.FullName).Distinct().Count() > 1 
End Function 

上Where这个错误没有被声明。

我不会想到的是，VB不会是DIS类似于C＃是这样的：

Private Function FindReferencesWithTheSameShortNameButDiffererntFullNames(references As List(Of Reference)) As IEnumerable(Of IGrouping(Of String, Reference)) 
      Return From reference In references 
        Group reference By reference.ReferencedAssembly.Name 
        Into referenceGroup() 
        Where referenceGroup.ToList().Select(Function(reference) ReferencedAssembly.FullName).distinct().count() > 1 
                 Select referenceGroup 

     End Function 

，但我得到：方法referenceGroup的定义是不是在这种情况下访问...有人可以帮我吗？

Answer 1

VB.Net语法略有不同。 Group关键字还指示当前分组，可以直接使用或分配给指定的变量。

Private Function FindReferencesWithTheSameShortNameButDiffererntFullNames(references As List(Of Reference)) As IEnumerable(Of IGrouping(Of String, Reference)) 
    Return From referenceGroup In references.GroupBy(Of String, Reference)(Function(reference) reference.ReferencedAssembly.Name, Function(reference) reference) 
      Where (referenceGroup.ToList().Select(Function(reference) As String 
                Return reference.ReferencedAssembly.FullName 
               End Function).Distinct().Count() > 1) 
      Select referenceGroup 
End Function 

更新

我只注意到你返回一个IGrouping。查询理解语法在这种情况下将不起作用，您将不得不明确致电GroupBy()。该代码示例已更新以反映该情况。

Answer 2

就像从参考组中删除括号一样简单吗？我想知道如果VB认为这是一种方法不是一个标识符。

Answer 3

最初的C＃代码会不必要地执行一些操作，所以先让它清理并做一些优化。

ToList()调用是不必要的，删除它。调用Count()枚举所有项目以获得计数，但您只想检查是否有多个项目。最好跳过第一个结果，看看是否还有更多，并且在逻辑上是相同的。

private IEnumerable<IGrouping<string, Reference>> 
    FindReferencesWithTheSameShortNameButDiffererntFullNames(
     List<Reference> references) 
{ 
    return 
     from reference in references 
     group reference by reference.ReferencedAssembly.Name into referenceGroup 
     where referenceGroup 
      .Select(reference => reference.ReferencedAssembly.FullName) 
      .Distinct() 
      .Skip(1) 
      .Any() 
     select referenceGroup; 
} 

所以翻译这个：

Private Function FindReferencesWithTheSameShortNameButDiffererntFullNames(references As List(Of Reference)) As IEnumerable(Of IGrouping(Of String, Reference)) 
    Return 
     From referenceGroup In references.GroupBy(Function(reference) reference.ReferencedAssembly.Name) 
     Where referenceGroup.Select(Function(reference) reference.ReferencedAssembly.FullName).Distinct.Skip(1).Any 
     Select referenceGroup 
End Function