Avatar billede jmc Nybegynder
12. februar 2002 - 16:55 Der er 9 kommentarer og
1 løsning

left mid right

Mystring = Request.ServerVariables("HTTP_REFERER")
Begining = (InStrRev(MyString, "/grabit") + 1)
Ending = InStrRev(MyString, "http://www.")
Length = Ending - Begining
gurl = Mid(MyString, Begining, Length)

GIVER DENNE FEJL:
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/produkter/webhotel/index.asp, line 10

men hvorfor ?
Avatar billede jmc Nybegynder
12. februar 2002 - 16:55 #1
gurl = Mid(MyString, Begining, Length) er linie 10
Avatar billede jmc Nybegynder
12. februar 2002 - 16:59 #2
jeg prøver noget andet men statdigt fejl på mid ???

gurl = Mid(MyString, (InStrRev(MyString, "/grabit") + 1), (InStrRev(MyString, "http://www.") - (InStrRev(MyString, "/grabit") + 1)))
Avatar billede jmc Nybegynder
12. februar 2002 - 17:00 #3
dette er min string http://www.domainenavn.dk/grabit
og jeg vil gerne have domainenavn ud....
Avatar billede jmc Nybegynder
12. februar 2002 - 17:01 #4
jeg mener at udtrækket skal være domainenavn.dk eller domainenavn.com eller domainenavn.net osv.
Avatar billede gate2game Nybegynder
12. februar 2002 - 17:02 #5
tror du så ikke at der er fejl i "gurl = Mid(MyString, Begining, Length) "??
Avatar billede gate2game Nybegynder
12. februar 2002 - 17:03 #6
hvad snakker du om??
Avatar billede jmc Nybegynder
12. februar 2002 - 17:21 #7
dette er min string http://www.domainenavn.dk/grabit
jeg vil gerne frasortere '/grabit' i slutningen og 'http://www.' i starten.
Avatar billede jmc Nybegynder
12. februar 2002 - 17:39 #8
jeg har det herfra : http://abstractvb.com/learn.asp?CID=87

at man skulle kunne gøre sådan:
Not too tough is it? Well here is another one to try out. Lets say MyString = "c:\program files\games\abstract.exe" How would you get just the "abstract" portion of it? Well there are many ways to do this one, but since we haven't used that InStrRev function yet lets try it out:

Begining = (InStrRev(MyString, "\") + 1)
Ending = InStrRev(MyString, ".")
Length = Ending - Begining
NewString = Mid(MyString, Begining, Length)


That seems like quite a few steps just to get the word "abstract", but you put it all on one line so you don't have to use so many temporary variables, like this:

NewString = Mid(MyString, (InStrRev(MyString, "\") + 1), (InStrRev(MyString, ".") - (InStrRev(MyString, "\") + 1)))
Avatar billede jmc Nybegynder
12. februar 2002 - 17:46 #9
Eksemplet virker så det må være noget med at det ikke er tilladt at benytte flere chars, men kun én som her '\'

InStrRev(MyString, "\")
Avatar billede jmc Nybegynder
12. februar 2002 - 17:51 #10
Danm al den tekst.
Jeg havde byttet rundt på start og end.
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