Kan denne kode ikke gøres mindre ?

strURL = "http://www.net-danmark.dk/sidenavn.asp"
    arrPage = Split(strURL, "/")
    strPage = arrPage(UBound(arrPage))
    arrPName = Split(strPage, ".")
    Filnavn = arrPName(LBound(arrPName))

        Response.Write(Filnavn)

//>Rune

Selvf.

strURL = Request.ServerVariables("SCRIPT_NAME")
    arrPage = Split(strURL, "/")
    strPage = arrPage(UBound(arrPage))
    arrPName = Split(strPage, ".")
    Filnavn = arrPName(LBound(arrPName))

        Response.Write(Filnavn)

//>Rune

Det var netop dette jeg ikke ville have ;o)

Du bruger hele 4 variabler for, at lave det samme som jeg her gjort på én linje.

Du kunne laves koden sådan her:

Filnavn = Mid(Request.ServerVariables("SCRIPT_NAME"), inStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1, inStrRev(Request.ServerVariables("SCRIPT_NAME"),".")-inStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")-1)


og vil du ikke havde Request.ServerVariables("SCRIPT_NAME") så mange gange kan du overveje at skrive det sådan her, godt nok i to linjer:

Filnavn = Request.ServerVariables("SCRIPT_NAME")
Filnavn = Mid(Filnavn, inStrRev(Filnavn,"/")+1, inStrRev(Filnavn-inStrRev(Filnavn,"/")-1)

eagleeye: dit første eksempel er blot en lidt anden måde, at gøre det på en min, ik ?

Har også prøvet dit andet eksempel selv. Igen på en lidt andne måde, men det er jo værd programmørs præg på kode ;o)

Det ser ud til der ikke rigitg er nogen nememre måde, hvis det stadig skal være på en linje. Blev over overvælget over resultatet, da jeg først havde fået lavet koden.

Eagleeye: Du får 15 point fordi du trods alt har vist en anden måde, at gøre det på, men ikke har gjort koden mindre.

Jeg selv tager resten tilbage.

Medions: Din kode er god nok, men afviger fra spørgsmålet i det det er på flere linjer.