GetBaseDomain

The GetBaseDomain method is a utility function that converts a domain into a "domain base", which is useful for grouping URLs. For example: abc.chilkatsoft.com, xyz.chilkatsoft.com, and blog.chilkatsoft.com all have the same base domain: chilkatsoft.com. Things get more complicated when considering country domains (.au, .uk, .se, .cn, etc.) and government, state, and .us domains. Also, domains such as blogspot, tripod, geocities, wordpress, etc, are treated specially so that "xyz.blogspot.com" has a base domain of "xyz.blogspot.com". Note: If you find other domains that should be treated similarly to blogspot.com, send a request to support@chilkatsoft.com.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

'  The Chilkat Spider component/library is free.
Dim spider As New Chilkat.Spider()

TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("www.chilkatsoft.com") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("blog.chilkatsoft.com") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("www.news.com.au") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("blogs.bbc.co.uk") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("xyz.blogspot.com") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("www.heaids.org.za") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("www.hec.gov.pk") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("www.e-mrs.org") & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & spider.GetBaseDomain("cra.curtin.edu.au") & vbCrLf
TextBox1.Refresh()

'  Prints:
'  chilkatsoft.com
'  chilkatsoft.com
'  news.com.au
'  bbc.co.uk
'  xyz.blogspot.com
'  heaids.org.za
'  hec.gov.pk
'  e-mrs.org
'  curtin.edu.au