ListSort ( ValueList )

Sort of a (short) list without subfunctions (recursive)

Average rating: 3.5 (2 votes) Log in to vote

Theo Tromp
XS Consultants
http://www.xs.nl

Sample input:

ListSort ( 3
2
1 )

Sample output:

1
2
3

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

// Sorts a list of maximum 100 items

Let ( [
	_dlm = "<d_e_l_i_m_i_t_e_r>" ;
	_dlmLength = Length ( _dlm ) ;
	_pos = Position ( Valuelist ; _dlm ; 1 ; 1 )  ;
	_len = Length ( ValueList ) ;
	_ListLeft = Left ( ValueList ; _pos - 1 ) ;
	_ListRight = Right ( ValueList ; _len - _pos - _dlmLength + 1 ) ;
	_ItemLeft = GetValue ( _ListLeft ; 1 ) ;
	_ItemRight = GetValue ( _ListRight ; 1 ) ;
	_RestLeft = RightValues ( _ListLeft ; ValueCount ( _ListLeft ) - 1 ) ;
	_RestRight = RightValues ( _ListRight ; ValueCount ( _ListRight ) - 1 ) 
	] ;
	Case (
		IsEmpty ( ValueList ) ; "" ;
		ValueCount ( Valuelist ) > 100 ; Valuelist ;
		_Pos = 0 ;  _ListSort (  Valuelist & _dlm ) ;
		ValueCount ( Valuelist ) = 1 ; _ItemLeft & _ItemRight ;
		IsEmpty ( _ListRight ) ; _ListSort ( _RestLeft & _Dlm & _ItemLeft ) ;
		IsEmpty ( _ListLeft ) ; _ItemRight & ¶ & _ListSort ( _RestRight & _dlm ) ;
		_ItemLeft < _ItemRight and IsEmpty ( _RestRight ) ; _ListSort ( _RestLeft & _dlm & _ItemLeft & ¶ & _ItemRight ) ;
		_ItemLeft > _ItemRight and IsEmpty ( _RestRight) ; _ListSort ( _RestLeft & _dlm & _itemright  & ¶ & _ItemLeft ) ;
		_ItemLeft < _ItemRight ; _ListSort ( _RestLeft & _dlm & _ItemLeft & ¶ & _ItemRight & ¶ & _RestRight ) ;
		_ItemLeft > _ItemRight ; _ListSort ( _RestLeft & _dlm & _itemright  & ¶ & _ItemLeft & ¶ & _restRight ) ;
		""
		) // End Case
	) // End Let

The list is sorted

Comments

		Lee Smith Aug 25, 2017
Your CF is looking fore _ListSort ?

		Theo, lelystad Aug 26, 2017
Oeps, I renamed _ListSort to ListSort but forgot the references....

		Huib, Amsterdam Dec 30, 2017
Hallo Theo, 10 1 2 sorts as 1 10 2 instead of 1 2 10 the calculation field is set on number or did I applied your function wrongly? ps: denk dat ik in het NL had kunnen schrijven..

		Theo Tromp, Lelystad Dec 30, 2017
Ja Huib, het is een alfabetische sort. Is niet aangegeven, dat is niet zo netjes. Theo In English: The function is sorting alphabetical order. So numbers are treated als strings also. Theo

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ListSort ( ValueList )

Comments

Support this website.

Support this website.