Qualcuno/a mi aiuti a trovare l'errore [script] - Thanks!

[lotto_tom75]

Option Explicit
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim sFile
Dim sNumeri
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione


'ReDim aNum(0)

sFile = "E:\ordine-giugno-2014-lottotom75\AUTOMATIC-SAVE-BEST-NUMBERS\lunghette.txt"



Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)



ReDim aRuoteSel(12)



RuoteSelezionate = ScegliRuote(aRuoteSel)


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")


valoreInizioelaborazione = 1
valorefineelaborazione = 1000

Classe = 60




ReDim aRuoteTmp(1)




For k = 1 To RuoteSelezionate


aRuoteTmp(1) = aRuoteSel(k)



For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum) 'QUI C'E' aNum che potrei 'provare a popolare.. con l'altro script...


Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)



Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 2


Dim Diff
Diff = RetRitMax - RetRit1



If(RetRit1 >= 0) Then


Dim Stringa

Stringa = " Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff


Call Scrivi(Stringa)


'scrivo su file

sFile = "E:\ordine-giugno-2014-lottotom75\AUTOMATIC-SAVE-BEST-NUMBERS\la-miglior-lunghetta.txt"

Call EliminaFile(sFile) ' cancella eventualmente il file se gia esiste



Call ScriviFile(sFile,Stringa,False,True) ' scrivo anche sul file preposto

Call CloseFileHandle(sFile) ' chiudo l'handle al file






If ScriptInterrotto Then Exit For

Next

Next

End If

End Sub

Eseguendolo ottengo sempre l'errore riportato in figura...



ma non so proprio come rimediarvi...

GRAZIE a tutti/e gli/le scripters che interverranno...

 

[lotto_tom75]

Non importa + grazie. Trovato e risolto.
Si trattava del parametro k usato due volte...
Mi è bastato aggiungere e gestire uno nuovo (z).