array da array

[maximino]

Sto realizzando un motore di ricerca interno per il mio sito.
Dalla ricerca devono essere escluse tutte le parole con meno di 2 caratteri.

Con il codice seguente riesco ad ottenre ciò che voglio a patto che fissi una dimensione iniziale per arrPulito

Come evitare di fissare questa dimensione?


grazie a tutti per l'aiuto

arrRicerca = Array(cane, di, gatto, topo, ragno) 
dim arrPulito(10)  

x=0

for i = 0 to UBound(arrRicerca)
	if len(arrRicerca(i)) > 2 then
		arrPulito(x)=arrRicerca(i)
		x=x+1
	end if
next

for x = 0 to UBound(arrPulito)
		Response.Write(arrPulito(x) & "
")
next

[santino83]

arrRicerca = Array(cane, di, gatto, topo, ragno) 


conta=1

for i = 0 to UBound(arrRicerca)
	if len(arrRicerca(i)) > 2 then
            conta=conta+1
           redim preserve arrPulito(conta)
		arrPulito(conta-1)=arrRicerca(i)
			end if
next

for x = 0 to conta
		Response.Write(arrPulito(x) & "
")
next

[maximino]

Innanzitutto, grazie Santino per la risposta

Ho provato il tuo codice ma ottengo questo errore

Tipo non corrispondente: 'arrPulito'

nella riga colorata di rosso

arrRicerca = Array(cane, di, gatto, topo, ragno) 


conta=1

for i = 0 to UBound(arrRicerca)
	if len(arrRicerca(i)) > 2 then
            conta=conta+1
           redim preserve arrPulito(conta)
		arrPulito(conta-1)=arrRicerca(i)
			end if
next

for x = 0 to conta
		Response.Write(arrPulito(x) & "
") 
next

[maximino]

come non detto...funziona perfettamente...avevo dimenticato gli apici per popolare l'array

arrRicerca = Array("cane", "di", "gatto", "topo", "ragno")

grazie santino!!!!!