Novità

script per controllo rendimento 10elotto5m

adispo2000

adispo2000

Super Member >PLATINUM<
Cioa a tutti volevo sapere se e' possibile avere uno script per controllare delle colonne al 10elotto5m e sapere il rendimento in un range , pero' i file sono in formato txt e sono colonne in cinquine, sestine, settine fino a decine si puo' realizzare uno script del genere....non so' se sono stato chiaro...ma solo dei professionisti come voi mi possono aiutare.....ciao a tutti:confused::confused::confused:
Questo e uno dei tanti che vorrei controllare
01 02 03 04 05 06 07 08 09
01 02 03 05 10 13 14 15 18
01 02 03 10 11 12 19 20 21
01 02 03 16 17 18 22 23 24
01 02 04 07 11 14 17 21 24
01 04 05 09 12 13 14 17 24
01 04 07 10 13 15 16 19 22
01 05 06 08 11 13 18 21 23
01 05 09 11 15 16 21 22 24
01 06 08 10 12 14 16 20 22
01 06 08 10 14 15 17 19 24
01 07 09 12 15 17 18 20 23
01 13 18 19 20 21 22 23 24
02 03 06 07 12 13 17 19 23
02 04 05 08 12 15 18 19 22
02 04 06 09 10 15 17 21 23
02 04 09 10 11 13 18 20 22
02 04 09 12 14 16 19 23 24
02 05 08 10 13 16 21 23 24
02 05 08 11 14 17 20 22 23
02 06 07 09 10 14 18 21 22
02 06 07 11 13 15 16 20 24
03 04 05 06 14 15 22 23 24
03 04 07 08 10 14 18 20 24
03 04 08 11 15 16 19 20 23
03 04 08 12 13 16 17 21 22
03 05 06 09 10 13 16 20 23
03 05 07 10 15 17 20 21 22
03 05 07 11 12 14 16 21 23
03 06 08 09 12 15 18 21 24
03 06 09 11 13 14 17 19 22
04 05 06 16 17 18 19 20 21
04 07 08 09 10 11 12 22 23
05 06 07 10 11 12 18 19 24
05 07 08 09 11 16 17 18 19
07 08 09 13 14 15 19 20 21
10 11 12 13 14 15 16 17 18
 
Ultima modifica:
Con questo script puoi controllare tutte le combinazioni manuali che credi e per ogni lunghetta di numeri.
Se invece vuoi aumentare le combinazioni bisogna modificare anche il contenitore Dim A(37)

prova cosi.

