Sorting strings in a NON logical way

[Marc Venken]

I have a dbf field that contains data for sizes of garment

"L,M,S,XL,XXL,4XL,5XL,XS,XXXL"
"M,L,S,XL"

the correct sort order would be

"XS,S,M,L,XL,XXXL,4XL,5XL"
"S,M,L,XL"

The sortoptions to compare with :

"XS,S,M,L,XL,XXXL,3XL,4XL,5XL"

Now I think of making a for/next and see where I end, but maybe there is again a 1 or 2 liner to do it.

[Antonio Linares]

Dear Marc,

If we can take all the fields values to an array then we can use ASort() with a codeblock

[Marc Venken]

Thanks.

With that idea, chatGpt gave this solution.

Code: Select all  Expand view  RUN

STATIC FUNCTION Test()
local aArray1, aOrder

aArray1 := { "2X", "L", "M", "S", "3X" }

// Definieer een aangepaste volgorde in een array
aOrder := { "S", "M", "L", "XL" , "2X" , "3X" }

// Sorteer aArray1 op basis van de volgorde in aOrder
ASort( aArray1, , , { |x, y| AScan(aOrder, x) < AScan(aOrder, y) } )

xbrowser(aArray1)


RETURN Nil

 

[nageswaragunupudi]

Thanks.

With that idea, chatGpt gave this solution.

Code: Select all  Expand view  RUN

STATIC FUNCTION Test()
local aArray1, aOrder

aArray1 := { "2X", "L", "M", "S", "3X" }

// Definieer een aangepaste volgorde in een array
aOrder := { "S", "M", "L", "XL" , "2X" , "3X" }

// Sorteer aArray1 op basis van de volgorde in aOrder
ASort( aArray1, , , { |x, y| AScan(aOrder, x) < AScan(aOrder, y) } )

xbrowser(aArray1)


RETURN Nil

 

The result is
aArray1 := {"S","M","L","2X","3X"},
which is exactly the same as aArray1 we started with.
What did we achieve?