Testo e Array

[pegaso22]

Ciao a tutti,
ho un testo che vorrei inserire in un array.
Praticamente il testo è separato da
, vorrei che dopo ogni
inserisse il valore dentro l'array avanzando di volta in volta di posizione ovviamente.

Es:
testo2 = replace(testo1," ","
")

testo 2 va distribuito in un array.

Come posso fare?

Fatemi sapere.
Grazie mille.

[br1]

mio_array = Split(testo1,"
")

[pegaso22]

Mi da questo errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch

[Roby_72]

Vediamo quello che hai scritto.

Roby

[br1]

A naso direi che testo1 e' prelevato da un campo memo del db... e ti sei dimenticato di trasformarlo in stringa:

testo1 = CStr(recset("campoMemo"))

[pegaso22]

testo1 non è letto da db ma letto da un file txt.
Con la variazione sopra indicata il problema resta lo stesso.

Posto di seguito il codice completo:

ilfile=server.mappath("a capo.txt") 

Set file = CreateObject("Scripting.FileSystemObject") 
Set ilfile = file.OpenTextFile(ilfile, 1, False) 

counter=0 
do while not ilfile.AtEndOfStream 
counter=counter+1 
illine=illine & " " & ilfile.readline 

loop 

ilfile.Close 
set ilfile=nothing 
set file=nothing 

Dim righe(100000)

testo1 = replace(illine," ","
")

testo = CStr(testo1)
righe = Split(testo1,"
")

for i = 0 to Ubound(righe)
	if righe(i) = "%@%" then
		Response.Write(righe(i))
	end if
next

dove sta l'errore?

[Roby_72]

La riga dell'errore???

Roby

[pegaso22]

mi scrive 34 che corrisponde a:
testo = CStr(testo1)


Però quella con l'errore è:
righe = Split(testo,"
")

[Roby_72]

Fatti stampare "testo1" e verifica se corrisponde a come te lo aspetti!

Roby

[pegaso22]

si si, è una serie di scritte che vanno a capo.
Proprio come serve a me.