Sortowanie w VBS
dim arrSortOut(8)
arrSortOut(0)="aCount"
arrSortOut(1)="zExec"
arrSortOut(2)="yFinance"
arrSortOut(3)="der"
arrSortOut(4)="IT "
arrSortOut(5)="!aaaLegal"
arrSortOut(6)="Speed"
arrSortOut(7)="Martha"
arrSortOut(8)="Dread"
wscript.echo "Nieposortowane wartości"
for x=0 to 8
wscript.echo arrSortOut(x)
next
for i = UBound(arrSortOut) - 1 To 0 Step -1
for j= 0 to i
if arrSortOut(j)>arrSortOut(j+1) then
temp=arrSortOut(j+1)
arrSortOut(j+1)=arrSortOut(j)
arrSortOut(j)=temp
end if
next
next
wscript.echo "Posortowane wartości"
for x=0 to 8
wscript.echo arrSortOut(x)
next
Share Link: 
