How can I sort an array alphabetically? 1

[DOJRich]

I have a comma separated list of locations in the report footer of my report.
This formula is in the details section:

WhilePrintingRecords;
stringvar array locarr;
numbervar i;
if not({AUDIT.LOCATION} in locarr) then
(
i := i + 1;
redim preserve locarr;
locarr := {AUDIT.LOCATION};
);
locarr

And this formula is in the Report Footer:

WhilePrintingRecords;
stringvar array locarr;
stringvar fin;
numbervar j;
numbervar n;
for j := 1 to ubound(locarr) do
fin := fin + locarr[j] + ", ";
left(fin,len(fin)-2);

The problem is that the results are printed in the order they were put into the array. How can I sort the array so that when it prints the results, the locations are in alphabetical order?

Thanks.

 

[kray4660]

You would need to create a sort routine for the array. There are lot of different ways of sorting.

 

[ianoctdec]

Using Bubble sort:

whileprintingrecords;
stringvar array MyValues := locarr;
numbervar i;
numbervar j;
stringvar temp;
for i:=1 to ubound(MyValues)-1 do (
for j:=1 to ubound(MyValues)-i do(
if MyValues[j] > MyValues[j+1] then (
temp := MyValues[j];
MyValues[j] := MyValues[j+1];
MyValues[j+1] := temp;
)
)
);
join(MyValues,", ")

 

[kenhamady]

That is a well written little routine. Would you mind if I posted it on my blog? Happy to give you credit based on your TT handle or name.

Ken Hamady, On-site Custom Crystal Reports Training & Consulting
Public classes and individual training.
Guides to Formulas, Parameters, Subreports, Cross-tabs, VB, Tips and Tricks

http://www.kenhamady.com/