Dang. I guess I totally misunderstood the question. Sorry, Geoff > -----Original Message----- > From: FileMaker Pro Discussions [mailto:FMPRO- > [log in to unmask]] On Behalf Of W. D. > Sent: Sunday, October 07, 2012 12:46 AM > To: [log in to unmask] > Subject: Re: Extract Domain Name from URL? > > 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!(tm) -> http://www.US-Webmasters.com/best-start- > page/ > $8.77 Domain Names -> http://domains.us-webmasters.com/