OpenEuphoria

Re: Sort problem

• Posted by don cole <doncole at pacbell.net> Jun 12, 2007
• 586 views

ok for this example:

db[1][1][1]="3409"--movie number
db[1][1][2]="hello dolly"--title 
db[1][1][3]=".50"--cost
db[1][2][1]="2395"
db[1][2][2]="matrix"
db[1][2][3]="1.25"
db[1][3][1]="1920"
db[1][3][2]="boomtown"
db[1][3][3]=".50"

db[2][1][1]="A2009"--movie number
db[2][1][2]="debbie does dallas again"--title
db[2][1][3]="12.00"--cost
db[2][2][1]="A1060"
db[2][2][2]="Caligula
db[2][2][3]="1.25"
db[2][3][1]="A1150"
db[2][3][2]="girls gone wild 17"
db[2][3][3]="2"

db[3][1][1]="D2019"--movie number 
db[3][1][2]="the unforgiven"--title
db[3][1][3]="2.00"--cost
db[3][2][1]="D1066"
db[3][2][2]="spiderman"
db[3][2][3]="1.25"
db[3][3][1]="D1256"
db[3][3][2]="thug"
db[3][3][3]=".50"

This is a shortened group to show the way it is set up not REAL data.

Notice there are 3 groups reg, adult and dvd.In reality there are six groups
openreg,openadult,opendvd,soldreg,soldadult,and solddvsd.

Each field has a movie number, tite and price. In reality there are 9 fields for
reg
and adult and 11 fields for dvds. 

In this demo there are 3 movies in each db where as in reality there are
many,many more.

Notice also in each movie the movie number is #1 as per the sort documentation.

My windows set up

         number        first        last
           of          movie        movie
         movies        number       number
         ------        ------       ------

reg      EditText1     EditText2    EditText3
 
adult    EditText4     EditText5    EditText6

dvd      EditText7     EditText8    EditText9

setText(EditText1,length(db[1])
setText(EditText2,db[1][1][1])
setText(EditText3,db[1][$][1])

setText(EditText4,length(db[2])
setText(EditText5,db[2[1][1])
setText(EditText6,db[2][$][1])

setText(EditText7,length(db[3])
setText(EditText8,db[3][1][1])
setText(EditText9,db[3][$][1])

Sorting:

for x= 1 to 6 do
   db[x]=sort(db[x])
end for

I have never tried sorting the DEMO data that I have shown here.
I don't see any point in it.

After sorting using the REAL data I get:

            number        first        last
              of          movie        movie
            movies        number       number
            ------        ------       ------
reg          271           3119         4907

adult        24            A4730        A5582

dvd          330           D1031        D4234

soldreg      2514          0888         5150

soldadult    2527          A1121        A0985

solddvd      3164          D1000        D0999       

I expect all this information is correct except for soldadult and solddvd.


If this is not enough information maybe I could email you the whole thing.

Don Cole