Novità

Aggiornamento Archivio Lotto di Spaziometria / Silop

joe

Advanced Member >PLATINUM PLUS<
Ho corretto alcuni bug ed implementato alcune nuove funzioni.

In particolare questa nuova versione permette di importare tutto l'archivio,

anche quando Spaziometria ha "perso" o è stato cancellato il suo.

Così pure permette di aggiungere molte estrazioni separando e numerando correttamente gli indici progressivi e annuali.

Ricordo che la versione 1.6.54 di Spaziometria è comunque autonoma nell'aggiornare il suo archivio Lotto.

Dunque questo script deve essere considerato un compendio ed una utility qualora ci fossero problemi,

con i siti o con le routine di aggiornamento del programma stesso o quando le vecchie versioni del programma

o del sistema operativo falliscono nel tentativo di aggiornamento.

Codice:
Option Explicit
Sub Main
   'Agg_Lotto V.4.2 By Joe *** Archivio Silop ***  - 03/08/2025 -
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   Dim Vecchio,Nuovo
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Agg_Lotto V.4.2 By Joe *** Archivio Silop ***"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Vecchio = Right(sDataLastEstr,4)
         Ia = IndiceAnnuale(nEstrTot)
         If nEstrTot = 0 Then CfrData = "01/01/1871" : b = True : Ia = 0
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 0 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               Nuovo = Right(sDataEstr,4)
               If b Then
                  If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                  If sDataEstr <> sDataLastEstr Then
                     Ia = Ia + 1
                     nNumEstr = Ia
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> sDataEstr Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = sDataEstr
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Agg_Lotto V.4.2 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioneFin) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
      Call Scrivi("")
      Call Scrivi(" - Aggiunte " & nSalvate & " Estrazioni -",1)
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
End Sub

:) Joe

P.S. Rendo esplicito il GRAZIE a SILOP che mantiene aggiornato l'archivio necessario allo script ed a tutti

coloro ne fruiscono gratuitamente.
 
Ultima modifica:
Ho corretto alcuni bug ed implementato alcune nuove funzioni.

In particolare questa nuova versione permette di importare tutto l'archivio,

anche quando Spaziometria ha "perso" o è stato cancellato il suo.

Così pure permette di aggiungere molte estrazioni separando e numerando correttamente gli indici progressivi e annuali.

Ricordo che la versione 1.6.54 di Spaziometria è comunque autonoma nell'aggiornare il suo archivio Lotto.

Dunque questo script deve essere considerato un compendio ed una utility qualora ci fossero problemi,

con i siti o con le routine di aggiornamento del programma stesso o quando le vecchie versioni del programma

o del sistema operativo falliscono nel tentativo di aggiornamento.

Codice:
Option Explicit
Sub Main
   'Agg_Silop V.4.1 del 01/08/2025
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   Dim Vecchio,Nuovo
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Agg_Lotto V.4.1 By Joe *** Archivio Silop ***"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Vecchio = Right(sDataLastEstr,4)
         Ia = IndiceAnnuale(nEstrTot)
         If nEstrTot = 0 Then CfrData = "01/01/1871" : b = True : Ia = 0
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 0 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               Nuovo = Right(sDataEstr,4)
               If b Then
                  If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                  If sDataEstr <> sDataLastEstr Then
                     Ia = Ia + 1
                     nNumEstr = Ia
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> sDataEstr Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = sDataEstr
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato al " & DataEstrazione(EstrazioneFin,,,"/") & " - Aggiunte " & nSalvate & " Estrazioni -")
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
End Sub

:) Joe

P.S. Rendo esplicito il GRAZIE a SILOP che mantiene aggiornato l'archivio necessario allo script ed a tutti

coloro ne fruiscono gratuitamente.
Grazie di cuore, a SILOP e a Joe 👏 👏(y)
 
Grazie di cuore, a SILOP e a Joe 👏 👏(y)
Ciao bubù non capisco xkè non riesco ad aggiornare ho inserito lo script e sono ferma al 01-08-25 ma sono saltate molte estrazioni guarda ad esempio fra una estrazione e l'altra sono saltate 3/4/ estrazioni...... come devo fare x aggiornare ho scaricato il programma 1.6.54..grazie se mi aiutate sono veramente sconcertata.
 

Allegati

  • Screenshot 2025-08-03 173756.png
    Screenshot 2025-08-03 173756.png
    296,2 KB · Visite: 7
Ciao Sandrina.

Non posso darti una risposta precisa perché non conosco la situazione del tuo archivio.

