OpenEuphoria

Re: Sort problem

• Posted by CChris <christian.cuvier at agriculture.gouv.fr> Jun 12, 2007
• 544 views

don cole wrote:
> 
> 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

I'd expect some sort of corruption occurred in your actual dataset, at least
in the groups with unexpected results. More precisely, I suspect some records
don't have the same length.

Could you please check the actual individual entry with movie number "D1000"
in the solddvd group, and see if it has the same length as the one with
number "D0999"? I expect it to be shorter. At this point, there may be extra
data in the "last" item or missing data in the "first" one just as well.
Or wrong labelling, causing a dvd to be in a nondvd category or vice versa.

CChris