• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 3843
  • Last Modified:

Sorting Numbers and Finding Next Highest Number

I am needed suggestions on how to accomplish the following task with numbers.

Step 1: Sort the numbers.
Step 2: Select one of the numbers in the list.
Step 3: Find the next highest number from the number selected in step 2.

For example, my app is returning a list of numbers, such as:

1
1177
1189
12
1237
1261
1377

Of course, in the example above, the list is not truly sorted as 12 should be after the 1 in the list.
0
abnc
Asked:
abnc
1 Solution
 
Jaime OlivaresCommented:
Well, there are many sorting algorithms, the easiest I think is sustitution:
Just scan all elements of array (minus one) and compare with the next element, if greater, swap them. Scan again until no swap is made.
once ordered select a number in the list (array) and the next element will be next highest number.
 
0
 
aelatikCommented:
How do you get the numbers, in an arrray ? Where do you want them to get sorted ? In a listbox ?
0
 
Jaime OlivaresCommented:
Start creating an array with numbers:

Dim myArray(10) as Integer
myArray(1) = 1
myArray(2) = 1177
'etcetera

Use a for ... next statement
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
vinnyd79Commented:
If the numbers are in a Listbox you can set the sorted property to true and use Format to add 0's so they sort properly.

List1.AddItem Format("1", "000#")
List1.AddItem Format("1177", "000#")
List1.AddItem Format("12", "000#")
0
 
Glen A.IT Project ManagerCommented:
If this is a listbox you can pad the items in the listbox with spaces, then it sorts properly.

IE:  if you populate the listbox this way, with spaces, then it will be sorted.

   List1.AddItem "   1"
   List1.AddItem "1177"
   List1.AddItem "1189"
   List1.AddItem "  12"
   List1.AddItem "1237"
   List1.AddItem "1261"
   List1.AddItem "1377"

0
 
Glen A.IT Project ManagerCommented:
lol, posted mine after vinnyd79's -  his would work just as well, even better...
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now