Imports System

Imports System.Collections.Generic

Imports System.Linq

​

Public Module Module1

    Public Sub Main()

                ' 創建一個 List 來存儲資訊

        Dim infos As New List(Of Info_SortPSD) From {

            New Info_SortPSD With {.Cmdidx = New CommandRunIdx With {.Index = 1}, .DistanceTo = 100, .Priority = 1, .GoalGroup = "A"},

            New Info_SortPSD With {.Cmdidx = New CommandRunIdx With {.Index = 2}, .DistanceTo = 200, .Priority = 2, .GoalGroup = "B"},

            New Info_SortPSD With {.Cmdidx = New CommandRunIdx With {.Index = 3}, .DistanceTo = 150, .Priority = 3, .GoalGroup = "A"},

            New Info_SortPSD With {.Cmdidx = New CommandRunIdx With {.Index = 4}, .DistanceTo = 300, .Priority = 4, .GoalGroup = "C"},

            New Info_SortPSD With {.Cmdidx = New CommandRunIdx With {.Index = 5}, .DistanceTo = 50, .Priority = 1, .GoalGroup = "B"}

        }

​

        ' 使用 LINQ 根據群組和距離進行排序

        'Dim sortedInfos = infos.OrderBy(Function(info) info.Group).ThenBy(Function(info) info.Dist)

        Dim sortedInfos = From info In infos

                          Order By (info.GoalGroup <> ""), info.DistanceTo

        ' 打印排序後的結果

        For Each info In sortedInfos

            Console.WriteLine(info)

        Next

​

        ' 等待用戶按下鍵以結束程序

​

    End Sub

    Public Structure Info_SortPSD

    Dim Cmdidx As CommandRunIdx

    Dim DistanceTo As Int32

    Dim Priority As Int32

    Dim GoalGroup As String

    End Structure

​

    ' 假設 CommandRunIdx 是一個已經定義的結構或類

    Public Structure CommandRunIdx

        Dim Index As Integer

    End Structure

​

End Module