【VBScript（VBS）】配列の入替にはバブルソートを使ってみよう。

配列の入替にはバブルソートを使ってみよう。

今回は、VBScriptで配列を入れ替えたい場合、バブルソートを用いた例をご紹介します。

バブルソートの例

▽バブルソートのプログラムコード例

Sub sortBubble(ByRef a) ' バブルソート例
    Dim n
    For n = 0 To UBound(a) - 1
        Dim m
        For m = n + 1 To UBound(a)
            If a(m) < a(n) Then
            	dim wkSort
            	wkSort = a(m)
            	a(m) = a(n)
            	a(n) = wkSort
            End If
        Next
    Next
End Sub

▽呼び出し方

Call sortBubble(aryOut)

まとめ

• VBScriptで配列を入れ替えたいときはバブルソートを使ってみよう！
• For文を組み合わせて実装する
• 数値や文字列を比較して、入れ替えていこう

いかがでしたでしょうか？
今回は、VBScriptで配列を入れ替えたい場合のバブルソートを用いた例をご紹介しました。
どんなプログラム言語でも基本は一緒です。
多くのデータを扱うようなプログラムでは、並び替えが必要な場面が多くあります。
今回ご紹介した内容が参考になれば嬉しいです。

以上、「【VBScript（VBS）】配列の入替にはバブルソートを使ってみよう。」でした。