sulla base del tuo script ho creato questa versione che scrive su TXT. Dovrebbe essere più veloce del 10-15% rispetto alla tua, prova a verificare.
Option Explicit
Sub Main
'Ricerca di Gruppi di catene di Ambi Consecutivi su Ruota con Coppia Consecutivi Capogioco: scritto da Gam il 24.07.2023 su modifica di Herat
Dim ruote(1)
Dim st,at,capogioco,capogioco2,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr
Dim ambo(2),ambo2(2),NumAmbi,PrimoEl,UltimoEl,conta
Dim r,k,x,sFile,riga,StoMAX
NumAmbi = 10 ' numero ambi consecutivi
StoMAX = 0' valore minimo per stampare i risultati
eIni = EstrazioneIni
Efin = EstrazioneFin
LivArch = 0 ' Archivio
sFile = GetDirectoryTemp & "Catena_" & NumAmbi & "_Ambi_Consecutivi_Con_Coppia_Capogioco_Consecutiva_su_Ruota_da_" & eIni & "_a_" & Efin & "su_L_" & LivArch &".txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
Call EliminaFile(sFile)
For capogioco = 1 To 4
For capogioco2 = capogioco + 1 To capogioco + 1
If ScriptInterrotto Then Exit Sub
For r = 1 To 10
If r = 11 Then r = 12
ruote(1) = r
For k = 1 To 90 - NumAmbi + 1
If k = capogioco - NumAmbi + 1 Then k = k + NumAmbi
If k > 90 Then Exit For
If capogioco <> NumAmbi And capogioco2 <> NumAmbi And capogioco <> k And capogioco2 <> k Then
Messaggio("Catene formate da " & NumAmbi & " Ambi - con Coppia Capogioco " & capogioco & " - " & capogioco2 & " " & SiglaRuota(r))
For x = 0 To NumAmbi - 1
ambo(1) = capogioco :ambo(2) = k + x
ambo2(1) = capogioco2: ambo2(2) = k + x
PrimoEl = Format2(k)
UltimoEl = Format2(k + NumAmbi - 1)
If capogioco <> k + x And PrimoEl < 91 And UltimoEl < 91 Then Call AddNumeriToGruppoStatistico(ambo,r)
If capogioco2 <> k + x And PrimoEl < 91 And UltimoEl < 91 Then Call AddNumeriToGruppoStatistico(ambo2,r)
conta = conta + 1
Next
If conta = NumAmbi Then Call StatisticaGruppoFormazioniTurbo(2,Att,Sto,Freq,Gruppo,eIni,Efin,LivArch) :Gr = Gr + 1
conta = 0
If Sto > StoMAX Then
If Att >= Sto Then
riga = "Catena " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & "-" & Format2(capogioco2) & " " & PrimoEl & " " & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***"
' Scrivi riga
Call ScriviFile(sFile,riga)
Else
riga = "Catena " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & "-" & Format2(capogioco2) & " " & PrimoEl & " " & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000")
' Scrivi riga
Call ScriviFile(sFile,riga)
End If
End If
PrimoEl = ""
UltimoEl = ""
End If
Next
Next
Next
Next
Scrivi TempoTrascorso
Scrivi Gr & " Gruppi di ambi analizzati"
Call ScriviFile(sFile,TempoTrascorso)
Call ScriviFile(sFile,Gr & " Gruppi di ambi analizzati")
Call CloseFileHandle(sFile)
Call LanciaFile(sFile)
End Sub
Se hai disponibili i dati storici e vuoi condividerli posso preparare una nuova pagina del sito con questa tua nuova ricerca.
Basta che mi fornisci i primi tre max storici delle catene da 2 a 10 ambi (direi già abbastanza interessante), sulla falsa riga di quanto già fatto qui :