Come aggiornavi, prima di aver usato questo script, più o meno quante estrazioni ha aggiunto ?

Se fornisci queste informazioni ed inserisci sia l'indice annuale, che il totale delle estrazioni in archivio,

con questi dati in più si può provare a correggere gli errori che hai già dimostrato esserci con l'immagine che hai inserito.

:)
 
Ciao bubù non capisco xkè non riesco ad aggiornare ho inserito lo script e sono ferma al 01-08-25 ma sono saltate molte estrazioni guarda ad esempio fra una estrazione e l'altra sono saltate 3/4/ estrazioni...... come devo fare x aggiornare ho scaricato il programma 1.6.54..grazie se mi aiutate sono veramente sconcertata.
===============================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @sandrina50 ,
======================
come giustamente ha scritto Joe
dovresti scrivere più informazioni sui problemi che riscontri.
======================
Per Joe vedi la posta.
======================
Buona domenica a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Buona Domenica a tutte/i.

Ho aggiunto alcune semplici modifiche allo script, che c'è al primo messaggio.

Sono utili per attuare e fornire un ragguaglio veloce, sullo stato dell'aggiornamento, sulla versione dello script,

e soprattutto dell'avanzamento del livello degli indici di Aggiornamento dell'Archivio.

In una parola e con semplicità, lo script adesso fornisce nel rendiconto, la più parte di quanto richiesto a Sandrina:

Versione dello Script / Archivio utilizzato / Estrazioni in Archivio / Estrazioni Aggiunte / Data di Aggiornamento / Indice Annuale.

Come sempre consiglio a tutti di utilizzare questa nuova ed ULTIMA versione dello script. (Riprendendolo aggiornato)

Perché, con le varie nuove correzioni, si è cercato di migliorarlo nei risultati e nell'efficienza.

Ringrazio tutte/i senza escludere ... nessuno.

:)
 
Ultima modifica:
Ciao bubù non capisco xkè non riesco ad aggiornare ho inserito lo script e sono ferma al 01-08-25 ma sono saltate molte estrazioni guarda ad esempio fra una estrazione e l'altra sono saltate 3/4/ estrazioni...... come devo fare x aggiornare ho scaricato il programma 1.6.54..grazie se mi aiutate sono veramente sconcertata.
Ciao sandrina50, di sicuro il BRAVISSIMO joe sa cosa consigliarti.
io ho usato da un bel pò uno script di joe che ha postato tempo fa, e non ho mai avuto problemi. Adesso ho aggiornato con il suo nuovo Script è continuo a non avere problemi.
Oramai so che joe è il numero 1 senza togliere nulla a tutti gli altri Bravissimi script presenti e sempre gentilissimi e disponibili per tutti.

Adesso se posso ringrazio tutti e Auguro un buon proseguimento a tutti :coffee:👋
 
Ho corretto alcuni bug ed implementato alcune nuove funzioni.

In particolare questa nuova versione permette di importare tutto l'archivio,

anche quando Spaziometria ha "perso" o è stato cancellato il suo.

Così pure permette di aggiungere molte estrazioni separando e numerando correttamente gli indici progressivi e annuali.

Ricordo che la versione 1.6.54 di Spaziometria è comunque autonoma nell'aggiornare il suo archivio Lotto.

Dunque questo script deve essere considerato un compendio ed una utility qualora ci fossero problemi,

con i siti o con le routine di aggiornamento del programma stesso o quando le vecchie versioni del programma

o del sistema operativo falliscono nel tentativo di aggiornamento.

Codice:
Option Explicit
Sub Main
   'Agg_Lotto V.4.2 By Joe *** Archivio Silop ***  - 03/08/2025 -
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   Dim Vecchio,Nuovo
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Agg_Lotto V.4.2 By Joe *** Archivio Silop ***"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Vecchio = Right(sDataLastEstr,4)
         Ia = IndiceAnnuale(nEstrTot)
         If nEstrTot = 0 Then CfrData = "01/01/1871" : b = True : Ia = 0
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 0 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               Nuovo = Right(sDataEstr,4)
               If b Then
                  If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                  If sDataEstr <> sDataLastEstr Then
                     Ia = Ia + 1
                     nNumEstr = Ia
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> sDataEstr Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = sDataEstr
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Agg_Lotto V.4.2 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioneFin) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
      Call Scrivi("")
      Call Scrivi(" - Aggiunte " & nSalvate & " Estrazioni -",1)
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
End Sub

:) Joe

