FileMaker Pro Custom Functions

Let ( [ /* get everything to the right of '@' or '//' */ fullAddress = Case ( PatternCount ( theAddress ; "//" ) > 0 ; RightValues ( Substitute ( theAddress ; "//" ; "¶" ) ; 1 ) ; PatternCount ( theAddress ; "@" ) > 0 ; RightValues ( Substitute ( theAddress ; "@" ; "¶" ) ; 1 ) ; theAddress ) ; /* for a URL, strip everything starting from the first '/' */ stripSubAddress = LeftValues ( Substitute ( fullAddress ; "/" ; "¶" ) ; 1 ) ; /* divide the address into subcomponents */ addressValues = Substitute ( stripSubAddress ; "." ; "¶" ) ; /* count the subcomponents of the address */ addressValueCount = ValueCount ( addressValues ) ; /* get the next-to-last subcomponent */ penultimateAddressValue = MiddleValues ( addressValues ; addressValueCount - 1 ; 1 ) ; /* convert the value to text */ penultimateAddressWords = LeftWords ( penultimateAddressValue ; 10 ) ; /* 'com' or 'co' in next-to-last address component indicate a "country" address */ domainValue = If ( penultimateAddressWords = "com" or penultimateAddressWords = "co" ; MiddleValues ( addressValues ; addressValueCount - 2 ; 1 ) ; MiddleValues ( addressValues ; addressValueCount - 1 ; 1 ) ) ] ; /* convert the domain value to text */ LeftWords ( domainValue ; 10 ) ) /* note: the '10' is arbitrary, to capture domains like 'four-word-domain-name.com' */
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.