Split

[fiber81]

Come posso convertire una stringa in un array dove ogni cella è un carattere?
Ho provato con Split(stringa,"") ma non funzia.
Grazie

[albis]

dim arrAppo()
dim strVal

strVal = "aaahhhnnn"


redim preserve arrAppo(len(strVal) - 1)
for i = 1 to len(strVal)
	arrAppo(i-1) = Mid(strVal,i,1)
next 
for i = 0 to UBound(arrAppo)
	Response.Write arrAppo(i)	 & "|
"
		
next

[fiber81]

grazie

[albis]

de nada