PhoneMask ( Phone )

Phone mask as you type

Be the first to rate this function Log in to vote

Omelyan Burtnyk - Show more from this author
Go To Logistics
https://gotologistics.net

Sample input:

1
1234
1234567

Sample output:

(1##) ###-####
(123) 4##-####
(123) 456-7###

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

/*
PhoneMask ( Phone )

Note!: To move the cursor to the current position, 
I use the "Set Selection []" script step
Set Selection[ Table::Field1;  Start Position: ?;  End Position: ? ] 

Start Position: 
Let([ 
	~l = Length( Filter( Phone_Number::Phone; "0123456789" ));
	~startPosition = Case( 
		~l = 1; 3; 
		~l = 2; 4; 
		~l = 3; 5; 
		~l = 4; 8; 
		~l = 5; 9; 
		~l = 6; 10; 
		~l = 7; 12; 
		~l = 8; 13; 
		~l = 9; 14; 
		-1 
		)
	]; 
	~startPosition
	)


End Position: 
Let([ 
	~l = Length( Filter( Phone_Numbers::Phone; "0123456789" ));
	~endPosition = Case( ~l > 9; -1; 0 )
	]; 
	~endPosition
	)

Created 12/04/2019 by Omelyan Burtnyk
*/

Let([

	~num = Left( TextFormatRemove( Filter( Phones::number; "0123456789" )); 10 );
	~l = Length( ~num )

	];

	Case( 
		~l = 0; "(###) ###-####";
		~l = 10; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 3 ) & "-" & Right( ~num; 4 );  
		~l = 9; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 3 ) & "-" & Right( ~num; 3 ) & "#";  
		~l = 8; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 3 ) & "-" & Right( ~num; 2 ) & "##";  
		~l = 7; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 3 ) & "-" & Right( ~num; 1 ) & "###";  
		~l = 6; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 3 ) & "-" & "####"; 
		~l = 5; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 2 ) & "#-####"; 
		~l = 4; "(" & Left( ~num; 3 ) & ") " & Middle( ~num; 4; 1 ) & "##-####"; 
		~l = 3; "(" & Left( ~num; 3 ) & ") " & "###-####"; 
		~l = 2; "(" & Left( ~num; 2 ) & "#)" & Middle( ~num; 4; 3 ) & " ###-####"; 
		~l = 1; "(" & Left( ~num; 1 ) & "##)" & Middle( ~num; 4; 3 ) & " ###-####";  
		)

	)

Note!:
To move the cursor to the current position,
I use the "Set Selection []" script step
Set Selection[ Table::Field1; Start Position: ?; End Position: ? ]

Start Position:
Let([
~l = Length( Filter( Phone_Number::Phone; "0123456789" ));
~startPosition = Case(
~l = 1; 3;
~l = 2; 4;
~l = 3; 5;
~l = 4; 8;
~l = 5; 9;
~l = 6; 10;
~l = 7; 12;
~l = 8; 13;
~l = 9; 14;
-1
)
];
~startPosition
)

End Position:
Let([
~l = Length( Filter( Phone_Numbers::Phone; "0123456789" ));
~endPosition = Case( ~l > 9; -1; 0 )
];
~endPosition
)

Comments

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

PhoneMask ( Phone )

Comments

Support this website.

Support this website.