FMPRO-L Archives

October 2012, Week 2

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:
Re: Extract Domain Name from URL?
From:
Geoff Graham <[log in to unmask]>
Reply To:
FileMaker Pro Discussions <[log in to unmask]>
Date:
Mon, 8 Oct 2012 21:46:03 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (562 lines) 
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/

ATOM RSS1 RSS2