如何使用C＃增加循环的性能

Question

i使用嵌套for循环比较Microsoft项目的任务数据。但是由于该项目有许多记录（超过1000个），因此非常慢。

如何提高性能？

for (int n = 1; n < thisProject.Tasks.Count; n++) 
{
    string abc = thisProject.Tasks[n].Name;
    string def = thisProject.Tasks[n].ResourceNames;
    for (int l = thisProject.Tasks.Count; l > n; l--) 
    {
        // MessageBox.Show(thisProject.Tasks[l].Name);
        if (abc == thisProject.Tasks[l].Name && def == thisProject.Tasks[l].ResourceNames) 
        {
            thisProject.Tasks[l].Delete();
        }
    }
}

您注意到，我正在比较单个Task上的Name和ResourceNames，当我找到重复时，我致电Task.Delete以摆脱副本

Answer 1

在这种情况下，哈希检查应该更快得多。

首先，提供您自己的平等比较

class TaskComparer : IEqualityComparer<Task> {
    public bool Equals(Task x, Task y) {
        if (ReferenceEquals(x, y)) return true;
        if (ReferenceEquals(x, null)) return false;
        if (ReferenceEquals(y, null)) return false;
        if (x.GetType() != y.GetType()) return false;
        return string.Equals(x.Name, y.Name) && string.Equals(x.ResourceNames, y.ResourceNames);
    }
    public int GetHashCode(Task task) {
        unchecked {
            return 
                ((task?.Name?.GetHashCode()         ?? 0) * 397) ^ 
                 (task?.ResourceNames?.GetHashCode() ?? 0);
        }
    }
}

不必太担心GetHashCode函数实现；这只是一个肉板代码，它从其属性中构成了唯一的哈希代码

现在，您有此类进行比较和哈希，可以使用以下代码删除dupes

var set = new HashSet<Task>(new TaskComparer());
for (int i = thisProject.Tasks.Count - 1; i >= 0; --i) {
    if (!set.Add(thisProject.Tasks[i]))
        thisProject.Tasks[i].Delete();
}

您注意到，您只是在扫描所有元素，同时将它们存储到HashSet中。如果提供的元素是重复的，则此HashSet将根据我们的平等比较检查。

现在，由于要删除它，因此检测到的DUPE被删除。您可以修改此代码以简单地提取Unique项目，而不是通过将条件反转为if (set.Add(thisProject.Tasks[i]))并在此if

Answer 2

Microsoft项目具有一种排序方法，可以简单地解决此问题。按名称，资源名称和唯一ID对任务进行排序，然后通过比较相邻任务并删除重复项来循环。通过使用唯一的ID作为第三种键，您可以一定要删除以后添加的副本。另外，您可以使用任务ID删除计划中较低的任务。这是如何执行此操作的VBA示例：

Sub RemoveDuplicateTasks()
    Dim proj As Project
    Set proj = ActiveProject
    Application.Sort Key1:="Name", Ascending1:=True, Key2:="Resource Names", Ascending2:=True, Key3:="Unique ID", Ascending3:=True, Renumber:=False, Outline:=False
    Application.SelectAll
    Dim tsks As Tasks
    Set tsks = Application.ActiveSelection.Tasks
    Dim i As Integer
    Do While i < tsks.Count
        If tsks(i).Name = tsks(i + 1).Name And tsks(i).ResourceNames = tsks(i + 1).ResourceNames Then
            tsks(i + 1).Delete
        Else
            i = i + 1
        End If
    Loop
    Application.Sort Key1:="ID", Renumber:=False, Outline:=False
    Application.SelectBeginning
End Sub

注意：这个问题与算法有关，而不是语法；VBA很容易转换为C＃。

Answer 3

这应该为您提供所有重复的项目，因此您可以从原始列表中删除它们。

thisProject.Tasks.GroupBy(x => new { x.Name, x.ResourceNames}).Where(g => g.Count() > 1).SelectMany(g => g.Select(c => c));

请注意，您可能不想删除所有这些，只有重复版本，因此请小心您如何循环浏览此列表。

Answer 4

从任务列表中获取不同元素的LINQ方法：

public class Task
{
    public string Name {get;set;}
    public string ResourceName {get;set;}
}
public class Program
{
    public static void Main()
    {
        List<Task> Tasks = new List<Task>();
        Tasks.Add(new Task(){Name = "a",ResourceName = "ra"});
        Tasks.Add(new Task(){Name = "b",ResourceName = "rb"});
        Tasks.Add(new Task(){Name = "c",ResourceName = "rc"});
        Tasks.Add(new Task(){Name = "a",ResourceName = "ra"});
        Tasks.Add(new Task(){Name = "b",ResourceName = "rb"});
        Tasks.Add(new Task(){Name = "c",ResourceName = "rc"});
        Console.WriteLine("Initial List :");
        foreach(var t in Tasks){
            Console.WriteLine(t.Name);  
        }
        // Here comes the interesting part
        List<Task> Tasks2 = Tasks.GroupBy(x => new {x.Name, x.ResourceName})
                                 .Select(g => g.First()).ToList();
        Console.WriteLine("Final List :");
        foreach(Task t in Tasks2){
            Console.WriteLine(t.Name);  
        }
    }
}

这将选择具有相同Name和ResourceName的每个第一个元素。

在此处运行示例。