ReverseValue_CFpub ( text )

Returns the text in reverse, including numbers; useful for reversing a portal sort calc

Average rating: 4.5 (32 votes) Log in to vote

Tony Miller - Show more from this author
Fahrsoft
http://www.fahrsoft.com

Sample input:

ReverseValue_CFPub( "A B C 0 9" )

Sample output:

z y x 9 0

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

// Name		: ReverseValue_CFpub
// Creator	: Tony Miller (tony@fahrsoft.com)
// Date		: 5/25/2010
// Purpose	: Returns the text in reverse; useful for reversing a portal sort calc
//		: Example: ReverseValue_CFPub( "A B C 0 9" ) 
//		:                "z y x 9 0"
//		: 
// Params		: text - text to reverse
//		: 
// Requires	: ReverseValue_CFpub (self)
//		: 
//

Let ( [ 
  // Initialize LetterCount to the count of letters in the text
  $$RVLength = If ( IsEmpty ( $$RVLength ) ; Length ( text ) ; $$RVLength ) ;
  // Initialize the start letter at 1, increment with each iteration
  $$RVCurrentLetter = If ( IsEmpty ( $$RVCurrentLetter ) ; 1 ; $$RVCurrentLetter + 1 )
] ; 
  Case ( 

    // We've exceeded the length.  This will be the last iteration, so clear the variables and return the text
    $$RVCurrentLetter > $$RVLength ; 
      Let ( [ 
          $$RVCurrentLetter = "" ; 
          $$RVLength = ""
        ];
          text
      ) ;

    // Reverse the current letter and recur for the next.
    Let ( [ 
      BeginWord = Left ( text ; $$RVCurrentLetter - 1 ) ; 
      CurrentLetter = Middle ( text ; $$RVCurrentLetter ; 1 ) ; 
      CurrentLetterReversed = If ( CurrentLetter = GetAsNumber ( CurrentLetter ) ; 
        GetAsText ( 9 - GetAsNumber ( CurrentLetter ) ) ; 
        Substitute( Upper ( CurrentLetter ); ["A"; "z"]; ["B"; "y"]; ["C"; "x"]; ["D"; "w"]; ["E"; "v"]; ["F"; "u"] ; ["G"; "t"]; ["H"; "s"]; ["I"; "r"]; ["J"; "q"]; ["K"; "p"]; ["L"; "o"]; ["M"; "n"]; ["N"; "m"]; ["O"; "l"]; ["P"; "k"]; ["Q"; "j"]; ["R"; "i"]; ["S"; "h"]; ["T"; "g"]; ["U"; "f"]; ["V"; "e"]; ["W"; "d"]; ["X"; "c"]; ["Y"; "b"]; ["Z"; "a"])
        ) ;
      EndWord = Right ( text ; $$RVLength - $$RVCurrentLetter ) 
    ];
      ReverseValue_CFpub ( BeginWord & CurrentLetterReversed & EndWord )
    )
  )
)

Returns the text in reverse, including numbers; useful for reversing a portal sort calc

Comments

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

ReverseValue_CFpub ( text )

Comments

Support this website.

Support this website.