Codice: 
Sub Main
	Dim A(37)
	ImpostaArchivio10ELotto(2) ' 2 = 10&lotto 5min 1 = 1o&lotto serale
	xtt = InputBox("Quante estrazioni controllo ",,100)
	Ini = EstrazioniArchivio - xtt
	fin = EstrazioniArchivio
	sorte = CInt(InputBox("QUALE SORTE VERIFICO",,5))
	A(1) = "01 02 03 04 05 06 07 08 09"
	A(2) = "01 02 03 05 10 13 14 15 18"
	A(3) = "01 02 03 10 11 12 19 20 21"
	A(4) = "01 02 03 16 17 18 22 23 24"
	A(5) = "01 02 04 07 11 14 17 21 24"
	A(6) = "01 04 05 09 12 13 14 17 24"
	A(7) = "01 04 07 10 13 15 16 19 22"
	A(8) = "01 05 06 08 11 13 18 21 23"
	A(9) = "01 05 09 11 15 16 21 22 24"
	A(10) = "01 06 08 10 12 14 16 20 22"
	A(11) = "01 06 08 10 14 15 17 19 24"
	A(12) = "01 07 09 12 15 17 18 20 23"
	A(13) = "01 13 18 19 20 21 22 23 24"
	A(14) = "02 03 06 07 12 13 17 19 23"
	A(15) = "02 04 05 08 12 15 18 19 22"
	A(16) = "02 04 06 09 10 15 17 21 23"
	A(17) = "02 04 09 10 11 13 18 20 22"
	A(18) = "02 04 09 12 14 16 19 23 24"
	A(19) = "02 05 08 10 13 16 21 23 24"
	A(20) = "02 05 08 11 14 17 20 22 23"
	A(21) = "02 06 07 09 10 14 18 21 22"
	A(22) = "02 06 07 11 13 15 16 20 24"
	A(23) = "03 04 05 06 14 15 22 23 24"
	A(24) = "03 04 07 08 10 14 18 20 24"
	A(25) = "03 04 08 11 15 16 19 20 23"
	A(26) = "03 04 08 12 13 16 17 21 22"
	A(27) = "03 05 06 09 10 13 16 20 23"
	A(28) = "03 05 07 10 15 17 20 21 22"
	A(29) = "03 05 07 11 12 14 16 21 23"
	A(30) = "03 06 08 09 12 15 18 21 24"
	A(31) = "03 06 09 11 13 14 17 19 22"
	A(32) = "04 05 06 16 17 18 19 20 21"
	A(33) = "04 07 08 09 10 11 12 22 23"
	A(34) = "05 06 07 10 11 12 18 19 24"
	A(35) = "05 07 08 09 11 16 17 18 19"
	A(36) = "07 08 09 13 14 15 19 20 21"
	A(37) = "10 11 12 13 14 15 16 17 18"
	Scrivi "Verifico combinazioni per sorte di..." & NomeSorte(sorte) & "    - Da " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1,1,,1,3
	'Scrivi
	ReDim T(8)
	T(1) = " N° Comb "
	T(2) = " Combinazione "
	T(3) = " estratti "
	T(4) = " esito "
	T(5) = " Colpo "
	T(6) = " ultima "
	T(7) = " Info data "
	T(8) = " Ritardo "
	Call InitTabella(T,2,,3,5)
	For X = 1 To UBound(A)
		kk = kk + 1
		Nu = Split(A(X)," ")
		Call StatisticaFormazioneDL(nu,sorte,ritardo,max,Incr,fre,Ini,fin)
		Call VerificaEsitoDL(Nu,fin - xtt,sorte,xtt,esito,colpo,estratti,id)
		Call VerificaEsitoDL(nu,fin,1,1,esit,clp,estr,idd)
		ntot =(ntot +(nguad/1))
		ReDim V(8)
		V(1) = x
		V(2) = StringaNumeri(nu,,1)
		V(3) = estratti
		V(4) = esito
		V(5) = colpo
		V(6) = estr & esit
		xT = Fin - id
		V(7) = id & " - " & DataEstrazioneDL(id)
		V(8) = xT
		If esito <> "" Then
			Call AddRigaTabella(V,,,3)
		End If
		Scrivi FormatSpace(kk,2) & "  " & StringaNumeri(nu,,1) & "  frequenza = " & fre & "   Ritarda da... " & ritardo
	Next
	Scrivi
	Scrivi "Elenco tutte le combinazioni che hanno dato esito ",1,1,,1,3
	Call SetTableWidth("100%")
	Call CreaTabella(8)
	Scrivi Chr(174) & " *** script by Mike58 ***** " & Chr(169),1,1,,2,3
End Sub
 
Ultima modifica:
Come ho fatto io, ho riportato il file in variabile ed ad ogni riga di txt ho associato la variabile progressiva.
Purtroppo bisogna scriverla in questo script se si vuole che la verifica si appoggi all'archivio 10elotto.
 
scusa mike....come mai legge il 2013... imposte 100 poi 5 e invio, e mi cerca dal 18 5 al 19 5, bhoo non dovrebbe controllare dall'ultima estrazione a salire...facendoriferimento all'archivio del 10elotto5m di spaziometria del mtico LUIGIb..ciao
 
Ultima modifica:
Con 100 estrazioni dovrebbe leggere l'ultima giornata nel 10elotto 5min, devi vedere se l'archivio è aggiornato.
Io non lo uso e per questo non è aggiornato e non posso fare verifiche.
Infatti da qualche tempo l'aggiornamento con la routine di Moro80 non mi funziona, che sia cambiato il link delle estrazioni oppure altro non so.
 
Ciao Adispo2000, rivedendo un po' di lezioni di Scripting sono riuscito a far leggere allo script il tuo file esterno e far fare la verifica con l'ultima colonna 10elotto 5min.
Ti basta mettere il tuo file di testo senza spazi nello locazione preferita e richiamarla dallo script.

il risultato è questo script

