brug en string i et array

Dim strTest
strTest = "1,3,6"

Dim arrTest
arrTest = Split(strTest, ",")

/Orca

Og et brugseksempel:

Dim strTest
strTest = "1,3,6"

Dim arrTest
arrTest = Split(strTest, ",")

Dim i
For i=0 To UBound(arrTest)
  Response.Write(arrTest(i) & "<br>")
Next

misforstået emne :)

jeg er ikke interesseret i at spilte strengen op (ja jeg ved godt det er hvad det liger, og det er nogle pæne cut 'n paste eks. i har)

jeg vil tage min streng og smide IND i et Array, men den skal "konventeres" først

Hvordan!? :)

Æh... Ik forstået? Mener du at du vil lave en dynamisk array hvor du dynamisk specificerer antal felter? Altså noget med

Dim strArray
strArray = "1,3,6"

Dim arrTest()
ReDim arrTest(strArray)



PS. "og det er nogle pæne cut 'n paste eks. i har"? Hvad betyder det? :)

Ja der hen af, ved ikke helt præcist hvorfor jeg ikke kan få det til at du, i mit tilfælde

PS. det kunne godt ligne noget pasted, fra et tidligere eks :) måske ville copy 'n paste have passet bedre

Jeg har et sub som bl.a. kalder en Array().

Sub MinSub(first, second, usearrayhere)

som faktisk sender den videre til en function, der skal tjekke om en ID-værdi, er i array'et

Function IsElementOfArray(var,arr)
  Dim element
  IsElementOfArray = False
  If Not IsArray(arr) Then Exit Function

  If IsArray(arr) Then
      For Each element In arr
          If var = element Then
              IsElementOfArray = True
              Exit For
          End If
      Next
  End If
End Function

det hele starter selvfølgelig med

MinSub 0, 0, Array()

Function IsElementOfArray(var,arr)
  Dim element
  IsElementOfArray = False
  If Not IsArray(arr) Then Exit Function

  If IsArray(arr) Then
      For Each element In arr
          If var = element Then
              IsElementOfArray = True
              Exit For
          End If
      Next
  End If
End Function

Lidt smukkere:

Function IsElementOfArray(var,arr)
  If IsArray(arr) Then
    Dim i
    For i=0 To UBound(arr)
      If var=arr(i) Then IsElementOfArray=True
    Next
  Else
    IsElementOfArray=False
  End If
End Function

Hvad får du af fejl? (Og PS. jeg copy paster ikke :))

Function IsElementOfArray(var,arr)
  If IsArray(arr) Then
    Dim i
    For i=0 To UBound(arr)
      If var=arr(i) Then IsElementOfArray=True : Exit Function
    Next
  Else
    IsElementOfArray=False
  End If
End Function

jeg kan bare ikke få det til at hænge sammen :)

hvad skal jeg ændre så Array() bliver dynamisk ?

Fandt ud at at det handlede om en kompalitet mellem string og integer. så integer skulle bare være en string med CStr og så spillede det :)

du får lige point for din deltagelse