vb.net listview並べ替える

Question

VBでファイルの中で時間の順番が並べ替えてほしいです。
(ファイルの中に2000行があります。)
2010 15:03:09
2010 08:03:09
2010 09:07:08
2011 08:07:09
.........
下にコードを書きましたが、実行できなかったです。
お教えてください。

For Each filename In files
           Dim sr As New System.IO.StreamReader(filename, _
             System.Text.Encoding.GetEncoding(932))
           'ストリームの末端まで繰り返す
           Do While sr.Peek <> -1
               ReDim Preserve Line(lineCnt)
               'lineにセット
               Line(lineCnt) = sr.ReadLine()
               '行の結合
               If Not (Line(lineCnt).IndexOf("2010") = 0) Then
                   Line(lineCnt - 1) = Line(lineCnt - 1) & Line(lineCnt)
               Else
                   lineCnt = lineCnt + 1
               End If
           Loop

Dim temp As String                       '並べ替えた後の行
            Dim val As String                       '並べ替えた後の時間
            For k As Integer = 0 To Line.Length - 1
            ReDim Preserve cnt1(k)   '年
            ReDim Preserve cnt2(k)   '時間
                Dim i As Integer = 0
                Dim j As Integer = 0
            While (i < k)
                j = 0
                While (j < k - i)
                    If (cnt1(k) = cnt1(j)) Then
                        If (cnt2(k) > cnt2(j)) Then
                            temp = Line(k)
                            val = cnt2(k)
                            Line(k) = Line(j)
                            cnt2(k) = cnt2(j)
                            Line(j) = temp
                            cnt2(j) = val
                        End If
                    End If
                    j += 1
                End While
                i += 1
            End While
            Next
コード

Answer 1

このプログラムを修正する方法ではありませんが、Sortedlistを使ってみてはいかがでしょうか？VB.netであれば使えたと思います。

SortedListのmsdn

Dim SortList As New SortedList()

For Each filename In files

Dim sr As New System.IO.StreamReader(filename, _
              System.Text.Encoding.GetEncoding(932))
            'ストリームの末端まで繰り返す
   Do While sr.Peek <> -1
      '今回は年と時間だけなので仮に日付を1/1にして比較用にDatetime型を使う
      SortList.Add(DateTime.Parse(”取得した文字列を日時に成形”),_
          ”出力用の文字列として取得した文字列をそのまま")
   Loop

とすれば、勝手にこのリストの機能で時間でオーダーされたリストが出来上がるのであとは、Forなどで回して文字列に変更してしまえばいいのではないでしょうか？

Answer 2

もし私なら、上記の文字列を日付型に変換して(年月は1月1日に固定)Listの機能でソートします。

        'ファイルからとってくる箇所は割愛
        Dim fromList As New List(Of String)
        fromList.Add("2010 15:03:09")
        fromList.Add("2010 08:03:09")
        fromList.Add("2010 09:07:08")
        fromList.Add("2011 08:07:09")

        Dim dateList As New List(Of DateTime)
        For Each rows In fromList
            Dim array1 = rows.Split(" "c)
            'その年の1月1日としてDateTime型に変換
            dateList.Add(DateTime.Parse(array1(0) & "/1/1 " & array1(1)))
        Next
        'ここで並び変わっているはず
        dateList.Sort()
        For Each rows In dateList
            Console.WriteLine(rows.ToString)
        Next