Avatar billede dalbjerg Nybegynder
05. februar 2001 - 10:25 Der er 13 kommentarer og
1 løsning

Domæne endelse..

Hejsa

Jeg har et domæne, som eks: kan se sådan ud:
www.test.leweb.dk. Det jeg ønsker er at finde frem til leweb.dk, hvordan gøres dette domænet kan ligeså godt se sådan ud:
www.test.inetguide.dk... og her skulle det stå være inetguide.dk
Avatar billede blazer Nybegynder
05. februar 2001 - 10:30 #1
ikke testet kode:

b=0
For X=1 to len(Url)
currchar=Mid(Url,x-len(url),1)
if currchar=\".\" then
b=b+1
end if
if b=2 then
newurl=Mid(Url,x-len(url),len(url)
end if
next

virker sikkert ikke..men kan ihvertfald gi dig en ide om hvordan mand skal gøre det...gider ikke til at skrive en færdig version!
Avatar billede dalbjerg Nybegynder
05. februar 2001 - 10:37 #2
http://www.ladder.dk/

se selv efter, den kommer med en fejl...

i denne linie: currchar=Mid(Url,x-len(url),1)
Avatar billede dalbjerg Nybegynder
05. februar 2001 - 10:37 #3
Og jeg har dette til at står...
URL = Request.ServerVariables(\"HTTP_HOST\")
Avatar billede cyigen Nybegynder
05. februar 2001 - 10:44 #4
Når man bruger Mid skal man skrive 2 tal f.eks.

text = \"Dette er en text\"

for at tage kun \"er\" skal du bruge mid
man starter med at tælle fra ventre ind af, der var syv, også siger man hvor mange tegn den skal tage med.

Mid(text, 7,2)
Avatar billede dalbjerg Nybegynder
05. februar 2001 - 10:47 #5
Æhh ja det ved jeg godt..

Men er der ingen som lige kan hjælpe mig med problemmeret??? Godt er Det mandag morgen... LOL
Avatar billede kasseper Nybegynder
05. februar 2001 - 10:48 #6
Denne her skulle da kunne gøre det :

function findDom(a)
    findDom = strReverse(left(strReverse(a),(inStr(4,strReverse(a),\".\")-1)))
end function

så kalder du bare findDom med en string der indeholder en URL....
Avatar billede kasseper Nybegynder
05. februar 2001 - 10:48 #7
skulle ha været et svar....
Avatar billede kasseper Nybegynder
05. februar 2001 - 10:51 #8
Det kan godt være du skal bruge denne her istedet :
function findDom(a)
    findDom = strReverse(left(strReverse(a),(inStr(5,strReverse(a),\".\")-1)))
end function
så kan den jo også finde .com/.org/eller what ever
Avatar billede kasseper Nybegynder
05. februar 2001 - 10:56 #9
Nej brug denne her :
function findDom(a)
    findDom = strReverse(left(strReverse(a),(inStr((inStr(strReverse(a),\".\")+1),strReverse(a),\".\")-1)))
end function

;)
Avatar billede dalbjerg Nybegynder
05. februar 2001 - 10:58 #10
æhh er den bedre???  den først se der ellers ud til at virke... fino...
Avatar billede kasseper Nybegynder
05. februar 2001 - 11:01 #11
Det er jo helt tosset, jeg kan slet ikke stoppe, men brug denne sidste version af findDom :

function findDom(a)
    dim firstDom
    firstDom = strReverse(left(strReverse(a),(inStr((inStr(strReverse(a),\".\")+1),strReverse(a),\".\")-1)))
    findDom = left(firstDom,(instr(firstDom,\"/\")-1))
end function

den kan finde alle domaæner i alle URL\'s, f.eks.
http://www.eksperten.dk/spm/47961 = eksperten.dk
Den fjerner altså også /spm/47961....
Nu skal jeg nok stoppe
Avatar billede kasseper Nybegynder
05. februar 2001 - 11:02 #12
Ja for den anden her har dynamisk frem findning af domæne antal bogstaverne....
den som ser ud til at virke fino, kan ikke finde dette domæne : www.k.dk
(Som om det findes...;), men man er vel en KÆMPE nørd....)

Avatar billede dalbjerg Nybegynder
05. februar 2001 - 11:06 #13
:o) oki.. du for dine points...
Avatar billede kasseper Nybegynder
05. februar 2001 - 11:07 #14
tak tak...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester