Enklaste sättet att plocka ut "domänadressen"?

Plocka fram det som finns mellan de två första // och nästa /. Har du det är det ju bara att lägga till http:

Logiken kan jag, koden kan jag inte. ;)

domain = mid(querystring,1,(instrrev(querystring,"/"))

Taxen. OCh querystring är en variabel som jag petar in?!

:)

Jo, så var det nog jag tänkte. querystring var väl inget bra namn.

men har man en adress typ:

http://www.webforum.nu/**mapp/**showthread.php?s=&postid=471066

så funkar inte LarsG's kod

Hur fixar jag en kod då som fungerar i alla möjliga fall?
RegExp?

:)

tja det är ett sätt som jag tror skulle funka bäst, tyvärr kan jag det inte så jag kan inte ge någon exempelkod..

har i ett script denna kod som visa typ:

https://www.webforum.nu

asså utan http:

str = "http://www.domain.com/mapp/fil.asp"

domain = Replace(str, "http://", "")
If InStr(domain, "/") Then domain = Left(domain, InStr(domain "/")-1)

domain innehåller nu domänen

vill du däremot ha med http:// och vet att detta kommer att skickas med så borde du kunna anävnda:

str = "http://www.domain.com/mapp/fil.asp"
domain = Left(str, InStr(8, domain "/")-1)