Sorting Even From Odd?

[TriCk]

Ok im getting the words from a text
Then...
Im using the Split method
to Split them if they contain "; "

Code Select Expand



Word() = Split(Words, "; ")
For Wd = 0 To UBound(Word)



This is the part where i want to separate the numbers even from odd...
Then do something like...

Code Select Expand



If Odd Then
listbox1.additem Word(Wd)
Else
listbox2.additem Word(Wd)
End If
Next Wd




[UserLoser]

Code Select Expand


Word() = Split(Words, "; ")
For Wd = 0 To UBound(Word)
    If (Word(Wd) Mod 2) = 1 Then
         lstOddNumbers.AddItem Word(Wd)
    Else
         lstEvenNumbers.AddItem Word(Wd)
    End If
Next Wd


[bmwrb16]

intWD or something would help also

[Banana fanna fo fanna]

Code Select Expand


Word() = Split(Words, "; ")
For Wd = 0 To UBound(Word)
    If (Word(Wd) Mod 2) = 1 Then
         lstOddNumbers.AddItem Word(Wd)
    Else
         lstEvenNumbers.AddItem Word(Wd)
    End If
Next Wd


Tip: 'Mod' gets the integer remainder from divison.

[iago]

This question was asked somewhere else, too.. one of them should be deleted.

[Michael]

This question was asked somewhere else, too.. one of them should be deleted.

should keep newest and most up to date one