PhoneFormat ( InPhone )

Format into 1 to 3 digit chunks with a final 4 digit chunk. Extensions not handled. Not recursive.

Be the first to rate this function Log in to vote

Richard DeShong - Show more from this author
Logic Tools
http://logictools.com

Sample input:

PhoneFormat ( "1234567890" )

Sample output:

123-456-7890

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

Let([
   InPhone = TextFontRemove ( TextFormatRemove ( InPhone ) ) ;
   Digits = GetAsText( Filter( InPhone ; "1234567890" ) ) ;
   Cnt = Length( Digits ) ;
   tx = "-"   // text delimiter character
];
   Case(
      Filter( Digits ; "0" ) = Digits ; TextColor( InPhone ; RGB( 255 ; 0 ; 0 ) ) ;   // error if all zeros
      Cnt < 7 ; TextColor( InPhone ; RGB( 255 ; 0 ; 0 ) ) ;
      Cnt = 7 ; Left( Digits ; 3 ) & tx & Right( Digits ; 4 ) ;
      Cnt < 10 ; TextColor( InPhone ; RGB( 255 ; 0 ; 0 ) ) ;
      Cnt = 10 ; Left( Digits ; 3 ) & tx & Middle( Digits ; 4 ;3 ) & tx & Right( Digits ; 4 ) ;

      // 11 plus = <international>-###-###-####
      Let([
         Pre = Left( Digits ; Cnt - 10 ) ;
         Pre = Case( Left( Pre ; 3 ) = "011" ; Middle( Pre ; 4 ; 20 ) ; Pre ) ;   // remove "011"
         CntPre = Length( Pre ) ;
         Post = Right( Digits ; 10 ) ;
         Post = Left( Post ; 3 ) & tx & Middle( Post ; 4 ;3 ) & tx & Right( Post ; 4 )  // standard 10-digit format
      ];
         Case(
            CntPre <= 3 ; Pre & tx & Post ;
            Left( Pre ; CntPre - 3 ) & tx & Right( Pre ; 3 ) & tx & Post
         )
      )   // endlet   11-plus
   )
)
/*
   Format user text into: ###-####,  ###-###-####,
      or International: #-###-###-####,  ##-###-###-####,  ##-###-###-###-####

   If user enters all zeros, then returns InPhone in red
   ElseIf digits do not fit into 7, 10, or 11+ formats, then returns InPhone in red
   Else returns digits formatted.

   Easy to add special cases, as I did for "011"
*/

Simple phone format expected to be used as auto-calc for a table field (not to set a variable).
"Simple format" means no parentheses (although you can add if needed).
Not recursive. Let-Case structure.

Case structure allows you to determine how any length of digits should be handled.
It also is fairly straightforward to add special cases for country norms, although I think our need for special visual clues is not needed - just need a series of short chunks to make it easy to remember for a few seconds.

Comments

		æŸ¥æ˜Žèƒœ Apr 3, 2020
ðŸ‘Just need thisï¼

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

PhoneFormat ( InPhone )

Comments

Support this website.

Support this website.