Re: Alphabetizer FUNCTION

 BBS: Inland Empire Archive
Date: 12-07-92 (15:18)             Number: 373
From: ROB MCKEE                    Refer#: NONE
  To: SHANE HEADER                  Recvd: NO  
Subj: Re: Alphabetizer FUNCTION      Conf: (2) Quik_Bas

Hi Shane
 SH>         Does anyone have a FUNCTION that that will alphabatize a complete
 SH> string array? I have tried unsucessfuly. I'm sure I could do it, but I
 SH> thought I would check with you guys to see if you had one lying around.

If the Array isn't to big a Bubble sort will do it.
 DECLARE FUNCTION StringArraySort (Array$(),lb%,Ub%)

 DEFINT a-z
 FUNCTION StringArraySort (Array$(),lb%,Ub%)
 ' Use only where  Ub%-Lb%<30
 DO
    flip=0
    for t=lb% to Ub%-1
        if Ucase$(array$(t)) > UCASE$(array$(t+1)) then
            swap array$(t) , array$(t+1)
            flip=1
        end if
    next t
 LOOP while flip
 END FUNCTION

 I used to have a Key/step sort routine but the Bit bucket ate it..

                               TTYL -Rob

 ------------------------------ 8< ---------------------------

--- EZPoint V2.1
 * Origin: Flyer Proof Computer Services V# 510-237-8091 (1:125/1212.13)