grazie per lo script.
Ti ho preparato anche un'alternativa, che si presta bene come base anche per altre ricerche.
Option Explicit
'-------------------------------------
'Scritto da GAM il 16.05.2023 x Cinzia
'VERIFICA BIAMBI a TUTTE + NZ - v. 1.0
'
'Sulla base del file di testo fornito con tutti i Biambi,
'gli stessi vengono analizzati segnalando quelli in avvicinamento al max storico (a meno di 10 estrazioni)
'e quelli ormai fuori classifica
'-------------------------------------
Sub Main
Dim fso 'filesystemobject
Dim sFile ' percorso del file
Dim myFile ' è lo strream per leggere il file
Dim sLinea ' è la linea letta corrente
Dim Riga,k
Dim bAmbo1(2)
Dim bAmbo2(2)
Dim rAtt,rSto,Pre,Frm
Dim es,eini,efin,c,i,fr,con,ce,cs,x
Dim R_TT,R_NZ,Ru(2)
Dim ArrayFormazioni()',mAmbi()
Dim n(2),mt(4005,5),LivArch,nRP
LivArch = 0
eini = 7440
efin = EstrazioneFin
sFile = "C:\BiAmbi_dalla_7440_su_TUTTE_e_NZ.txt" ' DEFINIRE LA POSIZIONE DEL FILE DI TESTO DA LEGGERE
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile(sFile)
Do While Not myFile.AtEndOfStream
sLinea = myFile.ReadLine()
Riga = Riga + 1
ReDim Preserve ArrayFormazioni(Riga)
ArrayFormazioni(Riga) = sLinea
Loop
myFile.Close
ReDim mAmbi(Riga + 1,4)
For k = 1 To Riga
Call AvanzamentoElab(1,Riga,k)
mAmbi(k,1) = Mid(ArrayFormazioni(k),1,2)
mAmbi(k,2) = Mid(ArrayFormazioni(k),4,2)
mAmbi(k,3) = Mid(ArrayFormazioni(k),7,2)
mAmbi(k,4) = Mid(ArrayFormazioni(k),10,2)
Next
Dim numForm
Riga = numForm
R_TT = 11
R_NZ = 12
Ru(1) = 11
Ru(2) = 12
For i = 1 To k - 1
Messaggio(i)
Call AvanzamentoElab(1,k - 1,i)
bAmbo1(1) = mAmbi(i,1)
bAmbo1(2) = mAmbi(i,2)
Call AddNumeriToGruppoStatistico(bAmbo1,R_TT)
Call AddNumeriToGruppoStatistico(bAmbo1,R_NZ)
bAmbo2(1) = mAmbi(i,3)
bAmbo2(2) = mAmbi(i,4)
Call AddNumeriToGruppoStatistico(bAmbo2,R_TT)
Call AddNumeriToGruppoStatistico(bAmbo2,R_NZ)
Call StatisticaGruppoFormazioniTurbo(2,rAtt,rSto,Pre,Frm,eini,es,LivArch)
Riga = FormattaStringa(i,"00") & " Ambo " & StringaNumeri(bAmbo1,,1) & " " & StringaNumeri(bAmbo2,,1)',,0
Riga = Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
If rAtt + 9 > rSto Then Riga = Riga & " ***"
If rAtt >= rSto Then Riga = Riga & " ESCE DALLA CLASSIFICA"
Scrivi Riga
Next
Scrivi TempoTrascorso
End Sub
...
Lo script analizza e restituisce il risultato in un secondo.