Top / VB.NET / 文法 / 配列

/配列

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42

'ソート用比較演算子
Private Class nameCompare : Implements System.Collections.IComparer
    Public Function Compare(ByVal right As Object, _
                ByVal left As Object) _
                As Integer Implements IComparer.Compare
        Return ((CType(right, struct)).Name).CompareTo((CType(left, struct)).Name)
    End Function
End Class
 
'メイン処理
Public Class TestClass
    '構造体
    Private Structure struct
        Dim Code As String
        Dim Name As String
    End Structure
 
    '構造体配列のソートを実行（ソート対象はName）
    Private Sub sortStructure(ByVal structList() As struct, _
                  ByRef newStructList() As struct)
        '構造体配列を構造体のArrayListに変換する
        Dim ar As ArrayList = New ArrayList()
        For Each tmpStruct As struct In structList
            ar.Add(tmpStruct)
        Next
 
        'ArrayListのソートを実行する
        ar.Sort(New nameCompare)
 
        '構造体のArrayListから構造体配列に変換する
        Dim tmpStuctList(UBound(structList)) As struct
        Dim i As Integer = 0
        For Each st As struct In as
            With tmpStructList(i)
                .Code = ar.Code
                .Name = ar.Name
            End With
            i += 1
        Next
        NewStructList = tmpStructList
    End Sub
End Class