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/