LISTSERV - FMPRO-L Archives - LISTSERV.DARTMOUTH.EDU

FMPRO-L Archives

October 2012, Week 2

FMPRO-L@LISTSERV.DARTMOUTH.EDU

	LISTSERV Archives
	FMPRO-L Home
	FMPRO-L October 2012, Week 2

	Log In
	Register

	Subscribe or Unsubscribe

	Search Archives
Options:	Use Monospaced Font Show Text Part by Default Show All Mail Headers
Message:	[<< First] [< Prev] [Next >] [Last >>]
Topic:	[<< First] [< Prev] [Next >] [Last >>]
Author:	[<< First] [< Prev] [Next >] [Last >>]
Subject:	Re: Extract Domain Name from URL?
From:	"W. D." <[log in to unmask]>
Reply To:	FileMaker Pro Discussions <[log in to unmask]>
Date:	Tue, 9 Oct 2012 00:57:37 -0500
Content-Type:	text/plain
Parts/Attachments:	text/plain (568 lines)
At 19:43 10/7/2012, Richard DeShong wrote:
>W.D. (the original poster, I think),
>I had another thought on your script...
>The Position() function is case insensitive, so you don't 
>need to test for both upper and lower versions.

Thanks for your suggestions, everyone.

In case the URL had mixed case in the domain
name, I felt it useful to preserve that.  Hence,
I didn't Upper(TheURL) at the start:

  http://www.TheCoolestDomainNameInTheUniverse.com/

So, even though there is a lot of brute force in
here, it works for the ~5,000 URLs that I am working
with.  Any other glaring inadequacies that anyone
can see?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
BackLinkURL Text Indexed

TrimURL Calculation (Text) = 
Trim(BackLinkURL)

