Ho un file di testo composto in questo modo
valore|valore1|valore2|
alore|valore1|valore2|
alore|valore1|valore2|
alore|valore1|valore2|
....
....
con uno script visualizzo un record casuale.. quindi una riga e poi prelevo i vari valori
' PRELEVA PRODOTTO CASUALE'
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(Application("file"), 1, False)
counter=0
maxm=0
m=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine=ilfile.readline
linea_testo(m)=illine
maxm=m
m=m+1
loop
ilfile.Close
set ilfile=nothing
set file=nothing
randomize
if maxm>0 then
indice = int(maxm * rnd) + 1
testo=linea_testo(indice)
linea_prodotto=split(testo, "|")
prodottomenu_id=linea_prodotto(0)
prodottomenu_nome=linea_prodotto(1)
prodottomenu_prezzo=linea_prodotto(2)
prodottomenu_immagine=linea_prodotto(3)
prodottomenu_descrizione=NoHTML(linea_prodotto(4))
end if
Il problema è che ogni tanto (raramente) mi da erore in questa riga
prodottomenu_nome=linea_prodotto(1)
dicendo: indice non incluso nell'internvalo ecc ecc
a questo punto mi domando...come mai proprio in questa variabile e non nella precendente=? da quanto ho capito sembra che stia puntando su una riga che non eisste...
Qualche consiglio?
Rispondi quotando
gli altri non danno noia
