variabile con For Next

[asch]

Ciao,
ho vari variabili

str1= "bianco"
str2= "rosso"
str3= "giallo"
str4= "verde"
str5= "rosa"
........
str30= "blu"


Invece di fare

response.write str1
response.write str2
response.write str3
response.write str4
response.write str5
......
response.write str30


Come posso fare per avere il ciclo ?

For a = 1 to 30
response.write str(a)
next

[Roby140569]

<%
dim str(4)
str(0)= "bianco"
str(1)= "rosso"
str(2)= "giallo"
str(3)= "verde"
str(4)= "rosa"

For Each a In str
  Response.Write(a & "<br>")
Next 
%> 

[asch]

OK funziona,
avrei però la necessita di far passare olre a str altre 2 variabili nome + titolo

ho provato così ma ho errore :

 
For Each a In str AND b In nome AND c In titolo
  Response.Write(a & "<br>")
  Response.Write(b & "<br>")
  Response.Write(c & "<br>")
Next 

si può fare?

[Roby140569]

Certo che si può fare.

[Roby140569]

Certo che si può fare.
http://www.w3schools.com/vbscript/func_ubound.asp

[asch]

Scusami ma non riesco a capire la procedura, io ho questi dati ma con
"For Each a In str AND b In nome AND c In titolo" non mi funziona
che codice devo scrivere?

<%
dim str(4)
dim nome(4)
dim titolo(4)

str(0)= "bianco"
str(1)= "rosso"
str(2)= "giallo"
str(3)= "verde"
str(4)= "rosa"

nome(0)= "paolo"
nome(1)= "gianni"
nome(2)= "mario"
nome(3)= "pippo"
nome(4)= "anna"

titolo(0)= "casa"
titolo(1)= "auto"
titolo(2)= "camion"
titolo(3)= "tv"
titolo(4)= "radio"


For Each a In str AND b In nome AND c In titolo
  Response.Write(a & "<br>")
  Response.Write(b & "<br>")
  Response.Write(c & "<br><br>")
Next
%>

L'uscita deve essere:
bianco
paolo
casa

rosso
gianni
auto

......

[Roby140569]

Hai guardato il link che ho postato?
http://www.w3schools.com/vbscript/func_ubound.asp

Guarda l'array bidimensionale.

[asch]

Si l'ho vista ma non riesco a cogliere la soluzione,
avrei provato così ma il Response.Write da errore

Dim str(2,3)
str(0,0)="bianco"
str(0,1)="rosso"
str(0,2)="giallo"
str(0,3)="verde"

str(1,0)="paolo"
str(1,1)="gianni"
str(1,2)="mario"
str(1,3)="pippo"

str(2,0)="casa"
str(2,1)="auto"
str(2,2)="camion"
str(2,3)="tv"

For Each a In str
    Response.Write((a,0) & "<br>")
    Response.Write((a,1) & "<br>")
    Response.Write((a,2) & "<br>")
Next

[Roby140569]

Lì non c'era la soluzione dalla A alla Z, ma c'erano gli elementi per trovarla.
Devi usare la funzione UBound, che ti restituisce la lunghezza dell'array.

Fai così...

<%
dim str(2,3)
str(0,0)= "bianco"
str(0,1)= "rosso"
str(0,2)= "giallo"
str(0,3)= "verde"
str(1,0)= "paolo"
str(1,1)= "gianni"
str(1,2)= "mario"
str(1,3)= "pippo"
str(2,0)= "casa"
str(2,1)= "auto"
str(2,2)= "camion"
str(2,3)= "tv"

For i = 0 to UBound(str, 2)
Response.Write str(0,i) & "<br>" & str(1,i) & "<br>" & str(2,i) & "<br><br>"
Next 
%> 

[asch]

Grazie, funziona perfettamente....da solo non ci sarei riuscito, grazie, Ciao