Print Page - Sorting Even From Odd?

Title: Sorting Even From Odd?
Post by: TriCk on October 26, 2003, 01:50 AM

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



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



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

Title: Re:Sorting Even From Odd?
Post by: UserLoser on October 26, 2003, 02:17 AM

Code Select


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

Title: Re:Sorting Even From Odd?
Post by: bmwrb16 on October 26, 2003, 04:41 PM

intWD or something would help also

Title: Re:Sorting Even From Odd?
Post by: Banana fanna fo fanna on October 26, 2003, 09:03 PM

Quote from: UserLoser on October 26, 2003, 02:17 AM
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.

Title: Re:Sorting Even From Odd?
Post by: iago on October 27, 2003, 02:14 AM

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

Title: Re:Sorting Even From Odd?
Post by: Michael on November 01, 2003, 06:53 PM

Quote from: iago on October 27, 2003, 02:14 AM
This question was asked somewhere else, too.. one of them should be deleted.

should keep newest and most up to date one

Valhalla Legends Archive

Programming => General Programming => Visual Basic Programming => Topic started by: TriCk on October 26, 2003, 01:50 AM