テキストファイルの数値データをソートする方法 (ID:118598)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ListBoxコントロールにはソートプロパティがあります、それを利用して。 List1のSotedプロパティをTrueに List2のSotedプロパティをFaleに設定 Dim a(0 To 4) As String, n As Integer Const keta = 5 a(0) = "1": a(1) = "10": a(2) = "2": a(3) = "13": a(4) = "22" For n = 0 To 4 List1.AddItem String(keta - Len(a(n)), "0") + a(n) Next For n = 0 To List1.ListCount - 1 List2.AddItem Val(List1.List(n)) Next こんな手も有ります、なぜかは自分で考えて。