Kun domain navn

http://www.google.dk/search?hl=da&q=ASP+strip+domain&meta=

Måske noget her :-)

Public Function GetDomain(ByVal sUrl As String) As String
  Dim oSite As New System.Uri(sUrl)
  Return oSite.Host.Substring(oSite.Host.IndexOf(".") + 1)
End Function

GetDomain("http://www.nyarcade.com/index.php")

ser ud til at skulle returnere "nyarcade.com"

Det ligner da asp.NET og ikke ASP, synes jeg.

ups glemte at sige det ikke er i .net men gamle ASP

måske her?

http://answers.google.com/answers/threadview/id/286283.html

Husk nu at alt efter TLD'en kan det variere hvor mange elementer der egentlig udgør domænet. Hvis du kun er interesseret i .dk, så er det fast (2), men eksempelvis er .uk et klassisk eksempel på at der er flere end 2 elementer (bbc.co.uk).

Det behøver ikke engang være fast pr. TLD: .jp domæner kan registreres direkte (eks. nicovideo.jp) eller efter samme princip som .uk (nintendo.co.jp).

Nej den virker helt som det jeg ønsker. den tager tld af..

Noget i stil med dette (der skal dog lige klippes en hæl og skæres en tå :-)):

function getDomain(txt)
  dim rx
  set rx = new RegExp
  rx.Global = true
  rx.IgnoreCase = true
  rx.Pattern = "(\.|\b|^)[a-zæøå0-9-+_]+\.[a-zæøå0-9-+_]{2,}(\/|\b)$"
  set m = rx.Execute(txt)
  if m.Count > 0 then
    getDomain = m(0)
  else
    getDomain = ""
  end if
  set rx = nothing
end function

Nå, der kom jeg vist for sendt :)

sendt!?!? Det skulle have være sent :D

Der er en lille ting, den smider .domain.dk ud jeg vil geren af med . foran..

function getDomain(txt)
  dim rx
  set rx = new RegExp
  rx.Global = true
  rx.IgnoreCase = true
  rx.Pattern = "(?=\.|\b|^)[a-zæøå0-9-+_]+\.[a-zæøå0-9-+_]{2,}(\/|\b)$"
  set m = rx.Execute(txt)
  if m.Count > 0 then
    getDomain = m(0)
  else
    getDomain = ""
  end if
  set rx = nothing
end function

Tak smid en svar og point er din softspot

Velbekomme :)

Hep! Reminder :-)