Codice: 
'Option Explicit
Class clsCombinazione
	Private aNumeri
	Function SetNumeriFromRiga(sRiga,sChrSep)
		Dim k,nUpper
		ReDim aV(0)
		Call SplitByChar(sRiga," ",aV)
		nUpper = 0
		ReDim aNumeri(nUpper)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				If isNumeroValidoLotto(CInt(aV(k))) Then
					nUpper = nUpper + 1
					ReDim Preserve aNumeri(nUpper)
					aNumeri(nUpper) = CInt(aV(k))
				End If
			End If
		Next
		If nUpper > 0 Then
			SetNumeriFromRiga = True
		Else
			SetNumeriFromRiga = False
		End If
	End Function
	Sub GetArrayNumeri(aNum)
		aNum = aNumeri
	End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
	Dim k
	Dim clsComb
	Set Coll = GetNewCollection
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto 	(sFile,aRighe)
	For k = 0 To UBound(aRighe)
		Set clsComb = New clsCombinazione
		If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
			Coll.Add clsComb
		End If
	Next
End Sub
Sub Main
	Dim sFileCombinazioni
	Dim sDirDef
	Dim CollCombinazioni
	Dim clsComb
	Dim aNumeri
	
	
	sDirDef = GetDirectoryAppData
	sFileCombinazioni = ScegliFile(sDirDef,".txt")
	Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
	
	' ciclo su tutte le combinazioni da analizzare
	For Each clsComb In CollCombinazioni
	kn = kn + 1
		Call clsComb.GetArrayNumeri(aNumeri)
		' ora abbiamo i numeri della combinazione corrente
		
		' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
		' qui mettero il codice che lavora con la combinazione corrente
	ImpostaArchivio10ELotto(2)
	fin = EstrazioniArchivio 
	
		Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),0,0)
		
		 
		
		Call VerificaEsitoDL(aNumeri,EstrazioniArchivio,1,1,esito,,estratti,id)
		Scrivi vbTab & estratti	& vbTab & esito		
	Next
	Scrivi
	Scrivi "ultima colonna estratta.... " & StringaEstrattiDL(fin),1,1,,1,2
End Sub
 
GRAZIE DI TUTTO.....E AUGURI DI BUON ANNO..MA MOMENTANEAMENTE NON HO CONTROLLATO IN QUANTO STO' INSTALLANDO OFFICE 2013...E HO AVUTO PROBLEMI APPENA POSSO GUARDO....E MI FACCIO SENTIRE...CIAO
 
Si !!! si potrebbe anche fare, ti ho messo però quante estrazioni dalla fine vuoi vedere e vengono elencati gli esiti.
Credo che cosi è più efficace.

prova

Codice: 
'Option Explicit
Class clsCombinazione
	Private aNumeri
	Function SetNumeriFromRiga(sRiga,sChrSep)
		Dim k,nUpper
		ReDim aV(0)
		Call SplitByChar(sRiga," ",aV)
		nUpper = 0
		ReDim aNumeri(nUpper)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				If isNumeroValidoLotto(CInt(aV(k))) Then
					nUpper = nUpper + 1
					ReDim Preserve aNumeri(nUpper)
					aNumeri(nUpper) = CInt(aV(k))
				End If
			End If
		Next
		If nUpper > 0 Then
			SetNumeriFromRiga = True
		Else
			SetNumeriFromRiga = False
		End If
	End Function
	Sub GetArrayNumeri(aNum)
		aNum = aNumeri
	End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
	Dim k
	Dim clsComb
	Set Coll = GetNewCollection
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto 	(sFile,aRighe)
	For k = 0 To UBound(aRighe)
		Set clsComb = New clsCombinazione
		If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
			Coll.Add clsComb
		End If
	Next
End Sub
Sub Main
	Dim sFileCombinazioni
	Dim sDirDef
	Dim CollCombinazioni
	Dim clsComb
	Dim aNumeri
	quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI ANALIZZARE",,10))
	sDirDef = GetDirectoryAppData
	sFileCombinazioni = ScegliFile(sDirDef,".txt")
	Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
	' ciclo su tutte le combinazioni da analizzare
	For Each clsComb In CollCombinazioni
		kn = kn + 1
		Call clsComb.GetArrayNumeri(aNumeri)
		' ora abbiamo i numeri della combinazione corrente
		' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
		' qui mettero il codice che lavora con la combinazione corrente
		ImpostaArchivio10ELotto(2) '2 = archivio 5min - 1 = serale
		fin = EstrazioniArchivio
		Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),1,1,,1,3)
		Ini = fin - quante
		ReDim T(5)
		T(1) = " Casi "
		T(2) = " Data Estrazione "
		T(3) = " Estratti "
		T(4) = " Esito "
		T(5) = " Stringa Estrazione "
		Call InitTabella(T,2,,3,5)
		For es = fin To Ini Step - 1
			Call VerificaEsitoDL(aNumeri,es,1,1,esito,clp,estratti,id)
			'ImpostaGiocataDL 1,aNumeri,1,10
			'GiocaDL es
			ReDim V(5)
			V(1) = fin - es
			V(2) = DataEstrazioneDL(es)
			V(3) = estratti
			V(4) = esito
			V(5) = StringaEstrattiDL(es)
			Call AddRigaTabella(V,,,3)
			'If esito <> "" Then
			'Scrivi  vbTab & FormatSpace(fin-es,2) & vbTab &  DataEstrazioneDL(es) & vbTab & estratti	& vbTab & StringaEstrattiDL(es) & vbTab & esito
			'End If
			'If esito = "" Then
			'Scrivi String(95,".") & " nessun esito "
			'End If
		Next
		Call SetTableWidth("100%")
		Call CreaTabella()
	Next
	Scrivi
	Scrivi " ****** Script By Mike58 ****** Forum lottoCed ****** Richiesta Adispo2000 ****** ",1,1,2,4,3
