Newest functions Upload a function Leave a tip My account

There are 2,521 functions in this library.

IP6abbreviate ( IP6fullInput ; inputType )

This function will create a hexadecimal abbreviated IP6 address.

  Average rating: 4.6 (25 votes) Log in to vote

Tim Griffith - Show more from this author

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

// IP6abbreviate ( IP6fullInput ; inputType ) // This function will create a hexadecimal abbreviated IP6 address. The 'IP6fullInput' must be // a full IP6 address ( 8 sets of numbers separated with ':', no leading or trailing ':' . // 'inputType' must be 'b', 'd' or 'h', "b"=binary, "d"=decimal and "h"=hexadecimal // AND must be consistent with the type of number used in 'IP6fullInput.' // 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 FUNCTIONS: ReConvertNumber(RC ; number ; digits) [ http://www.briandunning.com/cf/1451 ] // DEPENDANT FUNCTIONS: ConvertNumber(RC ; decimal ; NbrOfDigits ; digits) [ http://www.briandunning.com/cf/1448 ] // 2012, Tim Griffith // TimGriffithSr@gmail.com Let ( [ Input = Substitute ( IP6fullInput ; ":" ; "¶" ) ; ~vlCnt = ValueCount ( Input ) ; ~Grp1 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 1 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 1 ) ; "01" ) ; GetValue ( Input ; 1 ) ) ; ~Grp2 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 2 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 2 ) ; "01" ) ; GetValue ( Input ; 2 ) ) ; ~Grp3 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 3 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 3 ) ; "01" ) ; GetValue ( Input ; 3 ) ) ; ~Grp4 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 4 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 4 ) ; "01" ) ; GetValue ( Input ; 4 ) ) ; ~Grp5 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 5 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 5 ) ; "01" ) ; GetValue ( Input ; 5 ) ) ; ~Grp6 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 6 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 6 ) ; "01" ) ; GetValue ( Input ; 6 ) ) ; ~Grp7 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 7 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 7 ) ; "01" ) ; GetValue ( Input ; 7 ) ) ; ~Grp8 = Case ( inputType = "h" ; ReConvertNumber ( "" ; GetValue ( Input ; 8 ) ; "0123456789abcdef" ) ; inputType = "b" ; ReConvertNumber ( "" ; GetValue ( Input ; 8 ) ; "01" ) ; GetValue ( Input ; 8 ) ) ; ~LoopBackSet = Case ( ~Grp1 + ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "18" ; ~Grp1 + ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 = 0 ; "17" ; ~Grp1 + ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 = 0 ; "16" ; ~Grp1 + ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 = 0 ; "15" ; ~Grp1 + ~Grp2 + ~Grp3 + ~Grp4 = 0 ; "14" ; ~Grp1 + ~Grp2 + ~Grp3 = 0 ; "13" ; ~Grp1 + ~Grp2 = 0 ; "12" ; ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "28" ; ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 = 0 ; "27" ; ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 = 0 ; "26" ; ~Grp2 + ~Grp3 + ~Grp4 + ~Grp5 = 0 ; "25" ; ~Grp2 + ~Grp3 + ~Grp4 = 0 ; "24" ; ~Grp2 + ~Grp3 = 0 ; "23" ; ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "38" ; ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 = 0 ; "37" ; ~Grp3 + ~Grp4 + ~Grp5 + ~Grp6 = 0 ; "36" ; ~Grp3 + ~Grp4 + ~Grp5 = 0 ; "35" ; ~Grp3 + ~Grp4 = 0 ; "34" ; ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "48" ; ~Grp4 + ~Grp5 + ~Grp6 + ~Grp7 = 0 ; "47" ; ~Grp4 + ~Grp5 + ~Grp6 = 0 ; "46" ; ~Grp4 + ~Grp5 = 0 ; "45" ; ~Grp5 + ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "58" ; ~Grp5 + ~Grp6 + ~Grp7 = 0 ; "57" ; ~Grp5 + ~Grp6 = 0 ; "56" ; ~Grp6 + ~Grp7 + ~Grp8 = 0 ; "68" ; ~Grp6 + ~Grp7 = 0 ; "67" ; ~Grp7 + ~Grp8 = 0 ; "78" ; "0" ) ; ~Grp1 = ConvertNumber ( "" ; ~Grp1 ; 0 ; "0123456789abcdef" ) ; ~Grp2 = ConvertNumber ( "" ; ~Grp2 ; 0 ; "0123456789abcdef" ) ; ~Grp3 = ConvertNumber ( "" ; ~Grp3 ; 0 ; "0123456789abcdef" ) ; ~Grp4 = ConvertNumber ( "" ; ~Grp4 ; 0 ; "0123456789abcdef" ) ; ~Grp5 = ConvertNumber ( "" ; ~Grp5 ; 0 ; "0123456789abcdef" ) ; ~Grp6 = ConvertNumber ( "" ; ~Grp6 ; 0 ; "0123456789abcdef" ) ; ~Grp7 = ConvertNumber ( "" ; ~Grp7 ; 0 ; "0123456789abcdef" ) ; ~Grp8 = ConvertNumber ( "" ; ~Grp8 ; 0 ; "0123456789abcdef" ) ] ; Case ( ~vlCnt ≠ 8 ; "Input Error: cannot resolve to 8 sets of numbers!" ; ~LoopBackSet = "18" ; "::" ; ~LoopBackSet = "17" ; "::" & ~Grp8 ; ~LoopBackSet = "16" ; "::" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "15" ; "::" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "14" ; "::" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "13" ; "::" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "12" ; "::" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "28" ; ~Grp1 & "::" ; ~LoopBackSet = "27" ; ~Grp1 & "::" & ~Grp8 ; ~LoopBackSet = "26" ; ~Grp1 & "::" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "25" ; ~Grp1 & "::" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "24" ; ~Grp1 & "::" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "23" ; ~Grp1 & "::" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "38" ; ~Grp1 & ":" & ~Grp2 & "::" ; ~LoopBackSet = "37" ; ~Grp1 & ":" & ~Grp2 & "::" & ~Grp8 ; ~LoopBackSet = "36" ; ~Grp1 & ":" & ~Grp2 & "::" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "35" ; ~Grp1 & ":" & ~Grp2 & "::" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "34" ; ~Grp1 & ":" & ~Grp2 & "::" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "48" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & "::" ; ~LoopBackSet = "47" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & "::" & ~Grp8 ; ~LoopBackSet = "46" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & "::" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "45" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & "::" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "58" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & "::" ; ~LoopBackSet = "57" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & "::" & ~Grp8 ; ~LoopBackSet = "56" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & "::" & ~Grp7 & ":" & ~Grp8 ; ~LoopBackSet = "68" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & "::" ; ~LoopBackSet = "67" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & "::" & ~Grp8 ; ~LoopBackSet = "78" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & "::" ; ~LoopBackSet = "0" ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ; ~Grp1 & ":" & ~Grp2 & ":" & ~Grp3 & ":" & ~Grp4 & ":" & ~Grp5 & ":" & ~Grp6 & ":" & ~Grp7 & ":" & ~Grp8 ) ) Click to copy

This function will create a hexadecimal abbreviated IP6 address. The 'IP6fullInput' must be a full IP6 address ( 8 sets of numbers separated with ':', no leading or trailing ':' . 'inputType' must be 'b', 'd' or 'h', "b"=binary, "d"=decimal and "h"=hexadecimal AND must be consistent with the type of number used in 'IP6fullInput.' 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 FUNCTIONS: ReConvertNumber(RC ; number ; digits) [ http://www.briandunning.com/cf/1451 ] DEPENDANT FUNCTIONS: ConvertNumber(RC ; decimal ; NbrOfDigits ; digits) [ http://www.briandunning.com/cf/1448 ]

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: