Novità

Aggiornamento Archivio Lotto di Spaziometria / Silop

  • Creatore Discussione Creatore Discussione joe
  • Data di inizio Data di inizio
Buongiorno, anche io sto aggiornando in modalità manuale. a questo proposito mi sembra di capire che il copia incolla lo fai da questo sito?
Mantiene la formattazione per SPM?
Grazie!
 
Buona domenica a tutte/i.

Silop è molto generoso e rende disponibili le estrzioni per aggiornare Spaziometria,

con professionalità, tempestività, precisione, costanza ...

Ma è chiaro a tutti che, ognuno di noi, non può essere sempre disponibile a tutto.

Neppure fosse anche un lavoro ben retribuito.

Ci sono molte alternative per aggiornare quando in un sito (come quello di Silop in questo caso),

non sono disponibili i dati per poterlo fare e lo script semplicemente non aggiorna.

Giustamente lo script "non funziona" cioè non fa nulla e non aggiunge numeri a caso rovinando l'archivio.

Si può procedere manualmente con il copiare ed incollare l'ultima estrazione.

Oppure usare uno script orientato a prelevare i valori necessari da altri siti.

Ne ho presentati già diversi altri.

LottoPython, inoltre, recentemente, ha anche reso disponibile un programma

per scaricare una copia aggiornata dell'archivio.

Buona Domenica a tutte/i.

:)
 
Ultima modifica:
joe ha scritto:
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.3 By Joe *** Archivio Silop ***  - 07/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.3 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.3 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioniArchivio) & " 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.
Clicca per espandere...
 
joe ha scritto:
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.3 By Joe *** Archivio Silop ***  - 07/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.3 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.3 By Joe *** Archivio Silop ***",1)
      Call Scrivi("")
      Call Scrivi("Estrazioni totali in Archivio " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Aggiornato all' Estrazione " & IndiceAnnuale(EstrazioniArchivio) & " 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.
Clicca per espandere...
Buonasera, scusate l ignoranza ma dopo aver inserito lo script che funziona come lo salvo perché al prossimo avvio del programma l archivio sia aggiornato e ordinato correttamente? Grazie, buona serata
 
Alien. ha scritto:
Ciao anche a me fermo l'archivio al 09/09/2025 scaricato lo script del "bravissimo" joe e con l'aiuto di bravissimo Silop ho fatto il risotto acc.....volevo dire tutto risolto fantastico.



dipinti-classici-traformati-gif-animate-kiszkiloszki-08.gif



ACC. SUPERENALOTTO FERMO AL 09/08/2025.
Clicca per espandere...
buongiorno ,io sono completamente ignorante ma come fare per inserire lo script di Silop, salvarlo e renderlo eseguibile in automatico al prossimo avio del programma? Grazie e scusa il disturbo.Buona giornata
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 novembre 2025
    Bari
    17
    72
    57
    24
    53
    Cagliari
    27
    83
    66
    76
    34
    Firenze
    61
    76
    59
    90
    34
    Genova
    26
    53
    62
    48
    38
    Milano
    25
    47
    35
    18
    72
    Napoli
    77
    83
    54
    04
    28
    Palermo
    60
    31
    01
    44
    61
    Roma
    17
    10
    45
    85
    03
    Torino
    36
    74
    44
    37
    60
    Venezia
    89
    67
    30
    34
    38
    Nazionale
    80
    07
    38
    84
    14
    Estrazione Simbolotto
    Torino
    35
    05
    10
    13
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto