util.UKPhone ( phone_number )

Determines if the phone number is a valid UK phone number, and if so returns it correctly formatted. If not, returns False (0)

Be the first to rate this function Log in to vote

Pip Meadway - Show more from this author
PIPCO IT

Sample input:

util.UKPhone ( "01234892456")

Sample output:

"01234 892456"

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

/* ==========================================================
 
PUBLIC (Boolean / Text) <- util.UKPhone ( phone_number )
 
PURPOSE:
	Determines if <<phone_number>> is a UK format phone number

	** This is based on the information at https://www.area-codes.org.uk/formatting.php **

RETURNS:
	The the phone number re-formatted for the UK, or False is it's not a UK format 

PARAMETERS:
	NAME		TYPE		DESCRIPTION
	phone_number	Text		The phone number to check


SIDE EFFECTS:
	None

EXAMPLES:
	util.UKPhone ( "01189123456" ) returns "01189 123456"
	util.UKPhone ( "011893456" ) returns False


DEPENDENCIES: 
	util.TextMatchesFormat ( )
	util.FormatWithMask ()

HISTORY:
	CREATED on 2020-07-22 by Pip Meadway

=========================================================== */

Let ( [
	/* all valid UK format phone numbers */

	~mask_list = List (
				"01nnnnnnnn" ;		"01nnnnnnnnn" ;	"011nnnnnnnn" ;
				"01n1nnnnnnn" ;	"013397nnnnn" ;	"013398nnnnn" ;
				"013873nnnnn" ;	"015242nnnnn" ;	"015394nnnnn" ;
				"015395nnnnn" ;	"015396nnnnn" ;	"016973nnnnn" ;
				"016974nnnnn" ;	"016977nnnn" ;	"016977nnnnn" ;
				"017683nnnnn" ;	"017684nnnnn" ;	"017687nnnnn" ;
				"019467nnnnn" ;	"019755nnnnn" ;	"019756nnnnn" ;
				"02nnnnnnnnn" ;	"03nnnnnnnnn" ;	"05nnnnnnnnn" ;
				"07nnnnnnnnn" ;	"0800nnnnnn" ;		"08nnnnnnnnn" ;
				"09nnnnnnnnn" ;	"08001111" ;		"08454647" ) ;

	~mask_count = ValueCount ( ~mask_list ) ;

	/* for each mask, the format the phone number should be in */

	~format_list = List (
				"##### #####" ;	"##### ######" ;	"#### ### ####" ;
				"#### ### ####" ;	"###### #####" ;	"###### #####" ;
				"###### #####" ;	"###### #####" ;	"###### #####" ;
				"###### #####" ;	"###### #####" ;	"###### #####" ;
				"###### #####" ;	"###### ####" ;	"###### #####" ;
				"###### #####" ;	"###### #####" ;	"###### #####" ;
				"###### #####" ;	"###### #####" ;	"###### #####" ;
				"### #### ####" ;	"#### ### ####" ;	"##### ######" ;
				"##### ######" ;	"#### ######" ;	"#### ### ####" ;
				"#### ### ####" ;	"#### ####" ;		"#### ####" ) ;

	/* Ignore anything apart from spaces */

	~numbers_only  = Filter ( phone_number ; "0123456789" ) ;

	/* first match gives the result */

	~result = 
		While ( 
			[
			~idx		= 1 ;
			~match	= False 
			] ; 

			(~idx <= ~mask_count and ~match = False)  ;

			[ 
			~match = util.TextMatchesFormat ( ~numbers_only ; GetValue ( ~mask_list ; ~idx ) ) ;

			~idx = ~idx + 1
			] ; 

			If ( ~match = True ;
				util.FormatWithMask ( ~numbers_only ; GetValue ( ~format_list ; ~idx - 1 ) ) ;
			/* Else */
				False )
		) 
	] ;
	~result
)

This is based on the formatting described here: https://www.area-codes.org.uk/formatting.php

It depends on two other custom functions:

util.TextMatchesFormat ( )
util.FormatWithMask ()

In its current incarnation is simply inserts spaces into the phone numbers. If you want to add parentheses then change the ~format_list List entry accordingly e.g."(#####) ######"

This works for both landline and mobile numbers. It currently does not include emergency numbers (999, 101 etc) but it's easy to extend if required.

Comments

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

util.UKPhone ( phone_number )

Comments

Support this website.

Support this website.