Avatar billede tblaster Nybegynder
17. oktober 2003 - 17:34 Der er 5 kommentarer og
2 løsninger

Finde ud af hvad fil heder udfra link

Hvordan finder jeg ud af hvad filen hedder udfra et link?

Jeg har mit link:
Url = http://blabla.dk/flash/Bla-bla.bla2.swf

Det jeg altså skal ende med at få er følgende:
Fil = Bla-bla.bla2
Avatar billede eagleeye Praktikant
17. oktober 2003 - 19:17 #1
Du bør kunne bruge Request.ServerVariables("URL") og den giver så
flash/Bla-bla.bla2.swf

Som man så kan søge i efter / og finde filnanvet:

filnavn = Request.ServerVariables("URL")
i = inStrRev(filnavn, "/")
if i > 0 then filnavn = mid(filnavn,i+1)

Response.Write filnavn
Avatar billede tblaster Nybegynder
17. oktober 2003 - 20:31 #2
Følgende giver intet:
filnavn = Request.ServerVariables("db_Url")
Response.write filnavn
Avatar billede eagleeye Praktikant
17. oktober 2003 - 20:33 #3
Prøv uden db_ foran Url i Request.ServerVariables:

filnavn = Request.ServerVariables("Url")
Response.write filnavn
Avatar billede tblaster Nybegynder
18. oktober 2003 - 10:48 #4
Den værdi jeg vil undersøge hedder:
db_Url            = Rs("Url")

Derfor har jeg db_ foran!
Avatar billede tblaster Nybegynder
18. oktober 2003 - 11:04 #5
Ahh ... nu kan jeg se hvor du vil hen med det!

Request.ServerVariables("URL") retuner jo linket til den side man viser lige nu. Det er ikke helt det jeg skal have. Jeg henter nemlig den url som jeg skal undersøge fra min database. Den gemmer jeg i en varriabel og så vil jeg gerne finde navnet på den fil som linket linker til.

db_Url = http://blabla.dk/flash/Bla-bla.bla2.swf

Men split funktionen kan jeg gøre følgende:

UrlArray = Split(Url, "/")
Men så skal jeg kunne vælge den sidste værdi og hvordan gør jeg det? Så skulle jeg nemlig gerne få følgende:
Bla-bla.bla2.swf

Så skulle jeg vel på en eller anden måde kunne fjerne endelsen, altså swf så jeg får:
Url = Bla-bla.bla2.

Til denne skal så tilføjes jpg så jeg ender med:
Url = Url & "jpg"

Altså at Url = Bla-bla.bla2.jpg

Håber det afklarede tingene lidt og at der er en der kan hjælpe mig med at fikse det!
Avatar billede tblaster Nybegynder
18. oktober 2003 - 11:12 #6
Jeg har lige prøvet at bikse noget sammen ... skla lige have jeres vurdering på følgende:

Url = Split(db_Url, "/")

For i = 0 to Ubound(Url)
    If Url(i) <> "" Then
        filnavn =  Url(i)
    End If
Next
Response.write filnavn

Vil overstående ikke altid ende med at indeholde filnavnet med filendelsen? ALtså:
Bla-bla.bla2.swf

Og hvordan kommer jeg fra oversteånde til kun at have:
Bla-bla.bla2
eller
Bla-bla.bla2.

Jeg skal altså have taget endelsen af. Kan jeg lave en replace så jeg erstatter .swf med .jpg eller sådan noget?
Avatar billede tblaster Nybegynder
18. oktober 2003 - 11:17 #7
filnavn = replace(filnavn, ".swf", ".jpg")
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