sort Filename (Extension)

[Jimmy]

hi,

i do "sort" Result of Directory() but it is not correct with Extension

Code: Select all  Expand view  RUN

  CASE nCol = LV_NAME
      IF ::SortOrder = LVS_SORTASCENDING
         ASORT( aDirOut, nStartAt + 1,, { | x, y | ( UPPER( x[ LV_NAME ] ), UPPER( y[ LV_NAME ] ), .T. ) } )

   CASE nCol = LV_EXT
      IF ::SortOrder = LVS_SORTASCENDING
         ASORT( aDirOut, nStartAt + 1,, { | x, y | ( x[ LV_EXT ] + UPPER( x[ LV_NAME ] ) ) < ( y[ LV_EXT ] + UPPER( y[ LV_NAME ] ) ) } )
 

as you can "see" CDX is between C
how to change sort

[Natter]

For example so:

Code: Select all  Expand view  RUN

dim:=directoty("*.*")
ASORT( dim, ,, { | xx,y y | ( padl(UPPER(cFileExt(xx[1] )),5) < padl(UPPER( cFileExt(yy[1] ) ),5) } )

Or you can compare CRC file extensions

[Jimmy]

hi,

thx for Answer

now CDX is behind BAT and before DBF


what i like to have is
*.C
*.CDX
*.CH

[Jimmy]

hi,

i have use Idea of PAD but use PADR()

now it display like i want, thx

[nageswaragunupudi]

PADR is not at all necessary.

Can try:

Code: Select all  Expand view  RUN

  ? ASort( { "CDX", "c", "Cpp", "cH" },,,;
      { |x,y| LOWER( X ) < LOWER( y ) } )
 

For case insensitive comparisons, we recommend using

Code: Select all  Expand view  RUN

FW_Stricmp( c1, c2 ) // --> -2, -1, 0, 1, 2
 

Incidentally, this function Data Type safe also.

The above function can be written as:

Code: Select all  Expand view  RUN

  ? ASort( { "CDX", "c", "Cpp", "cH" },,,;
      { |x,y| FW_Stricmp( x, y ) < 0 } )
 

[nageswaragunupudi]

And wherever possible, it may be easier to leave the sorting business to xbrowse itself and xbrowse does a good job.

Code: Select all  Expand view  RUN

  local aDir  := DIRECTORY( "c:\fwh\samples\*.*" )

   SET DATE FORMAT TO "dd.mm.yyyy"
   SET TIME FORMAT TO "hh:mm:ss"

   AEval( aDir, { |a| a[ 3 ] := FW_AddTime( a[ 3 ], a[ 4 ] ), ;
                  AIns( a, 2, cFileExt( a[ 1 ] ) ), ASize( a, 4 ) } )

   XBROWSER aDir AUTOSORT SETUP ( ;
      oBrw:cHeaders := { "NAME", "EXT", "SIZE", "DATE" }, ;
      oBrw:AutoFit(), ;
      oBrw:SetDarkTheme() )
 

[Jimmy]

hi,

And wherever possible, it may be easier to leave the sorting business to xbrowse itself and xbrowse does a good job.

thx for help

i´m sure it work under Fivewin but i use also HMG or Xbase++
so i always search Solution which i can use for all xBase-Dialect