Søg
Avatar billede moejensen Nybegynder
06. juli 2003 - 20:36 Der er 18 kommentarer og
1 løsning

hjælp til at skære en string ud

Hej med jer,

jeg er ved at lave en side, hvor jeg bruger muligheden for at lave Ghost folders, men jeg kan simpelthen ikke få skåret stringen ud som jeg gerne vil have det.

De typer af links jeg kan have er:

http://www.siden.dk/menulink/sidelink/
http://www.siden.dk/menulink/sidelink
http://www.siden.dk/menulink/
http://www.siden.dk/menulink

jeg henter stien ud med følgende: Request.ServerVariables("QUERY_STRING")

eksempelvis kunne den se således ud: 404;http://www.side.dk/menulink/sidelink/

jeg prøver nu at lave en funktion der deler url'en op i to variabler:

menu = menulinket
side = sidelink

men det driller mig fordi jeg aldrig ved om url'en slutter på "/" - det kommer jo an på den bruger der går ind på siden.

Håber i kan hjælpe
Avatar billede Slettet bruger
06. juli 2003 - 20:39 #1
If right(str,1) = "/" then
  Pil ud med /
Else
  Pil ud uden /
End If
Avatar billede Slettet bruger
06. juli 2003 - 20:43 #2
Eller (utestet)

If right(str,1) = "/" then
  Str = Left(str, Len(str) - 1
Else
  Str = Str
End If
Sidelink = Right(str,InStrRev(str))
MenuLink = Left(str, Len(Str) - InStrRev(str))

Kan godt være at der skal plusses eller minusses med 1, prøv dig frem :-)
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:02 #3
der giver mig ikke umiddelbart noget brugbart, desværre.
Avatar billede Slettet bruger
06. juli 2003 - 21:03 #4
Hvad får du ud med din nuværende kode og hvordan ser koden ud?
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:05 #5
jeg får følgende ud:

Sidelink: /www.side.dk/menulink/sidelink

Menulink: 404;http:/
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:06 #6
koden ser således ud:

If right(str,1) = "/" then
  Str = Left(str, Len(str) - 1)
Else
  Str = Str
End If
Sidelink = Right(str,InStrRev(str,"/"))
MenuLink = Left(str, Len(Str) - InStrRev(str,"/"))
Avatar billede Slettet bruger
06. juli 2003 - 21:08 #7
Du får lige denne først
Sidelink = Right(str,Len(str) - InStrRev(str,"/"))
Avatar billede Slettet bruger
06. juli 2003 - 21:09 #8
Og hvordan skal dit menulink se ud?
http://www.side.dk/menulink eller?
Avatar billede Slettet bruger
06. juli 2003 - 21:16 #9
Prøv evt.
MenuLink = Mid(str,5, Len(Str) - InStrRev(str,"/") - 4)
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:19 #10
menulink skal bare være menulink

ex
http://www.eksperten.dk/spg/31242

menulink = spg
sidelink = 31242
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:20 #11
det ser ud til at sidelink virker nu, men ved menulink får jeg: 404;http:/
Avatar billede Slettet bruger
06. juli 2003 - 21:26 #12
Forudsat du altid har 404;http:// foran

str = Right(str, len(str) - 5)
pos1 = instr(str,"/")
pos2 = instr(str,pos1+1,"/")
Menulink = Mid(str, pos1+1, pos2-pos1 - 1)
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:29 #13
der er altid 404;http:// foran

der er noget galt med
pos2 = instr(str,pos1+1,"/")

for instr tager to strings som parametre
Avatar billede Slettet bruger
06. juli 2003 - 21:31 #14
Min fejl det skal være
pos2 = instr(pos1+1,str,"/")
Det første er startpunktet, hvis det ikke angives starter den altid fra pos 1 i strengen :-)
Avatar billede moejensen Nybegynder
06. juli 2003 - 21:34 #15
Jeg får ingenting ud på menulink nu, så der må være skåret for meget i den
Avatar billede Slettet bruger
06. juli 2003 - 21:40 #16
Hmm, papir kodning er nu ikke helt optimalt. Hvis nedenstående ikke virker, så kan du evt. udskrive str, pos1 og pos2 når de er fundet og så se hvorfor det ikke passer:

str = Right(str, len(str) - 11)
pos1 = instr(str,"/")
pos2 = instr(pos1+1,str,"/")
Menulink = Mid(str, pos1+1, pos2-pos1 - 1)
Avatar billede moejensen Nybegynder
07. juli 2003 - 09:25 #17
så ser det ud til at jeg får det rigtige ud, men til tider kigger serveren efter denne sti:

404;http://www.siden.dk/menulink/sidelink/default.asp

og så passer det jo ikke. Kan jeg lave en if sætning der fjerner default.asp, hvis det står i strengen?
Avatar billede moejensen Nybegynder
07. juli 2003 - 11:26 #18
har selv klaret det.

Tak for hjælpen
Avatar billede Slettet bruger
07. juli 2003 - 16:58 #19
Ok, og tak for points :-)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:00 Film Server Af dcedata1977 i Andet software
I dag 12:56 Mistænkelige mails! Af ErikHg i E-mail
I går 14:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
I går 13:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
White papers
Flere white papers »