End Sub

Buon Anno 2015 a Tutti
 
Io avendolo provato con il 10elotto Serale (non ho aggiornato il 5min) mi sembra che da le ultime 10 estrazioni.
Poi posso aver anche sbagliato qualche calcolo di concetto, se cosi può essere fammi capire dove.

P.s. oggi si incomincia a lavorare ed il tempo manca.

questo è il mio output

1 01.02.03.04.05.06.07.08.09


[TD="bgcolor: #ff0000, align: center"] Casi
[/TD]
[TD="bgcolor: #ff0000, align: center"] Data Estrazione [/TD]
[TD="bgcolor: #ff0000, align: center"] Estratti [/TD]
[TD="bgcolor: #ff0000, align: center"] Esito [/TD]
[TD="bgcolor: #ff0000, align: center"] Stringa Estrazione [/TD]

[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 30.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 07.12.14.16.17.21.28.29.36.41.47.48.49.56.57.58.59.61.72.87 [/TD]

[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 27.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.07.12.13.14.23.25.30.31.33.39.41.47.56.61.73.74.82.83.88 [/TD]

[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 24.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 05 06 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.05.06.12.14.15.28.29.33.38.41.43.44.54.64.66.69.70.76.84 [/TD]

[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 23.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 03 04 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.03.04.16.18.34.35.36.37.44.45.46.48.49.55.59.65.66.81.83 [/TD]

[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 20.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 04 05 08 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 04.05.08.10.11.15.21.25.39.49.51.55.58.59.66.73.74.79.84.85 [/TD]

[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 18.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 03 06 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Quaterna [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.03.06.07.10.19.20.28.29.32.45.49.56.63.74.79.80.82.87.89 [/TD]

[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 16.12.2014
[/TD]
[TD="bgcolor: #ffffff, align: center"] 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 07.10.22.23.24.27.29.34.35.37.38.43.48.54.59.60.77.81.88.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] 13.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.07.11.12.13.16.26.31.33.46.47.53.56.58.66.73.75.79.81.88 [/TD]

[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 04 05 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Quaterna [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.04.05.09.15.19.21.38.42.51.58.65.68.69.71.75.78.79.83.86 [/TD]

[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 09.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 06 07 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Quaterna [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.06.07.09.11.24.27.37.39.44.46.48.52.62.65.72.80.83.86.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 05 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.05.11.16.17.18.19.20.23.28.40.62.67.70.76.78.80.83.88.90 [/TD]
 
ciao mike..intanto la videata con tutto lo sviluppo con relative vincite non interessa....mi servirebbe solo il risultato tipo se gioco solo terzine lo script rivela le terzine mi dovra' indicare quanti tre faccio in un range e quanti 2 .....se gioco solo quartine lo script rivela le qurtine e miindichera' in un range x quante quat. e terni ed ambi...ecc..ecc....pero' mike' il gioco e il 10elotto5minuti.....ti avverto'adopero' exel 2013 64bit e spaziometria 1.4.9.9...ciao
 
Ciao Adispo, ti rispondo con ritardo appena rimessomi da influenza e trovo difficoltà anche ad esaudire la tua richiesta nello specifico.
In quanto allacciando un file esterno di 10 numeri la vincita minima e di sorte = 5.
Tuttavia ti posso conteggiare tutti i casi da 1 a 10 colonna x colonna e risultato cumulativo finale.

Prova cosi.

Codice: 
'Option Explicit
Class clsCombinazione
	Private aNumeri
	Function SetNumeriFromRiga(sRiga,sChrSep)
		Dim k,nUpper
		ReDim aV(0)
		Call SplitByChar(sRiga," ",aV)
		nUpper = 0
		ReDim aNumeri(nUpper)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				If isNumeroValidoLotto(CInt(aV(k))) Then
					nUpper = nUpper + 1
					ReDim Preserve aNumeri(nUpper)
					aNumeri(nUpper) = CInt(aV(k))
				End If
			End If
		Next
		If nUpper > 0 Then
			SetNumeriFromRiga = True
		Else
			SetNumeriFromRiga = False
		End If
	End Function
	Sub GetArrayNumeri(aNum)
		aNum = aNumeri
	End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
	Dim k
	Dim clsComb
	Set Coll = GetNewCollection
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto 	(sFile,aRighe)
	For k = 0 To UBound(aRighe)
		Set clsComb = New clsCombinazione
		If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
			Coll.Add clsComb
		End If
	Next
End Sub
Sub Main
	Dim sFileCombinazioni
	Dim sDirDef
	Dim CollCombinazioni
	Dim clsComb
	Dim aNumeri
	quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI ANALIZZARE",,10))
	sDirDef = GetDirectoryAppData
	sFileCombinazioni = ScegliFile(sDirDef,".txt")
	Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
	' ciclo su tutte le combinazioni da analizzare
	For Each clsComb In CollCombinazioni
		kn = kn + 1
		Call clsComb.GetArrayNumeri(aNumeri)
		' ora abbiamo i numeri della combinazione corrente
		' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
		' qui mettero il codice che lavora con la combinazione corrente
		ImpostaArchivio10ELotto(2) '2 = archivio 5min - 1 = serale
		fin = EstrazioniArchivio
		Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),1,1,,1,3)
		Ini = fin - quante
		ReDim T(5)
		T(1) = " Casi "
		T(2) = " Data Estrazione "
		T(3) = " Estratti "
		T(4) = " Esito "
		T(5) = " Stringa Estrazione "
		Call InitTabella(T,2,,3,5)
		For es = fin To Ini Step - 1
			Call VerificaEsitoDL(aNumeri,es,1,1,esito,clp,estratti,id)
			
			
			'End If
			
			'ImpostaGiocataDL 1,aNumeri,1,10
			'GiocaDL es
			ReDim V(5)
			V(1) = fin - es
			V(2) = DataEstrazioneDL(es)
			V(3) = estratti
			V(4) = esito
			V(5) = StringaEstrattiDL(es)
			
			Call AddRigaTabella(V,,,3)
			If V(4) = "Estratto" Then k1 = k1 + 1
			If V(4) = "Ambo" Then k2 = k2 + 1
			If V(4) = "Terno" Then k3 = k3 + 1
			If V(4) = "Quaterna" Then k4 = k4 + 1
			If V(4) = "Cinquina" Then k5 = k5 + 1
			If V(4) = "Sestina" Then k6 = k6 + 1
			If V(4) = "sette" Then k7 = k7 + 1
			If V(4) = "Otto" Then k8 = k8 + 1
			If V(4) = "Nove" Then k9 = k9 + 1
			If V(4) = "Dieci" Then k10 = k10 + 1
			'----------------------------------------
			
			If V(4) = "Estratto" Then kk1 = kk1 + 1
			If V(4) = "Ambo" Then kk2 = kk2 + 1
			If V(4) = "Terno" Then kk3 = kk3 + 1
			If V(4) = "Quaterna" Then kk4 = kk4 + 1
			If V(4) = "Cinquina" Then kk5 = kk5 + 1
			If V(4) = "Sestina" Then kk6 = kk6 + 1
			If V(4) = "sette" Then kk7 = kk7 + 1
			If V(4) = "Otto" Then kk8 = kk8 + 1
			If V(4) = "Nove" Then kk9 = kk9 + 1
			If V(4) = "Dieci" Then kk10 = kk10 + 1

			
			
			
			'If esito <> "" Then
			'Scrivi  vbTab & FormatSpace(fin-es,2) & vbTab &  DataEstrazioneDL(es) & vbTab & estratti	& vbTab & StringaEstrattiDL(es) & vbTab & esito
			'End If
			'If esito = "" Then
			'Scrivi String(95,".") & " nessun esito "
			'End If
		Next
		'If esito = "Estratto" Then k1 = k1 + 1
		Scrivi "Estratto......"  & k1
		Scrivi "Ambo.........."  & k2
		Scrivi "Terno........." & k3
		Scrivi "Quaterna......" & k4
		Scrivi "Cinquina......" & k5
		Scrivi "Sei..........."  & k6
		Scrivi "Sette........."  & k7
		Scrivi "Otto.........." & k8
		Scrivi "nove.........." & k9
		Scrivi "Dieci........." & k10

		
		Call SetTableWidth("100%")
		Call CreaTabella()
		k1 = 0
		k2 = 0
		k3 = 0
		k4 = 0
		k5 = 0
		k6 = 0
		k7 = 0
		k8 = 0
		k9 = 0
		k10 = 0
	Next
	Scrivi
	Scrivi " ****** Script By Mike58 ****** Forum lottoCed ****** Richiesta Adispo2000 ****** ",1,1,2,4,3
	Scrivi
	Scrivi "Riepilogo Finale cumulativo",1
	Scrivi "---------------------------"
	Scrivi "Estratto......"  & kk1
		Scrivi "Ambo.........."  & kk2
		Scrivi "Terno........." & kk3
		Scrivi "Quaterna......" & kk4
		Scrivi "Cinquina......" & kk5
		Scrivi "Sei..........."  & kk6
		Scrivi "Sette........."  & kk7
		Scrivi "Otto.........." & kk8
		Scrivi "nove.........." & kk9
		Scrivi "Dieci........." & kk10

End Sub
 
ImpostaArchivio10ELotto(2) '2 = archivio 5min - 1 = serale
fin = EstrazioniArchivioDL

Ciao Adispo, queste sono le righe di imposta archivio e fine archivio, mentre

ini = fin-quante ' è l'inizio archivio.

Purtroppo con l'archivio serale tutto funziona (prova) mentre con il 5min anch'io ho dei problemi ma forse perché anche aggiornato non funziona forse per problemi con il tronca archivio.

Proverò ancora a capire il perché e penso anche he altri non avendo l'archivio esterno non ci possono aiutare come verifica.

P.s. Luigi, Moro, Se ci leggete dateci una dritta di come far funzionare l'archivio 5min.

Ciao
 
Adesso le estrazioni 5min mi funzionano è questa è la videata ultima

1 01.02.03.04.05.06.07.08.09
Estratto......2
Ambo..........5
Terno.........3
Quaterna......
Cinquina......1
Sei...........
Sette.........
Otto..........
nove..........
Dieci.........


[TD="bgcolor: #ff0000, align: center"] Casi [/TD]
[TD="bgcolor: #ff0000, align: center"] Data Estrazione [/TD]
[TD="bgcolor: #ff0000, align: center"] Estratti [/TD]
[TD="bgcolor: #ff0000, align: center"] Esito [/TD]
[TD="bgcolor: #ff0000, align: center"] Stringa Estrazione [/TD]

[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00190] [149] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 06 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.07.10.19.22.26.28.29.32.36.41.43.48.65.66.73.74.75.88.89 [/TD]

[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00189] [148] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 05 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.05.11.20.23.28.30.34.40.42.44.46.53.54.56.59.62.64.79.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00188] [147] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 05 06 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.05.06.12.13.18.21.23.36.42.45.48.54.56.70.73.79.82.88.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00187] [146] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 02 03 04 06 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Cinquina [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.02.03.04.06.12.16.19.27.29.34.41.52.54.59.61.67.68.75.82 [/TD]

[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00186] [145] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 05 06 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 05.06.17.23.29.37.43.45.50.53.54.56.61.67.69.71.74.75.79.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00185] [144] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 07.16.23.25.28.29.36.38.40.45.51.52.53.56.60.78.79.81.82.86 [/TD]

[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00184] [143] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 04 07 08 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 04.07.08.10.12.14.15.21.23.28.30.40.42.48.51.52.60.62.79.87 [/TD]

[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00183] [142] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 08 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.08.09.15.42.45.46.47.48.52.62.67.71.77.79.80.82.83.88.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00182] [141] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.22.26.30.36.37.38.41.42.45.55.57.66.73.74.79.81.82.85.89 [/TD]

[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00181] [140] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.09.12.17.20.31.37.39.40.45.46.47.51.52.53.54.55.56.72.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00180] [139] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 05 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.05.16.20.35.37.40.42.46.49.52.56.58.66.67.68.72.76.82.85 [/TD]

Riepilogo Finale cumulativo
---------------------------
Estratto......118
Ambo..........131
Terno.........63
Quaterna......38
Cinquina......12
Sei...........2
Sette.........
Otto..........
nove..........
Dieci.........
 
ok mike funziona una meraviglia...il problema e solo quello non rileva l'archivio 10elotto5minuti....controlla solo dal 19082013...ok...aspetto
 
Devi riprovare ad aggiornare l'archivio e farlo riconoscere bene magari senza in tronca archivio
ti riposto lo script con una piccola correzione a me funziona.

Codice: 
'Option Explicit
Class clsCombinazione
    Private aNumeri
    Function SetNumeriFromRiga(sRiga,sChrSep)
        Dim k,nUpper
        ReDim aV(0)
        Call SplitByChar(sRiga," ",aV)
        nUpper = 0
        ReDim aNumeri(nUpper)
        For k = 0 To UBound(aV)
            If IsNumeric(aV(k)) Then
                If isNumeroValidoLotto(CInt(aV(k))) Then
                    nUpper = nUpper + 1
                    ReDim Preserve aNumeri(nUpper)
                    aNumeri(nUpper) = CInt(aV(k))
                End If
            End If
        Next
        If nUpper > 0 Then
            SetNumeriFromRiga = True
        Else
            SetNumeriFromRiga = False
        End If
    End Function
    Sub GetArrayNumeri(aNum)
        aNum = aNumeri
    End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
    Dim k
    Dim clsComb
    Set Coll = GetNewCollection
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto     (sFile,aRighe)
    For k = 0 To UBound(aRighe)
        Set clsComb = New clsCombinazione
        If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
            Coll.Add clsComb
        End If
    Next
End Sub
Sub Main
    Dim sFileCombinazioni
    Dim sDirDef
    Dim CollCombinazioni
    Dim clsComb
    Dim aNumeri
    quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI ANALIZZARE",,10))
    sDirDef = GetDirectoryAppData
    sFileCombinazioni = ScegliFile(sDirDef,".txt")
    Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
    ' ciclo su tutte le combinazioni da analizzare
    For Each clsComb In CollCombinazioni
        kn = kn + 1
        Call clsComb.GetArrayNumeri(aNumeri)
        ' ora abbiamo i numeri della combinazione corrente
        ' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
        ' qui mettero il codice che lavora con la combinazione corrente
        ImpostaArchivio10ELotto(2) '2 = archivio 5min - 1 = serale
        fin = EstrazioniArchivioDL
        Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),1,1,,1,3)
        Ini = fin - quante
        ReDim T(5)
        T(1) = " Casi "
        T(2) = " Data Estrazione "
        T(3) = " Estratti "
        T(4) = " Esito "
        T(5) = " Stringa Estrazione "
        Call InitTabella(T,2,,3,5)
        For es = fin To Ini Step - 1
            Call VerificaEsitoDL(aNumeri,es,1,1,esito,clp,estratti,id)
            
            
            'End If
            
            'ImpostaGiocataDL 1,aNumeri,1,10
            'GiocaDL es
            ReDim V(5)
            V(1) = fin - es
            V(2) = GetInfoEstrazioneDL(es)
            V(3) = estratti
            V(4) = esito
            V(5) = StringaEstrattiDL(es)
            
            Call AddRigaTabella(V,,,3)
            If V(4) = "Estratto" Then k1 = k1 + 1
            If V(4) = "Ambo" Then k2 = k2 + 1
            If V(4) = "Terno" Then k3 = k3 + 1
            If V(4) = "Quaterna" Then k4 = k4 + 1
            If V(4) = "Cinquina" Then k5 = k5 + 1
            If V(4) = "Sestina" Then k6 = k6 + 1
            If V(4) = "sette" Then k7 = k7 + 1
            If V(4) = "Otto" Then k8 = k8 + 1
            If V(4) = "Nove" Then k9 = k9 + 1
            If V(4) = "Dieci" Then k10 = k10 + 1
            '----------------------------------------
            
            If V(4) = "Estratto" Then kk1 = kk1 + 1
            If V(4) = "Ambo" Then kk2 = kk2 + 1
            If V(4) = "Terno" Then kk3 = kk3 + 1
            If V(4) = "Quaterna" Then kk4 = kk4 + 1
            If V(4) = "Cinquina" Then kk5 = kk5 + 1
            If V(4) = "Sestina" Then kk6 = kk6 + 1
            If V(4) = "sette" Then kk7 = kk7 + 1
            If V(4) = "Otto" Then kk8 = kk8 + 1
            If V(4) = "Nove" Then kk9 = kk9 + 1
            If V(4) = "Dieci" Then kk10 = kk10 + 1

            
            
            
            'If esito <> "" Then
            'Scrivi  vbTab & FormatSpace(fin-es,2) & vbTab &  DataEstrazioneDL(es) & vbTab & estratti    & vbTab & StringaEstrattiDL(es) & vbTab & esito
            'End If
            'If esito = "" Then
            'Scrivi String(95,".") & " nessun esito "
            'End If
        Next
        'If esito = "Estratto" Then k1 = k1 + 1
        Scrivi "Estratto......" & k1
        Scrivi "Ambo.........." & k2
        Scrivi "Terno........." & k3
        Scrivi "Quaterna......" & k4
        Scrivi "Cinquina......" & k5
        Scrivi "Sei..........." & k6
        Scrivi "Sette........." & k7
        Scrivi "Otto.........." & k8
        Scrivi "nove.........." & k9
        Scrivi "Dieci........." & k10

        
        Call SetTableWidth("100%")
        Call CreaTabella()
        k1 = 0
        k2 = 0
        k3 = 0
        k4 = 0
        k5 = 0
        k6 = 0
        k7 = 0
        k8 = 0
        k9 = 0
        k10 = 0
    Next
    Scrivi
    Scrivi " ****** Script By Mike58 ****** Forum lottoCed ****** Richiesta Adispo2000 ****** ",1,1,2,4,3
    Scrivi
    Scrivi "Riepilogo Finale cumulativo",1
    Scrivi "---------------------------"
    Scrivi "Estratto......" & kk1
        Scrivi "Ambo.........." & kk2
        Scrivi "Terno........." & kk3
        Scrivi "Quaterna......" & kk4
        Scrivi "Cinquina......" & kk5
        Scrivi "Sei..........." & kk6
        Scrivi "Sette........." & kk7
        Scrivi "Otto.........." & kk8
        Scrivi "nove.........." & kk9
        Scrivi "Dieci........." & kk10

End Sub


videata aggiornata

1 01.02.03.04.05.06.07.08.09
Estratto......6
Ambo..........
Terno.........2
Quaterna......2
Cinquina......
Sei...........
Sette.........
Otto..........
nove..........
Dieci.........


[TD="bgcolor: #ff0000, align: center"] Casi [/TD]
[TD="bgcolor: #ff0000, align: center"] Data Estrazione [/TD]
[TD="bgcolor: #ff0000, align: center"] Estratti [/TD]
[TD="bgcolor: #ff0000, align: center"] Esito [/TD]
[TD="bgcolor: #ff0000, align: center"] Stringa Estrazione [/TD]

[TD="bgcolor: #ffffff, align: center"] 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00225] [184] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 05 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 05.18.26.34.36.38.41.42.47.54.58.72.75.77.79.80.81.82.84.89 [/TD]

[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00224] [183] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.14.18.21.22.25.26.33.36.45.48.51.55.58.69.70.72.74.76.82 [/TD]

[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00223] [182] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 03 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 03.13.17.25.28.34.44.45.51.53.63.65.66.73.74.76.85.86.87.88 [/TD]

[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00222] [181] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 14.22.23.24.39.40.41.43.47.50.51.60.63.64.68.72.84.85.86.88 [/TD]

[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00221] [180] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 09.16.33.41.44.45.53.54.56.58.60.61.64.66.75.80.81.82.86.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00220] [179] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 05 06 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Quaterna [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.05.06.09.11.23.24.29.34.39.51.54.59.69.70.77.82.86.87.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00219] [178] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 06 09 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.06.09.12.14.21.22.23.25.26.29.37.50.52.56.60.61.66.73.87 [/TD]

[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00218] [177] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 06 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.10.13.15.16.21.23.28.31.32.38.46.51.52.63.74.75.77.82.84 [/TD]

[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00217] [176] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02 03 05 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Quaterna [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.03.05.07.13.28.31.44.48.56.58.59.61.66.68.69.76.85.86.88 [/TD]

[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00216] [175] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 08 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 08.20.23.25.26.29.37.51.52.54.56.61.62.68.70.73.80.82.84.90 [/TD]

[TD="bgcolor: #ffffff, align: center"] 10 [/TD]
[TD="bgcolor: #ffffff, align: center"] [00215] [174] 11.01.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"] 01 05 07 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 01.05.07.11.18.20.21.28.30.33.39.40.46.48.53.58.69.70.78.83 [/TD]
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto