Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq
' script by lotto_tom75 analisi di qualsiasi numero di combinazioni "salvate" su un .txt
' le combinazioni di ciascun file caricato dovranno avere numero di elementi uguali
' (es. tutte decine, o 'tutte novine ecc...
' gli elementi di ciascuna lunghetta dovranno essere separati da un (.)
' (comunque sia il carattere 'separatore si puo' cambiare nel codice
' l'elaborazione è di tipo "integrale" e quindi soggetto a limiti di elaborazione
' dipendente da numero di 'elementi nelle lunghette e numero di
' combinazioni volute (non determionabile a priori)
' Dovuta precisazione: TUTTI GLI SCRIPT e la LA LORO ESECUZIONE esistono solo grazie al mitico
' creatore di Spaziometria. Il grandissimo LUIGIB
' Script testato sulla versione 1.4.32 e probabilmente funzionante anche
' con le versioni superiori...
sFile = ScegliFile("c:\temp",".txt","lunghette.txt") ' percorso dove viene caricato il txt (ovviamente si puo' cambiare in toto...
'Inizio = 1
'Fine = 8647
ReDim aRuote(2)
aRuote(1) = TU_
'aRuote(2) = NZ_
'aRuote(3) = FI_
'aRuote(4) = GE_
nSorte = 4 ' sorte ricercata
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)
Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
'Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine)
RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)
Dim Diff
Diff = RetRitMax - RetRit
If(RetRit > 0 And Diff < 2 And RetIncrRitMax = 0) Then ' riga condizionale mutevole a piacere...
Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff)
End If
End If
If k Mod 100 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(0,UBound(aRighe),k)
End If
Next
End Sub
Per quanto riguarda quello che ti serve, ovvero il memorizzare la o le formazioni che ti servono senza doverle inserire manualmente ogni volta sono felice di poterti dire che spaziometria del mitico luigib assolve meravigliosamente anche a questa necessità. Infatti ti basta andare nella sezione STATISTICA FORMAZIONI REGISTRATE e cliccare sull'apposito bottone (iconcina simile al wordpad) inserisci il nome della tua formazione o delle tue formazioni e poi inserisci con un semplice bottone "sfoglia" cerca il tuo file txt e inserimento tramite "separatori" predefiniti o customizzabili le tue formazioni che appunto saranno formate presumo da numeri intervallati da separatori specifici (. , ; ecc...) comunque guardo di chiarirti meglio tutto con delle img. Dammi un sec... 
Ciao
