How to use VBS Array function to arrange the number

[pohyg]

Hello,

 

Can anyone help,

below was the Script i want to make it the result output from smaller number to big number (5,6,10,15 .), can advise me how to arrange ( short out) the below array numbers .

 

Note : My result was (10 , 15, 5, 6)

do not adjust p = Array(w,x,y,z)

 

Call Main()

Sub Main()

 

Dim s(3)

Dim w

Dim x

Dim y

Dim z

Dim p

 

w = 10

x = 15

y = 5

z = 6

 

p = Array(w,x,y,z)

 

Dim a

 

For a = 0 To 3

 

s(a) = p(a)

ShowString s(a)

 

 

 

Next

 

 

End Sub

 

Thank you .

 

Best Regards,

 

Poh Yew Guan

 

TECHTOWN Pte Ltd

 

Distributor for Mastercam® & IMOLD

 

in Singapore, Indonesia, Thailand, Middle East,

 

Vietnam and China

[pip]

Im not very up on VBS, but shouldn't your dim statement be

DIM W,X,Y,Z as integer

[pip]

Okay, I was thinking VB not VBS Sorry

[Guest SAIPEM]

code:

---

Call Main

 

Sub Main()

 

Dim varData(3)

Dim varNew

Dim intI

 

 

varData(0)= 22

varData(1)= 11

varData(2)= 61

varData(3)= 19

 

For intI = LBound(varData) To UBound(varData)

 

MsgBox varData(intI)

 

Next

 

varNew = GetSortedArray(varData)

 

For intI = LBound(varNew) To UBound(varNew)

 

MsgBox varNew(intI)

 

Next

 

End Sub

 

Function GetSortedArray(varArray)

 

Dim intCount

Dim intNumber

Dim varTempData

 

For intCount = UBound(varArray) - 1 To 0 Step -1

 

For intNumber = 0 To intCount

 

If varArray(intNumber) > varArray(intNumber+1) Then

 

varTempData = varArray(intNumber+1)

varArray(intNumber+1) = varArray(intNumber)

varArray(intNumber) = varTempData

 

End if

 

 

Next

 

Next

 

GetSortedArray = varArray

 

 

End Function

---

[pohyg]

Hello ,

 

Pip and Saipem Thank for your help .

 

Saipem your program was work , i will apply

 

this to toollist for the Excel format

 

but how about sort the string from A to Z.

 

I was the beginner to try writting some VB

 

programs , anyway thanks and hope next time you

 

can assist .

 

Best Regards,

 

Poh Yew Guan

 

TECHTOWN Pte Ltd

 

Distributor for Mastercam® & IMOLD

 

in Singapore, Indonesia, Thailand, Middle East,

 

Vietnam and China