valorizzare variabile dinamica

[novello88]

ciao,
devo creare una serie di variabili dinamicamente; queste variabili avranno un nome formato da una parte iniziale stringa, una variabile, un'altra stringa, una seconda variabile e un'ultima parte stringa, ossia

"elemento_" & a & "_" & e & "_valore"

in fase di creazione dinamica di queste variabili devo valorizzarle associando loro il valore di altre variabili che ottengo splittando una stringa. Esempio:

ho la stringa

totale="1()1()()6B33001501()bc futura 36v, vasca cm 130, centrale cm 55, anteriore cm 175, destro - bianco cefla()pz()1()4392.51()4392.51"

questo é il codice:

a=1
parti_totale=split(totale,"()")
maxind=ubound(parti_totale)  
for e=0 to maxind
   eval("elemento_" & a & "_" & e & "_valore")=parti_totale(e)
next

purtroppo non funziona. Qualcuno sa aiutarmi?
Grazie in anticipo

 

[Paolo69]

prova una cosa del genere:

Dim i, s
i = 0
s = Split("1()1()()6B33001501()bc futura 36v, vasca cm 130, centrale cm 55, anteriore cm 175, destro - bianco cefla()pz()1()4392.51()4392.51", "()")
For i = 0 To UBound(s)
response.write(s(i) & "<br>")
Next

il risultato:

1
1

6B33001501
bc futura 36v, vasca cm 130, centrale cm 55, anteriore cm 175, destro - bianco cefla
pz
1
4392.51
4392.51

non credo che sia quello che vorresti ottenere...