Array Sort

[Martin Francom]

I must be missing something. I can't seem to get ARRAY SORT to sort a simple array. Can someone show me what I am doing wrong?

FUNCTION PBMAIN () AS LONG
    
    DIM LIST(1-100) AS STRING
    
    LIST (1) = "<ZZMYPROG>"
    LIST (2) = "<MOUNTAIN>"
    LIST (3) = "<BLUEBERRY>"
    LIST (4) = "<APPLES>"
    LIST (5) = "<CHERRIES>"
    
    ARRAY SORT LIST (), DESCEND
    
    PRINT LIST (1)
    PRINT LIST (2)
    PRINT LIST (3)
    PRINT LIST (4)
    PRINT LIST (5)
    
    WAITKEY$

END FUNCTION

This program does not sort the array. Why? What's wrong?

[Ralph Bing]

try and change the dimension of the array to 10 and print all ten

[Michael Mattias]

OR...

ARRAY SORT list[COLOR="Red"](1) FOR 5[/COLOR], DESCEND

[Martin Francom]

Tryed both ways. Program compiles but does not show any results and then get Windows message "Program not responding".

Note: Using Windows Vista.

[Keith Eckerman]

Array Sort

If you dimension the array as DIM LIST(1 TO 100) AS STRING it will compile and sort. Apparently compiler does not understand the dimension 1-100.

[Michael Mattias]

ADD TWO LINES AND RUN THIS:

FUNCTION PBMAIN () AS LONG
    
    DIM LIST(1-100) AS STRING
    PRINT ERR         ' ADD ME 
    WAITKEY$         ' ME TOO
    
    LIST (1) = "<ZZMYPROG>"
    LIST (2) = "<MOUNTAIN>"
    LIST (3) = "<BLUEBERRY>"
    LIST (4) = "<APPLES>"
    LIST (5) = "<CHERRIES>"
    
    ARRAY SORT LIST (), DESCEND
    
    PRINT LIST (1)
    PRINT LIST (2)
    PRINT LIST (3)
    PRINT LIST (4)
    PRINT LIST (5)
    
    WAITKEY$

END FUNCTION

MCM
(You didn't really want to "DIM LINE (0 TO minus ninety-nine), did you?)

[Keith Eckerman]

As Martin wrote:
DIM LIST(1-100) AS STRING
PRINT LBOUND(LIST());","; UBOUND(LIST())

The PBCC5.0 compiler indicates the lower bound to be 0, upper bound is -1.

[Martin Francom]

If you dimension the array as DIM LIST(1 TO 100) AS STRING it will compile and sort. Apparently compiler does not understand the dimension 1-100.

Thank you.... Sometimes I just can't see the tree because of the forest.

[Bob Zale]

Note: 1-100 = -99

[Conrad Hoffman]

99 bottles of beer on the wall, 99 bottles of beer, you take one down, pass it around...

Sorry, it's Friday, couldn't resist!

CH

[Michael Mattias]

>Note: 1-100 = -99

Oh, I'm so sorry, Bob, that's not correct. However, we do have some nice parting gifts for you, including the exciting Home Version of the PowerTree Index Manager..

The correct answer is, "9", THE 'ERR' VALUE FOR WHICH THIS PROGRAM SHOULD HAVE TESTED.