如何对非唯一值列表中的对象进行排序？

我想按存储的关键字对文章进行分类。我有一个类别的关键字列表，并且我想要一篇文章分配一个关键字数最多的类别。如何对非唯一值列表中的对象进行排序？

For Each keyword As String In category.Keywords 
    category.tempCount += Regex.Matches(article.Item("title").InnerXml, Regex.Escape(keyword)).Count 
    category.tempCount += Regex.Matches(article.Item("description").InnerXml, Regex.Escape(keyword)).Count 
Next

这是为每个类别完成的，为每篇文章运行。我试图对这个列表进行排序，以便告诉哪个类别是最适合这篇文章的类别。然而，有可能不止一个类别是最好的，而且这些类别都不适合。所以运行这个对我没有帮助：

Categories.Sort(
Function(article1 As ArticleCategory, article2 As ArticleCategory) 
    Return article1.tempCount.CompareTo(article2.tempCount) 
End Function)

也许我这样做都是错的，但到目前为止，我认为我是在正确的道路上。（我也有一个类别类的默认比较，它只是没有工作。）

我得到最有可能造成的排序异常，因为它们不是唯一的。

我得到的异常是InvalidOperationException：无法比较数组中的两个元素。这是用我建于ArticleClass

Imports System.Xml 

Class ArticleCategory 
Implements IComparer(Of ArticleCategory) 

Public ReadOnly key As Int32 
Public ReadOnly Name As String 
Public ReadOnly Keywords As List(Of String) 
Public tempCount As Integer = 0 

Public Sub New(ByVal category As XmlElement) 
    key = System.Web.HttpUtility.UrlDecode(category.Item("ckey").InnerXml) 
    Name = System.Web.HttpUtility.UrlDecode(category.Item("name").InnerXml) 

    Dim tKeywords As Array = System.Web.HttpUtility.UrlDecode(category.Item("keywords").InnerXml).Split(",") 
    Dim nKeywords As New List(Of String) 
    For Each keyword As String In tKeywords 
     If Not keyword.Trim = "" Then 
      nKeywords.Add(keyword.Trim) 
     End If 
    Next 

    Keywords = nKeywords 
End Sub 

'This should be removed if your using my solution. 
Public Function Compare(ByVal x As ArticleCategory, ByVal y As ArticleCategory) As Integer Implements System.Collections.Generic.IComparer(Of ArticleCategory).Compare 
    Return String.Compare(x.tempCount, y.tempCount) 
End Function 


End Class

来源

2011-12-17 JustinKaz

比较程序，您需要实现IComparable而不是IComparer。

IComparer将由执行排序的类（例如List类）实现，而IComparable将由要排序的类实现。

例如：

Public Function CompareTo(other As ArticleCategory) As Integer Implements System.IComparable(Of ArticleCategory).CompareTo 
    Return Me.tempCount.CompareTo(other.tempCount) 
End Function

来源

2011-12-18 00:58:24

可能工作...虽然我使用LINQ做我现在整理。非常容易使用，不需要使用比较器的东西。 – JustinKaz 2011-12-19 01:26:00

我发现用的是微软的LINQ（为对象查询语言），它工作得很好，很快的最佳解决方案产生正确的结果。

Dim bestCat As ArticleCategory 
bestCat = (From cat In Categories 
      Order By cat.tempCount Descending, cat.Name 
      Select cat).First

完成我的解决方案：

For Each category As ArticleCategory In Categories 
    category.tempCount = 0 

    For Each keyword As String In category.Keywords 
     category.tempCount += Regex.Matches(System.Web.HttpUtility.UrlDecode(article.Item("title").InnerXml), Regex.Escape(keyword)).Count 
     category.tempCount += Regex.Matches(System.Web.HttpUtility.UrlDecode(article.Item("description").InnerXml), Regex.Escape(keyword)).Count 
    Next 

Next 

Dim bestCat As ArticleCategory 

Try 
    bestCat = (From cat In Categories 
       Order By cat.tempCount Descending, cat.Name 
       Select cat).First 
Catch ex As Exception 
    ReportStatus(ex.Message) 
End Try

所以这是我做排序或一个列表对象或阵列上的查询优选方法。它以最快的速度生成最佳结果，而无需将IComparer实现添加到您的类中。

瞧瞧吧Microsoft.com

来源

2011-12-19 01:31:54 JustinKaz

如何对非唯一值列表中的对象进行排序？

回答

相关问题