C# と VB.NET の質問掲示板

■No14299 (よねＫＥＮ さん) に返信
回答ありがとうございます。
言葉足らずですみませんでした。

以下のようなコードを書いてみました。

---コード---
	DateTime operationTimeA = new DateTime(2008,2,1,15,0,0);
	DateTime operationTimeB = new DateTime(2008,2,2,10,0,0);
	DateTime operationTimeC = new DateTime(2008,2,1,8,0,0);
	DateTime operationTimeD = new DateTime(2008,2,1,10,0,0);
	DateTime operationTimeE = new DateTime(2008,2,2,8,0,0);

	ArrayList array = new ArrayList();
	array.Add(operationTimeA);
	array.Add(operationTimeB);
	array.Add(operationTimeC);
	array.Add(operationTimeD);
	array.Add(operationTimeE);

	array.Sort();

	foreach (DateTime dt in array)
	{
		Console.WriteLine(dt.ToString());
	}

---表示結果---
2008/02/01 8:00:00
2008/02/01 10:00:00
2008/02/01 15:00:00
2008/02/02 8:00:00
2008/02/02 10:00:00

これだと、ちゃんと昇順で変わっているのですが、
どの変数が1位になったのかが、わかりません。

先ほどの質問ではその部分がぬけていましたが、
どの変数が1位になったのかの情報も含めて、ソートした情報を取得したかったのです。

何かいい方法はありますでしょうか？

通し番号も一緒に並び変えたらええですねー

using System;
using System.Collections;

public class Program {
  public static void Main() {

    DateTime operationTimeA = new DateTime(2008,2,1,15,0,0);
    DateTime operationTimeB = new DateTime(2008,2,2,10,0,0);
    DateTime operationTimeC = new DateTime(2008,2,1,8,0,0);
    DateTime operationTimeD = new DateTime(2008,2,1,10,0,0);
    DateTime operationTimeE = new DateTime(2008,2,2,8,0,0);

    SortedList list = new SortedList();
    list.Add(operationTimeA,0);
    list.Add(operationTimeB,1);
    list.Add(operationTimeC,2);
    list.Add(operationTimeD,3);
    list.Add(operationTimeE,4);

    foreach ( DictionaryEntry de in list) {
        Console.WriteLine("[{0}] {1}", de.Value, de.Key);
    }
  }
}

■No14301 (επιστημη さん) に返信
> 通し番号も一緒に並び変えたらええですねー

これだと、
>>> 同じ時刻のものが複数あれば、それを列挙したいです
のように、同じ時刻があった時に失敗する予感。


どのように列挙したいのか分からなかったのだけれど、これでどうだろう?

Hashtable rawList = new Hashtable();
rawList.Add("operationTimeA", operationTimeA);
rawList.Add("operationTimeB", operationTimeB);
rawList.Add("operationTimeC", operationTimeC);
rawList.Add("operationTimeD", operationTimeD);
rawList.Add("operationTimeE", operationTimeE);

SortedList sortedList = new SortedList();
foreach (DictionaryEntry item in rawList)
{
    StringCollection keys;
    if (sortedList.ContainsKey(item.Value))
    {
        keys = (StringCollection)sortedList[item.Value];
    }
    else
    {
        keys = new StringCollection();
        sortedList.Add(item.Value, keys);
    }
    keys.Add((string)item.Key);
}

int rank = 1;
foreach (DictionaryEntry item in sortedList)
{
    DateTime dt = (DateTime)item.Key;
    StringCollection names = (StringCollection)item.Value;
    Console.WriteLine("{0}位: {1:yyyy/MM/dd HH:mm:ss}", rank, dt);
    foreach (string name in names)
    {
        Console.WriteLine("  変数名:{0}", name);
    }
    rank += names.Count;
}

> そこで次に、直近に動作しなければならない時刻は何時で、それはどの処理なのか？
> を取得しようと思ったところで詰まっていました。

ということはどの処理のなのか？の判定用の値はIDでも名前でもよさそうですね。

C#だと書くのに時間がかかるのでVBのコードで申し訳ないのですが、
例えば、以下のようなクラスを作ってはどうでしょうか。
このクラスのようなのを用意すれば、tucchiさんの元のソースでDateTime型をAddしているのを
Task型に変えればOKです。
・Nameはその処理の名前
・Priorityは同時刻の場合のソート順を決定する優先順位

'※ 実行してません。のでバグが普通にありそう。
Public Class Task
    Implements IComparable
    Public OperationDateTime As DateTime
    Public Name As String
    Public Priority As Integer

    Public Sub New(ByVal OperationDateTime As DateTime, _
                   ByVal Name As String, _
                   ByVal Priority As Integer)

          Me.OperationDateTime = OperationDateTime
          Me.Name  = Name 
          Me.Priority  = Priority
    End Sub

    Public Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo
        If TypeOf obj Is Task Then
            Dim target As Task= DirectCast(obj, Task)
            Dim ret As Integer = OperationDateTime.CompareTo(target.OperationDateTime)

            If ret = 0 Then
               Return Priority.CompareTo(target.Priority)
            End If
            Return ret
        End If

        Throw New ArgumentException("比較対象がTaskオブジェクトではありません。")
    End Function
End Class

※Array.SortやSortedListが安定したソートかどうかMSDNで記述を見つけられなかったので、
　明示的に優先順位を指定できるようにしてみました。