【UiPath】自然順ソート（Natural Sort Order）してみる

はじめに

この投稿は、RPAツール「UiPath」での 実装例 について記事です。

はじめに

この投稿は、RPAツール「UiPath」での API呼び出し例 の記事です。

この記事は「UiPath Friends もくもく会 2021年9月開催 2021-09-25（土）9:00 - 12:00」で書きました。

自然順ソート（Natural Sort Order）とは

自然順ソートとは、数字部分の大小を良い感じに解釈してくれるソートのことです。
WindowsExplorerの「名前順の並び替え」は、この自然順ソートで表示されています。

通常のソートとは違い、数字部分を自然に解釈してくれて、見やすくなっています。

UiPathで自然順ソートする

上述の通り、通常のソートでは自然順になりません。

.NETでソートする場合、StrCmpLogicalW を使ってソートをするのが良くある方法ですが、
「shlwapi.dll」をインポートしないといけないため、ちょっと面倒です。

なので、InvokeCodeで実装してみます。
引数は「In/Out」で配列型を渡します。

'// Argument
' aryIO

'// Function
Dim PartCompare As Func(Of String, String, Integer) = 
    Function(left As String, right As String) As Integer
        Dim x, y As Integer
        If Not(Integer.TryParse(left, x)) Then
            Return left.CompareTo(right)
        ElseIf Not(Integer.TryParse(right, y)) Then
            Return left.CompareTo(right)
        End If
        Return x.CompareTo(y)
    End Function

'// Function
Dim NaturalCompare As Func(Of String, String, Integer) = 
    Function(x As String, y As String) As Integer
        Dim table As New System.Collections.Generic.Dictionary(Of String, String())
         If x = y Then
             Return 0
         End If
         Dim x1, y1 As String()
         If Not(table.TryGetValue(x, x1)) Then
            x1 = System.Text.RegularExpressions.Regex.Split(x.Replace(" ", ""), "([0-9]+)")
            table.Add(x, x1)
        End If
         If Not(table.TryGetValue(y, y1)) Then
            y1 = System.Text.RegularExpressions.Regex.Split(y.Replace(" ", ""), "([0-9]+)")
            table.Add(y, y1)
        End If

        Dim i As Integer = 0
            While i < x1.Length AndAlso i < y1.Length
                 If x1(i) <> y1(i) Then
                     Return PartCompare(x1(i), y1(i))
                 End If
            i += 1
        End While

        If y1.Length > x1.Length Then
            Return 1
        Else If x1.Length > y1.Length Then
            Return -1
        Else
            Return 0
        End If
        Return 0
    End Function

'// Main
For idxA As Integer = 0 To UBound(aryIO) -1
    For idxB As Integer = idxA + 1 To UBound(aryIO)
        If NaturalCompare(aryIO(idxA), aryIO(idxB)) > 0 Then
            Dim wrk As String = aryIO(idxB)
            aryIO(idxB) = aryIO(idxA)
            aryIO(idxA) = wrk
        End If
    Next
Next

配列を受け取り、ループしながら前後で値を比較しています。
比較の際には、数値部分を切り出して桁数を合わせながら実施しています。

普通、.NETでソートを定義する場合は「IComparableインターフェース」を実装したクラスを「Array.Sortメソッド」に渡して処理しますが、UiPathではクラス定義が出来ないので、上記のように前後比較して並び替えています。

終わりに

いかがでしたでしょうか。実装時に役立てば幸いです。
この記事が参考になったら、 LGTMをお願いします。閲覧ありがとうございました。