FMPRO-L Archives

October 2012, Week 1

FMPRO-L@LISTSERV.DARTMOUTH.EDU

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 >>]

Print Reply
Subject:
From:
Reply To:
FileMaker Pro Discussions <[log in to unmask]>
Date:
Sat, 6 Oct 2012 23:45:56 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (524 lines)
At 18:26 10/4/2012, W. D. wrote:
>Looking to parse out the domain name from a URL:
>
>  http://lists.ironclad.net.au
>
>or
>
>  https://LISTSERV.DARTMOUTH.EDU/
>
>Does anyone know of a function that would work for 
>FileMaker 6, or do I need to create one?

Thanks everyone, for all your help.

Here is what I have come up with.  Can anyone see any
places for improvement?



BackLinkURL Text

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)))

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

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

URLafterStripLeftText Calculation (Text) = 
Case(
Position(URLafterStripQuotes, "https://www.", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 12, ""),
Position(URLafterStripQuotes, "HTTPS://WWW.", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 12, ""),
Position(URLafterStripQuotes, "http://www.", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 11, ""),
Position(URLafterStripQuotes, "HTTP://WWW.", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 11, ""),
Position(URLafterStripQuotes, "https://", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 8, ""),
Position(URLafterStripQuotes, "HTTPS://", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 8, ""),
Position(URLafterStripQuotes, "http://", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 7, ""),
Position(URLafterStripQuotes, "HTTP://", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 7, ""),
Position(URLafterStripQuotes, "www", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 3, ""),
Position(URLafterStripQuotes, "WWW", 1, 1) > 0, Replace(URLafterStripQuotes, 1, 3, ""),
URLafterStripQuotes
)

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