quick sort code

Hi, This may not be the best place for this but let's try anyway.

I'd like to write some code to sort values manually. This will not end up being
an Excel or VB project. It's a general routine that I want to bring over to
UBasic which doesn't have a sort command as far as I know.

I have 36 array variables of which the first 8 are chosen by nested For-Next
loops. The remaining values are derived from these 8.

To be usable for testing none of these 36 can be equal to each other. The
simplest way I can think of to test for this is to sort ascending then compare
one to the next. That way I only have 35 comparisons to make vs >600 otherwise.

As I have 8 nested for-next loops that each go from 1 to 36 I need a good
fast sort code that handles any equal values without going into an endless
loop or bombing out. Other messages here don't seem to cover this particular situation.

Thanks for any help.

bc

Oh, I should mention that I have programmed this already in Excel and it runs just great. The cells themselves do a lot of the work so that the code is minimum.

The only problem is that running it in Excel is about 200 times slower than UBasic. It would take months to run in Excel.

bc

Hello bceng,

Having 8 levels of nesting is going to slow down even the fastest sort. The second problem is the examples. Examples given here will be for Excel and not UBasic. Unless you are comfortable with transitioning the code, the examples won't be of much use. You should probably evaluate your sort and search for a suitable sorting algorithm you can apply that doesn't require 8 levels of nesting.

Sincerely,
Leith Ross

The 8 levels of nesting isn't where the problem is. While time consuming it's still easy. And transitioning the code isn't too much of a problem as long as I can understand what the code is doing.

The problem is that I don't know how to write a sort routine. While I probably could figure out a bubble code seems to me it will hang up if there are multiple equal values. And for quick sort I don't know how that's done.

So I was just hoping someone here knew how it's all done without a pre-programmed command to do it for them. TIA.

bc

Thanks shg I'll try that.

Sorry it took so long to get back to you. You're code worked fine. I modified
it a bit to do my specific task but it does just what I was looking for.

Thanks.
bc