URLafterStripQuotes Calculation (Text) = 
If(Left(TrimURL, 1) = """" and Right(TrimURL, 1) = """", Middle(TrimURL, 2, Length(TrimURL) - 2),
If(Left(TrimURL, 1) = """", Right(TrimURL, Length(TrimURL) - 1),
If(Right(TrimURL, 1) = """", Left(TrimURL, Length(TrimURL) - 1), TrimURL)))

URLafterStripDoubleDots Calculation (Text) = 
Substitute(URLafterStripQuotes, "..", ".")

IsAURL Calculation (Text) Indexed = 
If(
(
(PatternCount(URLafterStripDoubleDots, "//") > 0)
or
(PatternCount(Upper(URLafterStripDoubleDots), "http") > 0)
)
and not
(PatternCount(URLafterStripDoubleDots, "@") > 0),
"TRUE",
"FALSE"
)

IsAnEmail Calculation (Text) Indexed = 
If(
(PatternCount(URLafterStripDoubleDots, "@") > 0)
and not
(
(PatternCount(URLafterStripDoubleDots, "//") > 0)
or
(PatternCount(Upper(URLafterStripDoubleDots), "http") > 0)
),
"TRUE",
"FALSE"
)

URLafterStripLeftText Calculation (Text) = 
Case
(
Position(URLafterStripDoubleDots, "httpps://wwwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 16, ""),
Position(URLafterStripDoubleDots, "https://wwwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 15, ""),
Position(URLafterStripDoubleDots, "httpp://wwwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 15, ""),
Position(URLafterStripDoubleDots, "http://wwwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 14, ""),
Position(URLafterStripDoubleDots, "httpps://wwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 15, ""),
Position(URLafterStripDoubleDots, "https://wwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 14, ""),
Position(URLafterStripDoubleDots, "httpp://wwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 14, ""),
Position(URLafterStripDoubleDots, "http://wwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 13, ""),
Position(URLafterStripDoubleDots, "httpps://wwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 14, ""),
Position(URLafterStripDoubleDots, "https://wwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 13, ""),
Position(URLafterStripDoubleDots, "httpp://wwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 13, ""),
Position(URLafterStripDoubleDots, "http://wwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 12, ""),
Position(URLafterStripDoubleDots, "httpps://www.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 13, ""),
Position(URLafterStripDoubleDots, "https://www.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 12, ""),
Position(URLafterStripDoubleDots, "httpp://www.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 12, ""),
Position(URLafterStripDoubleDots, "http://www.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 11, ""),
Position(URLafterStripDoubleDots, "httpps://ww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 12, ""),
Position(URLafterStripDoubleDots, "https://ww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 11, ""),
Position(URLafterStripDoubleDots, "httpp://ww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 11, ""),
Position(URLafterStripDoubleDots, "http://ww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 10, ""),
Position(URLafterStripDoubleDots, "httpps://w.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 11, ""),
Position(URLafterStripDoubleDots, "https://w.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 10, ""),
Position(URLafterStripDoubleDots, "httpp://w.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 10, ""),
Position(URLafterStripDoubleDots, "http://w.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 9, ""),
Position(URLafterStripDoubleDots, "httpps://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 9, ""),
Position(URLafterStripDoubleDots, "https://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 8, ""),
Position(URLafterStripDoubleDots, "httpp://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 8, ""),
Position(URLafterStripDoubleDots, "http://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 7, ""),
Position(URLafterStripDoubleDots, "htpps://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 8, ""),
Position(URLafterStripDoubleDots, "htps://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 7, ""),
Position(URLafterStripDoubleDots, "htpp://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 7, ""),
Position(URLafterStripDoubleDots, "htp://", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 6, ""),
Position(URLafterStripDoubleDots, "wwwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 7, ""),
Position(URLafterStripDoubleDots, "wwwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 6, ""),
Position(URLafterStripDoubleDots, "wwww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 5, ""),
Position(URLafterStripDoubleDots, "www.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 4, ""),
Position(URLafterStripDoubleDots, "wwv.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 4, ""),
Position(URLafterStripDoubleDots, "ww.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 3, ""),
Position(URLafterStripDoubleDots, "w.", 1, 1) > 0, Replace(URLafterStripDoubleDots, 1, 2, ""),
URLafterStripDoubleDots
)

PositionOfFirstSlash Calculation (Number) = 
Position(URLafterStripLeftText, "/", 1, 1)

URLafterStripRightText Calculation (Text) = 
Replace(URLafterStripLeftText, PositionOfFirstSlash, Length(URLafterStripLeftText), "")

NumberOfDots Calculation (Number) = 
PatternCount(URLafterStripRightText, ".")

PositionOfLastDot Calculation (Number) = 
Position(URLafterStripRightText, ".", 1, NumberOfDots)

PositionOfNextToLastDot Calculation (Number) = 
Position(URLafterStripRightText, ".", 1, NumberOfDots - 1)

PositionOfSecondToLastDot Calculation (Number) = 
Position(URLafterStripRightText, ".", 1, NumberOfDots - 2)

TopLevelDomain Calculation (Text) Indexed = 
Middle(URLafterStripRightText, PositionOfLastDot + 1, Length(URLafterStripRightText) - PositionOfLastDot)

SLDandTLD Calculation (Text) Indexed = 
Case(
NumberOfDots > 1, Middle(URLafterStripRightText, PositionOfNextToLastDot + 1, Length(URLafterStripRightText) -PositionOfNextToLastDot),
"NotValid"
)

LastThreeParts Calculation (Text) = 
Case(
NumberOfDots > 2, Middle(URLafterStripRightText, PositionOfSecondToLastDot + 1, Length(URLafterStripRightText) -PositionOfSecondToLastDot),
""
)

IsAValidSLD1 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "AC.AE", "TRUE",
Upper(SLDandTLD) = "AC.AT", "TRUE",
Upper(SLDandTLD) = "AC.CN", "TRUE",
Upper(SLDandTLD) = "AC.ID", "TRUE",
Upper(SLDandTLD) = "AC.IL", "TRUE",
Upper(SLDandTLD) = "AC.IN", "TRUE",
Upper(SLDandTLD) = "AC.JP", "TRUE",
Upper(SLDandTLD) = "AC.KR", "TRUE",
Upper(SLDandTLD) = "AC.NZ", "TRUE",
Upper(SLDandTLD) = "AC.TH", "TRUE",
Upper(SLDandTLD) = "AC.UK", "TRUE",
Upper(SLDandTLD) = "AC.VN", "TRUE",
Upper(SLDandTLD) = "AD.JP", "TRUE",
Upper(SLDandTLD) = "AH.CN", "TRUE",
Upper(SLDandTLD) = "ASSN.LK", "TRUE",
Upper(SLDandTLD) = "AV.TR", "TRUE",
Upper(SLDandTLD) = "BBS.TR", "TRUE",
Upper(SLDandTLD) = "BEL.TR", "TRUE",
Upper(SLDandTLD) = "BIZ.BH", "TRUE",
Upper(SLDandTLD) = "BIZ.PK", "TRUE",
Upper(SLDandTLD) = "BIZ.TR", "TRUE",
Upper(SLDandTLD) = "BIZ.VN", "TRUE",
Upper(SLDandTLD) = "BJ.CN", "TRUE",
Upper(SLDandTLD) = "CC.BH", "TRUE",
Upper(SLDandTLD) = "CLUB.TW", "TRUE",
Upper(SLDandTLD) = "CO.AE", "TRUE",
Upper(SLDandTLD) = "CO.AT", "TRUE",
Upper(SLDandTLD) = "CO.AZ", "TRUE",
Upper(SLDandTLD) = "CO.HU", "TRUE",
Upper(SLDandTLD) = "CO.ID", "TRUE",
Upper(SLDandTLD) = "CO.IL", "TRUE",
Upper(SLDandTLD) = "CO.IN", "TRUE",
Upper(SLDandTLD) = "CO.JP", "TRUE",
Upper(SLDandTLD) = "CO.KR", "TRUE",
Upper(SLDandTLD) = "CO.NZ", "TRUE",
Upper(SLDandTLD) = "CO.TH", "TRUE",
Upper(SLDandTLD) = "CO.TM", "TRUE",
Upper(SLDandTLD) = "CO.TZ", "TRUE",
Upper(SLDandTLD) = "CO.UK", "TRUE",
Upper(SLDandTLD) = "CO.UZ", "TRUE",
Upper(SLDandTLD) = "CO.VI", "TRUE",
Upper(SLDandTLD) = "CO.ZA", "TRUE",
Upper(SLDandTLD) = "COM.AF", "TRUE",
Upper(SLDandTLD) = "COM.AG", "TRUE",
Upper(SLDandTLD) = "COM.AI", "TRUE",
Upper(SLDandTLD) = "COM.AR", "TRUE",
Upper(SLDandTLD) = "COM.AU", "TRUE",
Upper(SLDandTLD) = "COM.AZ", "TRUE",
Upper(SLDandTLD) = "COM.BB", "TRUE",
Upper(SLDandTLD) = "COM.BH", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD2 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "COM.BR", "TRUE",
Upper(SLDandTLD) = "COM.BS", "TRUE",
Upper(SLDandTLD) = "COM.CN", "TRUE",
Upper(SLDandTLD) = "COM.DO", "TRUE",
Upper(SLDandTLD) = "COM.EG", "TRUE",
Upper(SLDandTLD) = "COM.GE", "TRUE",
Upper(SLDandTLD) = "COM.GY", "TRUE",
Upper(SLDandTLD) = "COM.HK", "TRUE",
Upper(SLDandTLD) = "COM.HM", "TRUE",
Upper(SLDandTLD) = "COM.KZ", "TRUE",
Upper(SLDandTLD) = "COM.LK", "TRUE",
Upper(SLDandTLD) = "COM.MO", "TRUE",
Upper(SLDandTLD) = "COM.MT", "TRUE",
Upper(SLDandTLD) = "COM.MX", "TRUE",
Upper(SLDandTLD) = "COM.MY", "TRUE",
Upper(SLDandTLD) = "COM.NF", "TRUE",
Upper(SLDandTLD) = "COM.PA", "TRUE",
Upper(SLDandTLD) = "COM.PE", "TRUE",
Upper(SLDandTLD) = "COM.PH", "TRUE",
Upper(SLDandTLD) = "COM.PK", "TRUE",
Upper(SLDandTLD) = "COM.PN", "TRUE",
Upper(SLDandTLD) = "COM.PR", "TRUE",
Upper(SLDandTLD) = "COM.RU", "TRUE",
Upper(SLDandTLD) = "COM.SA", "TRUE",
Upper(SLDandTLD) = "COM.SC", "TRUE",
Upper(SLDandTLD) = "COM.SG", "TRUE",
Upper(SLDandTLD) = "COM.TL", "TRUE",
Upper(SLDandTLD) = "COM.TM", "TRUE",
Upper(SLDandTLD) = "COM.TP", "TRUE",
Upper(SLDandTLD) = "COM.TR", "TRUE",
Upper(SLDandTLD) = "COM.TW", "TRUE",
Upper(SLDandTLD) = "COM.UA", "TRUE",
Upper(SLDandTLD) = "COM.VN", "TRUE",
Upper(SLDandTLD) = "CQ.CN", "TRUE",
Upper(SLDandTLD) = "CRI.NZ", "TRUE",
Upper(SLDandTLD) = "DR.TR", "TRUE",
Upper(SLDandTLD) = "EBIZ.TW", "TRUE",
Upper(SLDandTLD) = "ED.JP", "TRUE",
Upper(SLDandTLD) = "EDU.AF", "TRUE",
Upper(SLDandTLD) = "EDU.AU", "TRUE",
Upper(SLDandTLD) = "EDU.BH", "TRUE",
Upper(SLDandTLD) = "EDU.CN", "TRUE",
Upper(SLDandTLD) = "EDU.IN", "TRUE",
Upper(SLDandTLD) = "EDU.LK", "TRUE",
Upper(SLDandTLD) = "EDU.MO", "TRUE",
Upper(SLDandTLD) = "EDU.MX", "TRUE",
Upper(SLDandTLD) = "EDU.MY", "TRUE",
Upper(SLDandTLD) = "EDU.PK", "TRUE",
Upper(SLDandTLD) = "EDU.SA", "TRUE",
Upper(SLDandTLD) = "EDU.SG", "TRUE",
Upper(SLDandTLD) = "EDU.TL", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD3 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "EDU.TM", "TRUE",
Upper(SLDandTLD) = "EDU.TP", "TRUE",
Upper(SLDandTLD) = "EDU.TR", "TRUE",
Upper(SLDandTLD) = "EDU.TW", "TRUE",
Upper(SLDandTLD) = "EDU.VN", "TRUE",
Upper(SLDandTLD) = "ES.KR", "TRUE",
Upper(SLDandTLD) = "EUN.EG", "TRUE",
Upper(SLDandTLD) = "FAM.PK", "TRUE",
Upper(SLDandTLD) = "FIRM.IN", "TRUE",
Upper(SLDandTLD) = "FJ.CN", "TRUE",
Upper(SLDandTLD) = "GAME.TW", "TRUE",
Upper(SLDandTLD) = "GD.CN", "TRUE",
Upper(SLDandTLD) = "GEN.IN", "TRUE",
Upper(SLDandTLD) = "GEN.NZ", "TRUE",
Upper(SLDandTLD) = "GEN.TR", "TRUE",
Upper(SLDandTLD) = "GO.JP", "TRUE",
Upper(SLDandTLD) = "GO.KR", "TRUE",
Upper(SLDandTLD) = "GO.TH", "TRUE",
Upper(SLDandTLD) = "GOB.MX", "TRUE",
Upper(SLDandTLD) = "GOB.PK", "TRUE",
Upper(SLDandTLD) = "GOK.PK", "TRUE",
Upper(SLDandTLD) = "GON.PK", "TRUE",
Upper(SLDandTLD) = "GOP.PK", "TRUE",
Upper(SLDandTLD) = "GOS.PK", "TRUE",
Upper(SLDandTLD) = "GOV.AE", "TRUE",
Upper(SLDandTLD) = "GOV.AF", "TRUE",
Upper(SLDandTLD) = "GOV.AU", "TRUE",
Upper(SLDandTLD) = "GOV.BH", "TRUE",
Upper(SLDandTLD) = "GOV.CN", "TRUE",
Upper(SLDandTLD) = "GOV.GE", "TRUE",
Upper(SLDandTLD) = "GOV.HK", "TRUE",
Upper(SLDandTLD) = "GOV.IL", "TRUE",
Upper(SLDandTLD) = "GOV.IN", "TRUE",
Upper(SLDandTLD) = "GOV.MO", "TRUE",
Upper(SLDandTLD) = "GOV.MY", "TRUE",
Upper(SLDandTLD) = "GOV.PK", "TRUE",
Upper(SLDandTLD) = "GOV.SA", "TRUE",
Upper(SLDandTLD) = "GOV.SG", "TRUE",
Upper(SLDandTLD) = "GOV.TL", "TRUE",
Upper(SLDandTLD) = "GOV.TM", "TRUE",
Upper(SLDandTLD) = "GOV.TP", "TRUE",
Upper(SLDandTLD) = "GOV.TR", "TRUE",
Upper(SLDandTLD) = "GOV.TW", "TRUE",
Upper(SLDandTLD) = "GOV.VN", "TRUE",
Upper(SLDandTLD) = "GOVT.NZ", "TRUE",
Upper(SLDandTLD) = "GR.JP", "TRUE",
Upper(SLDandTLD) = "GRP.LK", "TRUE",
Upper(SLDandTLD) = "GS.CN", "TRUE",
Upper(SLDandTLD) = "GX.CN", "TRUE",
Upper(SLDandTLD) = "GZ.CN", "TRUE",
Upper(SLDandTLD) = "HA.CN", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD4 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "HB.CN", "TRUE",
Upper(SLDandTLD) = "HE.CN", "TRUE",
Upper(SLDandTLD) = "HEALTH.VN", "TRUE",
Upper(SLDandTLD) = "HI.CN", "TRUE",
Upper(SLDandTLD) = "HK.CN", "TRUE",
Upper(SLDandTLD) = "HL.CN", "TRUE",
Upper(SLDandTLD) = "HN.CN", "TRUE",
Upper(SLDandTLD) = "HOTEL.LK", "TRUE",
Upper(SLDandTLD) = "HS.KR", "TRUE",
Upper(SLDandTLD) = "I.PH", "TRUE",
Upper(SLDandTLD) = "IDF.IL", "TRUE",
Upper(SLDandTLD) = "IDN.SG", "TRUE",
Upper(SLDandTLD) = "IDV.TW", "TRUE",
Upper(SLDandTLD) = "IN.TH", "TRUE",
Upper(SLDandTLD) = "IND.BR", "TRUE",
Upper(SLDandTLD) = "IND.IN", "TRUE",
Upper(SLDandTLD) = "INF.BR", "TRUE",
Upper(SLDandTLD) = "INFO.BH", "TRUE",
Upper(SLDandTLD) = "INFO.TR", "TRUE",
Upper(SLDandTLD) = "INFO.VN", "TRUE",
Upper(SLDandTLD) = "INT.VN", "TRUE",
Upper(SLDandTLD) = "IWI.NZ", "TRUE",
Upper(SLDandTLD) = "JL.CN", "TRUE",
Upper(SLDandTLD) = "JS.CN", "TRUE",
Upper(SLDandTLD) = "JX.CN", "TRUE",
Upper(SLDandTLD) = "K12.IL", "TRUE",
Upper(SLDandTLD) = "K12.TR", "TRUE",
Upper(SLDandTLD) = "KG.KR", "TRUE",
Upper(SLDandTLD) = "LG.JP", "TRUE",
Upper(SLDandTLD) = "LN.CN", "TRUE",
Upper(SLDandTLD) = "LTD.LK", "TRUE",
Upper(SLDandTLD) = "LTD.UK", "TRUE",
Upper(SLDandTLD) = "MAORI.NZ", "TRUE",
Upper(SLDandTLD) = "MED.SA", "TRUE",
Upper(SLDandTLD) = "MI.TH", "TRUE",
Upper(SLDandTLD) = "MIL.AE", "TRUE",
Upper(SLDandTLD) = "MIL.IN", "TRUE",
Upper(SLDandTLD) = "MIL.KR", "TRUE",
Upper(SLDandTLD) = "MIL.MY", "TRUE",
Upper(SLDandTLD) = "MIL.NZ", "TRUE",
Upper(SLDandTLD) = "MIL.TM", "TRUE",
Upper(SLDandTLD) = "MIL.TR", "TRUE",
Upper(SLDandTLD) = "MIL.TW", "TRUE",
Upper(SLDandTLD) = "MO.CN", "TRUE",
Upper(SLDandTLD) = "MS.KR", "TRUE",
Upper(SLDandTLD) = "MUNI.IL", "TRUE",
Upper(SLDandTLD) = "NAME.AE", "TRUE",
Upper(SLDandTLD) = "NAME.MY", "TRUE",
Upper(SLDandTLD) = "NAME.TR", "TRUE",
Upper(SLDandTLD) = "NAME.VN", "TRUE",
Upper(SLDandTLD) = "NE.JP", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD5 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "NE.KR", "TRUE",
Upper(SLDandTLD) = "NET.AE", "TRUE",
Upper(SLDandTLD) = "NET.AF", "TRUE",
Upper(SLDandTLD) = "NET.AR", "TRUE",
Upper(SLDandTLD) = "NET.AU", "TRUE",
Upper(SLDandTLD) = "NET.BB", "TRUE",
Upper(SLDandTLD) = "NET.BH", "TRUE",
Upper(SLDandTLD) = "NET.BR", "TRUE",
Upper(SLDandTLD) = "NET.BS", "TRUE",
Upper(SLDandTLD) = "NET.CN", "TRUE",
Upper(SLDandTLD) = "NET.EG", "TRUE",
Upper(SLDandTLD) = "NET.GE", "TRUE",
Upper(SLDandTLD) = "NET.HK", "TRUE",
Upper(SLDandTLD) = "NET.IL", "TRUE",
Upper(SLDandTLD) = "NET.IN", "TRUE",
Upper(SLDandTLD) = "NET.LU", "TRUE",
Upper(SLDandTLD) = "NET.MO", "TRUE",
Upper(SLDandTLD) = "NET.MX", "TRUE",
Upper(SLDandTLD) = "NET.MY", "TRUE",
Upper(SLDandTLD) = "NET.NZ", "TRUE",
Upper(SLDandTLD) = "NET.PH", "TRUE",
Upper(SLDandTLD) = "NET.PK", "TRUE",
Upper(SLDandTLD) = "NET.RU", "TRUE",
Upper(SLDandTLD) = "NET.SA", "TRUE",
Upper(SLDandTLD) = "NET.SG", "TRUE",
Upper(SLDandTLD) = "NET.TH", "TRUE",
Upper(SLDandTLD) = "NET.TL", "TRUE",
Upper(SLDandTLD) = "NET.TM", "TRUE",
Upper(SLDandTLD) = "NET.TP", "TRUE",
Upper(SLDandTLD) = "NET.TR", "TRUE",
Upper(SLDandTLD) = "NET.TW", "TRUE",
Upper(SLDandTLD) = "NET.UK", "TRUE",
Upper(SLDandTLD) = "NET.VN", "TRUE",
Upper(SLDandTLD) = "NGO.LK", "TRUE",
Upper(SLDandTLD) = "NIC.IN", "TRUE",
Upper(SLDandTLD) = "NM.CN", "TRUE",
Upper(SLDandTLD) = "NOM.TM", "TRUE",
Upper(SLDandTLD) = "NX.CN", "TRUE",
Upper(SLDandTLD) = "OR.JP", "TRUE",
Upper(SLDandTLD) = "OR.KR", "TRUE",
Upper(SLDandTLD) = "OR.TH", "TRUE",
Upper(SLDandTLD) = "ORG.AE", "TRUE",
Upper(SLDandTLD) = "ORG.AR", "TRUE",
Upper(SLDandTLD) = "ORG.BB", "TRUE",
Upper(SLDandTLD) = "ORG.BH", "TRUE",
Upper(SLDandTLD) = "ORG.BS", "TRUE",
Upper(SLDandTLD) = "ORG.CN", "TRUE",
Upper(SLDandTLD) = "ORG.HK", "TRUE",
Upper(SLDandTLD) = "ORG.IL", "TRUE",
Upper(SLDandTLD) = "ORG.IN", "TRUE",
Upper(SLDandTLD) = "ORG.LK", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD6 Calculation (Text) = 
Case(
NumberOfDots > 1,
Case(
Upper(SLDandTLD) = "ORG.LU", "TRUE",
Upper(SLDandTLD) = "ORG.MO", "TRUE",
Upper(SLDandTLD) = "ORG.MX", "TRUE",
Upper(SLDandTLD) = "ORG.MY", "TRUE",
Upper(SLDandTLD) = "ORG.NZ", "TRUE",
Upper(SLDandTLD) = "ORG.PH", "TRUE",
Upper(SLDandTLD) = "ORG.PK", "TRUE",
Upper(SLDandTLD) = "ORG.SA", "TRUE",
Upper(SLDandTLD) = "ORG.SG", "TRUE",
Upper(SLDandTLD) = "ORG.TL", "TRUE",
Upper(SLDandTLD) = "ORG.TM", "TRUE",
Upper(SLDandTLD) = "ORG.TP", "TRUE",
Upper(SLDandTLD) = "ORG.TR", "TRUE",
Upper(SLDandTLD) = "ORG.TW", "TRUE",
Upper(SLDandTLD) = "ORG.UK", "TRUE",
Upper(SLDandTLD) = "ORG.VN", "TRUE",
Upper(SLDandTLD) = "PE.KR", "TRUE",
Upper(SLDandTLD) = "PER.SG", "TRUE",
Upper(SLDandTLD) = "PLC.UK", "TRUE",
Upper(SLDandTLD) = "POL.TR", "TRUE",
Upper(SLDandTLD) = "PRO.AE", "TRUE",
Upper(SLDandTLD) = "PRO.VN", "TRUE",
Upper(SLDandTLD) = "PUB.SA", "TRUE",
Upper(SLDandTLD) = "QH.CN", "TRUE",
Upper(SLDandTLD) = "RE.KR", "TRUE",
Upper(SLDandTLD) = "RES.IN", "TRUE",
Upper(SLDandTLD) = "SC.CN", "TRUE",
Upper(SLDandTLD) = "SC.KR", "TRUE",
Upper(SLDandTLD) = "SCH.AE", "TRUE",
Upper(SLDandTLD) = "SCH.SA", "TRUE",
Upper(SLDandTLD) = "SCHOOL.NZ", "TRUE",
Upper(SLDandTLD) = "SD.CN", "TRUE",
Upper(SLDandTLD) = "SH.CN", "TRUE",
Upper(SLDandTLD) = "SN.CN", "TRUE",
Upper(SLDandTLD) = "SOC.LK", "TRUE",
Upper(SLDandTLD) = "SX.CN", "TRUE",
Upper(SLDandTLD) = "TEL.TR", "TRUE",
Upper(SLDandTLD) = "TJ.CN", "TRUE",
Upper(SLDandTLD) = "TV.TR", "TRUE",
Upper(SLDandTLD) = "TW.CN", "TRUE",
Upper(SLDandTLD) = "WEB.LK", "TRUE",
Upper(SLDandTLD) = "WEB.PK", "TRUE",
Upper(SLDandTLD) = "WEB.TR", "TRUE",
Upper(SLDandTLD) = "XJ.CN", "TRUE",
Upper(SLDandTLD) = "XZ.CN", "TRUE",
Upper(SLDandTLD) = "YN.CN", "TRUE",
Upper(SLDandTLD) = "ZJ.CN", "TRUE",
"FALSE"
),
"FALSE"
)

IsAValidSLD Calculation (Text) = 
Case
(
IsAValidSLD1 = "TRUE", "TRUE",
IsAValidSLD2 = "TRUE", "TRUE",
IsAValidSLD3 = "TRUE", "TRUE",
IsAValidSLD4 = "TRUE", "TRUE",
IsAValidSLD5 = "TRUE", "TRUE",
IsAValidSLD6 = "TRUE", "TRUE",
"FALSE"
)

AmountOfNumbersAndDots Calculation (Number) Indexed = 
PatternCount(URLafterStripRightText,"0") +
PatternCount(URLafterStripRightText,"1") +
PatternCount(URLafterStripRightText,"2") +
PatternCount(URLafterStripRightText,"3") +
PatternCount(URLafterStripRightText,"4") +
PatternCount(URLafterStripRightText,"5") +
PatternCount(URLafterStripRightText,"6") +
PatternCount(URLafterStripRightText,"7") +
PatternCount(URLafterStripRightText,"8") +
PatternCount(URLafterStripRightText,"9") +
PatternCount(URLafterStripRightText,".")

DomainName Calculation (Text) Indexed = 
Case(
NumberOfDots = 1, URLafterStripRightText,
AmountOfNumbersAndDots = Length(URLafterStripRightText), URLafterStripRightText,
NumberOfDots > 1,
Case(
Upper(TopLevelDomain) = "COM", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1,
Length(URLafterStripRightText) - PositionOfNextToLastDot),
Upper(TopLevelDomain) = "NET", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1, Length(URLafterStripRightText)
- PositionOfNextToLastDot),
Upper(TopLevelDomain) = "ORG", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1,
Length(URLafterStripRightText) - PositionOfNextToLastDot),
Upper(TopLevelDomain) = "INFO", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1,
Length(URLafterStripRightText) - PositionOfNextToLastDot),
Upper(TopLevelDomain) = "BIZ", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1, Length(URLafterStripRightText)
- PositionOfNextToLastDot),
Upper(TopLevelDomain) = "EDU", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1, Length(URLafterStripRightText)
- PositionOfNextToLastDot),
Upper(TopLevelDomain) = "MOBI", Middle(URLafterStripRightText, PositionOfNextToLastDot + 1,
Length(URLafterStripRightText) - PositionOfNextToLastDot),
((NumberOfDots = 2) and (IsAValidSLD)), URLafterStripRightText,
((NumberOfDots > 1) and not (IsAValidSLD)), SLDandTLD,
((NumberOfDots > 2) and (IsAValidSLD)), LastThreeParts,
"Dunno!"
),
"dunno!"
)

URLCount Summary (Number) = 
Count of BackLinkURL

DomainCount Summary (Number) = 
Count of DomainName

NumUniqueDomains Calculation (Number) Unstored calculation = 
If( Min( SerialRecordNum ) = DomainSelfJoin::SerialRecordNum, 1, 0 )

NumUniqueDomainsSummary =
Summary (Number) = Total of NumUniqueDomains (running)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~








Start Here to Find It Fast!™ -> http://www.US-Webmasters.com/best-start-page/
$8.77 Domain Names -> http://domains.us-webmasters.com/
ATOM RSS1 RSS2
LISTSERV.DARTMOUTH.EDU