配列をソートする

配列をソートするサンプルコードです。

VBS

Set AList = CreateObject("System.Collections.ArrayList")

dim x(100)
x(0)="xxx"
x(1)="ggg"
x(2)="aaa"

x(3)="しお"
x(4)="さとうみず"
x(5)="さとう"


i=0
do while x(i)<>""
AList.Add x(i)
i=i+1
loop

AList.Sort()

i=o

For Each kaku_AList in AList
x(i)=kaku_AList
wscript.echo kaku_AList
i=i+1
Next

set AList = Nothing

サンプル：

aaa

ggg

xxx

さとう

さとうみず

しお

コマンドサンプル一覧