IP6numericAddress ( Input )

This function will convert a properly abbreviated IP6 into its full decimal address.

Average rating: 4.7 (23 votes) Log in to vote

Tim Griffith - Show more from this author

Sample input:

IP6numericAddress ( 2001::FF:A00:0 )

Sample output:

8193:0:0:0:0:255:2560:0

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

// IP6numericAddress ( Input )
// This function will convert a properly abbreviated IP6 into its full decimal address.
// Properly abbreviated IP6 allows for only 1 grouping of zero sets (no matter how many sets in a row) to be represented by '::'.
// All other zero sets (separate from the grouping identified with '::') must either be :0: or :0000:.
// More than one occurance of '::' will produce an error.
// DEPENDANT FUNCTION : HexToDec ( hexString ) by Theo Ros, http://www.briandunning.com/cf/253
// which has been comment included [with credit to Theo Ros] at the end of this function, for your convenience.
// 2012, Tim Griffith
// TimGriffithSr@gmail.com

Let (
	[
		~hasLoopBack = Case ( PatternCount ( Input ; "::" ) ; PatternCount ( Input ; "::" ) ; 0 ) ;
		Input = Substitute ( Input ; "::" ; ":|:" ) ;
		Input = Substitute ( Input ; ":" ; "¶" ) ;
		~vlCnt = ValueCount ( Input ) ;
		~LoopBack = Case ( ~hasLoopBack = 1 ;
			Case ( 	8 - ~vlCnt = 0 ; "0" ;
					8 - ~vlCnt = 1 ; "0:0" ;
					8 - ~vlCnt = 2 ; "0:0:0" ;
					8 - ~vlCnt = 3 ; "0:0:0:0" ;
					8 - ~vlCnt = 4 ; "0:0:0:0:0" ;
					8 - ~vlCnt = 5 ; "0:0:0:0:0:0" ;
					8 - ~vlCnt = 6 ; "0:0:0:0:0:0:0" ; "" )
			; "" ) ;
		~Grp1 = Case ( GetValue ( Input ; 1 ) = "" or  GetValue ( Input ; 1 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 1 ) ; 4 ) ) ) ;
		~Grp2 = Case ( GetValue ( Input ; 2 ) = "" or  GetValue ( Input ; 2 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 2 ) ; 4 ) ) ) ;
		~Grp3 = Case ( GetValue ( Input ; 3 ) = "" or  GetValue ( Input ; 3 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 3 ) ; 4 ) ) ) ;
		~Grp4 = Case ( GetValue ( Input ; 4 ) = "" or  GetValue ( Input ; 4 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 4 ) ; 4 ) ) ) ;
		~Grp5 = Case ( GetValue ( Input ; 5 ) = "" or  GetValue ( Input ; 5 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 5 ) ; 4 ) ) ) ;
		~Grp6 = Case ( GetValue ( Input ; 6 ) = "" or  GetValue ( Input ; 6 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 6 ) ; 4 ) ) ) ;
		~Grp7 = Case ( GetValue ( Input ; 7 ) = "" or  GetValue ( Input ; 7 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 7 ) ; 4 ) ) ) ;
		~Grp8 = Case ( GetValue ( Input ; 8 ) = "" or  GetValue ( Input ; 8 ) = "|" ; ~LoopBack ; HexToDec ( Right ( "0000" & GetValue ( Input ; 8 ) ; 4 ) ) ) ] ;

Case ( ~hasLoopBack > 1 ; "Input Error: only 1 set of '::' allowed!" ;
	Left ( ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 & ":" ; 
		( Position ( ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 & ":" ; ":" ; 1 ; 8 ) ) - 1 )
)
)

/*
HexToDec ( hexString ) by Theo Ros, http://www.briandunning.com/cf/253

// converts a hexadecimal number string into a decimal number

If ( IsEmpty ( hexString ) ; 0 ; 
  Let( [ rest = Left ( hexString ; Length ( hexString ) - 1 ) ; 
           char = Upper ( Right ( hexString ; 1 ) ) ] ; 
    // bail out if a non hex digit is encountered
    If ( Position ( "0123456789ABCDEF" ; char ; 1 ; 1 ) ;    
      Substitute( char ; ["A";10]; ["B";11]; ["C";12]; ["D";13]; ["E";14]; ["F";15] ) 
           + ( 16 * HexToDec ( rest ) ) )
  ) 
)

*/

This function will convert a properly abbreviated IP6 into its full decimal address. Properly abbreviated IP6 allows for only 1 grouping of zero sets (no matter how many sets in a row) to be represented by '::'. All other zero sets (separate from the grouping identified with '::') must either be :0: or :0000:. More than one occurance of '::' will produce an error. DEPENDANT FUNCTION : HexToDec ( hexString ) by Theo Ros, http://www.briandunning.com/cf/253 which has been comment included [with credit to Theo Ros] at the end of this function, for your convenience.

Comments

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

IP6numericAddress ( Input )

Comments

Support this website.

Support this website.