script verifica esito 10elotto serale

[arcor]

un saluto a tutti mi rivolgo agli esperti di script perché volevo chiedere se era possibile realizzare uno script per il 10elotto serale che impostando un tot lunghette una dietro l'altra mi ricerchi gli esiti usciti in un range tot di estrazioni .deve mostrare in una griglia tutti i risultati di ogni singola lunghetta quindi dal punteggio minore in su(i numeri scelti in lunghetta dai 4 ai 6 possono bastare)non deve esserci limite alle lunghette da inserire.
nel programma di luigi non si possono inserire più di una sequenza per volta non cè la possibilità di ricerche multiple purtroppo.e questo è uno dei limiti del programma.
grazie

 

[LuigiB]

il programma non ha nessun limite visto che è scriptabile.
Semmai limiti stanno da un 'altra parte ...

 

[arcor]

visto che nessun scripter risponde se è possibile o no realizzarlo posto uno script di Mike58(penso sia suo)se è possibile modificarlo in modo da poter inserire contemporaneamente non solo una combinazione ma tutte quelle che si vogliono
e mostri la verifica per tutte insieme in un unica finestra per ogni data di estrazione.

Sub Main()
ImpostaArchivio10ELotto(1)
Dim Nn(10)
QT = InputBox("Quanti Numeri","Numeri",6)
ScegliNumeri(Nn)
Ini = EstrazioniArchivioDL - 10
Fin = EstrazioniArchivioDL
Scrivi "........ Da " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
Scrivi
Scrivi " Evidenzia numeri giocati sulla combinazione 10 e lotto ",1
Scrivi"------------------------------------------------------------"
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi"------------------------------------------------------------"
For Es = Ini To Fin
tot = 0
Scrivi DataEstrazioneDL(es) & " ",0,0
Scrivi "[" & Es & "] ",0,0
For P = 1 To 20
ColoreTesto 1
For x = 1 To Qt
If EstrattoDL(Es,P) = Nn(x) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoDL(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0

Next
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1
ColoreTesto 0
Next
Scrivi
Scrivi"--------------------------------------------------------------"
End Sub