- 日時： 2011/04/05 11:00
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[アルゴリズム][][] *
* キーワード：構造体,配列,ソート,並べ替え,, *
***********************************************************************************
-----------------------------------------------------------------------------------
Re: 構造体のソートについて - ねろ 2005/05/31-11:42 No.1770
-----------------------------------------------------------------------------------
こんな方法もあるのかな。
Returnのところにブレイクポイントを置くとクイックソートやってるのがわかる。
Option Strict On
Imports System
Private Structure CompanyStaff
Implements IComparable
Public Code, Name As String
Public Function CompareTo(ByVal obj As Object) As Integer Implements _
IComparable.CompareTo
Return Me.Code.CompareTo(DirectCast(obj, CompanyStaff).Code)
End Function
End Structure
'//以下単に確認のコード
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim Person As CompanyStaff()
ReDim Person(3)
Person(0).Code = "0004" : Person(0).Name = "すずき-0004"
Person(1).Code = "0003" : Person(1).Name = "あらき-0003"
Person(2).Code = "0005" : Person(2).Name = "やまだ-0005"
Person(3).Code = "0006" : Person(3).Name = "たなか-0006"
Console.WriteLine("ソート前")
For Each w As CompanyStaff In Person
Console.WriteLine(w.Name)
Next
Console.WriteLine("ソート後")
Array.Sort(Person)
For Each w As CompanyStaff In Person
Console.WriteLine(w.Name)
Next
End Sub
|
構造体配列のソート(VB.NET)_2