P.S. Rendo esplicito il GRAZIE a SILOP che mantiene aggiornato l'archivio necessario allo script ed a tutti

coloro ne fruiscono gratuitamente.
=====================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @joe ,
======================
bravo, hai fatto bene ad aggiornare lo script di queste nuove migliorie.
Anch'io ho scaricato la vers. 4.2 e lo sto utilizzando per aggiornare il mio archivio del lotto (11ruote)
che ho nel bellissimo programma FREE Spaziometria by LuigiB.
Grazie Joe
Ringrazio per "i mi piace": bubù
======================
Buon lunedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ciao Sandrina.

Non posso darti una risposta precisa perché non conosco la situazione del tuo archivio.

Come aggiornavi, prima di aver usato questo script, più o meno quante estrazioni ha aggiunto ?

Se fornisci queste informazioni ed inserisci sia l'indice annuale, che il totale delle estrazioni in archivio,

con questi dati in più si può provare a correggere gli errori che hai già dimostrato esserci con l'immagine che hai inserito.

:)
Grazie Joe che mi hai risposto . A breve farò delle immagini e poi te le invio così capirai qual'è il problema...a presto ciao
 
Ho corretto alcuni bug ed implementato alcune nuove funzioni.

In particolare questa nuova versione permette di importare tutto l'archivio,

anche quando Spaziometria ha "perso" o è stato cancellato il suo.

Così pure permette di aggiungere molte estrazioni separando e numerando correttamente gli indici progressivi e annuali.

Ricordo che la versione 1.6.54 di Spaziometria è comunque autonoma nell'aggiornare il suo archivio Lotto.

Dunque questo script deve essere considerato un compendio ed una utility qualora ci fossero problemi,

con i siti o con le routine di aggiornamento del programma stesso o quando le vecchie versioni del programma

o del sistema operativo falliscono nel tentativo di aggiornamento.

Codice:
Option Explicit
Sub Main
   'Agg_Lotto V.4.2 By Joe *** Archivio Silop ***  - 03/08/2025 -
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   Dim Vecchio,Nuovo
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Agg_Lotto V.4.2 By Joe *** Archivio Silop ***"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Vecchio = Right(sDataLastEstr,4)
         Ia = IndiceAnnuale(nEstrTot)
         If nEstrTot = 0 Then CfrData = "01/01/1871" : b = True : Ia = 0
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 0 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               Nuovo = Right(sDataEstr,4)
               If b Then
                  If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                  If sDataEstr <> sDataLastEstr Then
                     Ia = Ia + 1
                     nNumEstr = Ia
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> sDataEstr Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = sDataEstr
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Agg_Lotto V.4.2 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioneFin) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
      Call Scrivi("")
      Call Scrivi(" - Aggiunte " & nSalvate & " Estrazioni -",1)
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
End Sub

:) Joe

P.S. Rendo esplicito il GRAZIE a SILOP che mantiene aggiornato l'archivio necessario allo script ed a tutti

coloro ne fruiscono gratuitamente.
Ciao Joe, come Ti avevo detto ecco qui con i dati richiesti: quando carico Spaziometria è questa le schermata dell'archivio che mi si presenta se poi chiedo l'archivio reale allora è la seconda postata ...che però non riesco ad aggiornare neanche munualmente. Come vedi il 1° archivio è aggiornato fino il 1921 il 2° invece fino 1/08/2025 , però nel 1° archivio mancano anche ruote forse allora era cosi? che mi consigli di fare grazie Joe ciao
 

Allegati

  • Screenshot 2025-08-07 152338.png
    Screenshot 2025-08-07 152338.png
    419,1 KB · Visite: 2
  • Screenshot 2025-08-07 152514.png
    Screenshot 2025-08-07 152514.png
    371,8 KB · Visite: 2

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 05 agosto 2025
    Bari
    57
    24
    52
    53
    56
    Cagliari
    43
    12
    64
    58
    22
    Firenze
    55
    05
    51
    58
    87
    Genova
    19
    80
    76
    75
    71
    Milano
    52
    44
    86
    33
    02
    Napoli
    28
    67
    29
    51
    53
    Palermo
    73
    90
    46
    51
    80
    Roma
    42
    30
    62
    02
    12
    Torino
    49
    61
    56
    11
    10
    Venezia
    66
    79
    83
    12
    07
    Nazionale
    47
    16
    32
    66
    64
    Estrazione Simbolotto
    Nazionale
    14
    05
    44
    38
    29

Ultimi Messaggi

Indietro
Alto