Avatar billede leasing Nybegynder
07. september 2005 - 15:13 Der er 11 kommentarer og
1 løsning

Dele variabler

Som variabel får jeg et filnavn som skal deles i mindre stykker.
Et filnavn kan se således ud:
LF100342-120605-Kopiaftale-km.pdf

filnavnet skal så deles så jeg får følgende variabler:
variabel1 = LF100342
variabel2 = 120605
variabel3 = Kopiaftale
variabel4 = km

Håber der er nogen som har en rigtig go´ ide.
Avatar billede nielle Nybegynder
07. september 2005 - 15:17 #1
F.eks. sådan:

FilNavn = "LF100342-120605-Kopiaftale-km.pdf"
FilNavn = Split(".", FilNavn)(0)
FilNavnArr = Split("-", FilNavn)

variabel1 = FilNavnArr(0)
variabel2 = FilNavnArr(1)
variabel3 = FilNavnArr(2)
variabel4 = FilNavnArr(3)
Avatar billede nielle Nybegynder
07. september 2005 - 15:19 #2
Hov, argument-rækkefølgen skal lige byttes om i Split()

FilNavn = "LF100342-120605-Kopiaftale-km.pdf"
FilNavn = Split(FilNavn, ".")(0)
FilNavnArr = Split(FilNavn, "-")

variabel1 = FilNavnArr(0)
variabel2 = FilNavnArr(1)
variabel3 = FilNavnArr(2)
variabel4 = FilNavnArr(3)
Avatar billede leasing Nybegynder
07. september 2005 - 15:22 #3
Den kommer med følgende fejl:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 1]'
Avatar billede nielle Nybegynder
07. september 2005 - 15:26 #4
Prøv dette:

FilNavn = "LF100342-120605-Kopiaftale-km.pdf"
Set FilNavn = Split(FilNavn, ".")
Set FilNavn = FilNavn(0)
Response.Write "DEBUG: " & FilNavn
FilNavnArr = Split(FilNavn, "-")

variabel1 = FilNavnArr(0)
variabel2 = FilNavnArr(1)
variabel3 = FilNavnArr(2)
variabel4 = FilNavnArr(3)
Avatar billede leasing Nybegynder
07. september 2005 - 15:29 #5
Den kommer med følgende fejl:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required
Avatar billede nielle Nybegynder
07. september 2005 - 15:40 #6
Bliver der slet ikke udskrevet andet?

FilNavn = "LF100342-120605-Kopiaftale-km.pdf"
FilNavnMinusExtArr = Split(FilNavn, ".")
FilNavnMinusExt = Arr(0)

Response.Write "DEBUG: " & FilNavnMinusExt & "<br>"

FilNavnArr = Split(FilNavnMinusExt, "-")

variabel1 = FilNavnArr(0)
variabel2 = FilNavnArr(1)
variabel3 = FilNavnArr(2)
variabel4 = FilNavnArr(3)
Avatar billede leasing Nybegynder
07. september 2005 - 15:43 #7
Følgende fejl:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'Arr'
/skabeloner/test1.asp, line 4

Virker det ved dig?
Avatar billede nielle Nybegynder
07. september 2005 - 15:44 #8
Det var en cut'n'paste fejl:

FilNavn = "LF100342-120605-Kopiaftale-km.pdf"
FilNavnMinusExtArr = Split(FilNavn, ".")
FilNavnMinusExt = FilNavnMinusExtArr(0)

Response.Write "DEBUG: " & FilNavnMinusExt & "<br>"

FilNavnArr = Split(FilNavnMinusExt, "-")

variabel1 = FilNavnArr(0)
variabel2 = FilNavnArr(1)
variabel3 = FilNavnArr(2)
variabel4 = FilNavnArr(3)
Avatar billede leasing Nybegynder
07. september 2005 - 15:48 #9
Så kører den...takker mange gange.
Laver du et svar?
Avatar billede nielle Nybegynder
07. september 2005 - 15:49 #10
Svar :^)
Avatar billede nielle Nybegynder
07. september 2005 - 15:49 #11
...
Avatar billede leasing Nybegynder
07. september 2005 - 15:49 #12
hov...det var ikke et svar
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