3 svar · 185 visningar · startad av Vide
Kan man på något smidigt sätt göra om flera Request's till en array, typ:
For each xxx in Request.Form.contents
i = i + 1
MyArray(i) = Request.Form.value
Next
... Nu ser ju detta lite konstigt ut, men ni förstår säkert principen.
Jo, det borde funka.
Man får se till att utöka arrayen dynamiskt, med Ubound(). Även se till att den inte blir för stor.
/T
Hittade ett exempel på det i Professional ActiveServerPages 3.0:
For each objitem in Request.Form
If Request.Form(objitem).count > 1 then
For initloop = 1 To Request.Form(objitem).count
MyArray(initloop) = Request.Form(objItem)(initloop)
Next
Else
MyArray(1) = Request.Form(objItem)
End If
Next
.. den här koden kolla samtidigt om det finns flera värden i en 'collection'...
Ja, koden ser ganska bra ut. Det jag är tveksam till är dimensioneringen av arrayen. Jag skulle nog löst det genom att lägga det i en sträng och split:at den:
Dim vaFormValues
Dim sItm, sFormValues
Dim i
For Each sItm in Request.Form
If Request.Form(sItm).Count > 1 then
For i = 1 To Request.Form(sItm).Count
sFormValues = sFormValues & Request.Form(sItm)(i) & ";"
Next
Else
sFormValues = sFormValues & Request.Form(sItm) & ";"
End If
Next
vaFormValues = Split(sFormValues, ";")