Avatar billede tblaster Nybegynder
29. september 2003 - 16:05 Der er 14 kommentarer og
1 løsning

funktion skal gælde for alle tal og ikke kun dem jeg definer!

Hvordan laver jeg denne om så den gælder for alle værdier fra 2 til 50 (eller uendeligt)

ID = Split(request("ParentID"), "-")
If Session("Antal") = 2 Then
ParentID = ID(0)
ElseIf Session("Antal") = 3 Then
ParentID = ID(0) & "-" & ID(1)
ElseIf Session("Antal") = 4 Then
ParentID = ID(0) & "-" & ID(1) & "-" & ID(2)
End If
Avatar billede netro Nybegynder
29. september 2003 - 16:10 #1
ID = Split(request("ParentID"), "-")

For i = 2 To 50
  If CInt(Session("Antal")) = i Then
      For t = 0 To i - 2
          ParentID = ParentID & ID(t) & "-"
      Next
      Exit For
    End If
Next

Response.Write ParentID
Avatar billede tblaster Nybegynder
29. september 2003 - 16:16 #2
Det giver Type mismatch i denne linje:
ParentID = ParentID & ID(t) & "-"
Avatar billede netro Nybegynder
29. september 2003 - 16:19 #3
Du bør også lige ændre til følgende:

      For t = 0 To i - 2
          If UBound(ID) >= t Then
            ParentID = ParentID & ID(t) & "-"
          End If
      Next
Avatar billede tblaster Nybegynder
29. september 2003 - 16:21 #4
det giver samme fejl
Avatar billede netro Nybegynder
29. september 2003 - 16:24 #5
Okay - prøv lige at udskrive t i første omgang:

ID = Split(request("ParentID"), "-")

For i = 2 To 50
  If CInt(Session("Antal")) = i Then
      For t = 0 To i - 2
          If UBound(ID) >= t Then
            Response.Write t & "<br>"
          End If
      Next
      Exit For
    End If
Next

Hvad giver det?
Avatar billede tblaster Nybegynder
29. september 2003 - 16:24 #6
Det giver 0
Avatar billede netro Nybegynder
29. september 2003 - 16:26 #7
Så er dit array tomt.
Avatar billede tblaster Nybegynder
29. september 2003 - 16:28 #8
Nope ... følgende hjalp:
ParentID = ""
Avatar billede netro Nybegynder
29. september 2003 - 16:28 #9
Du kan se, hvad dit array indeholder således:

ID = Split(request("ParentID"), "-")
For i = 0 To UBound(ID)
  Response.Write ID(i) & "<br>"
Next
Avatar billede netro Nybegynder
29. september 2003 - 16:29 #10
ParentID = "" ?
Avatar billede netro Nybegynder
29. september 2003 - 16:42 #11
Det lyder underligt, hvad du siger. Er du ikke lige sød at forklare dig?
Avatar billede tblaster Nybegynder
29. september 2003 - 17:00 #12
Yep ... jeg måtte bare sikre at min parentid var tom:

ID = Split(request("ParentID"), "-")
ParentID = ""
For i = 2 To 50
  If CInt(Session("Antal")) = i Then
      For t = 0 To i - 2
          ParentID = ParentID & ID(t) & "-"
      Next
      Exit For
    End If
Next
Avatar billede netro Nybegynder
29. september 2003 - 17:14 #13
Ja, hvad du har stående af kode højere oppe, kan jeg jo dårligt vide noget om.

Tak for points.
Avatar billede tblaster Nybegynder
30. september 2003 - 08:12 #14
Jeg bruger ikke parentid højere oppe ... men sålænge det virker så er jeg glad!
Avatar billede netro Nybegynder
30. september 2003 - 13:31 #15
Hvis du ikke bruger variablen ParentID højere op, har du du heller ikke givet den en værdi, og derfor burde det ikke have nogen betydning, om du tømmer den med: ParentID = ""
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