Aggiornamento Archivio Lotto di Spaziometria / Silop

Lottopython · 9 Novembre 2025

buona domenica ...speriamo dai

.

micro__ · 9 Novembre 2025

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!

joe · 9 Novembre 2025

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.

cptmrz · Domenica alle 21:40

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.

cptmrz · Domenica alle 21:43

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.

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

cptmrz · Ieri alle 07:05

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.

ACC. SUPERENALOTTO FERMO AL 09/08/2025.

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

joe · Ieri alle 10:36

Lo script è un testo che contiene delle linee di comando eseguibili dal computer.

Invece di essere salvati come testo.txt sono memorizzati come Script.ls

Quando il file viene salvato come Script.ls cambia icona ed assume quella abbinata al programma Spaziometria.

Dopo di che Il sistema operativo riconosce che il File.ls è uno script da eseguirsi e per questo avvia Spaziometria.

In sintesi un doppio click del mouse su un File.ls lo manda in esecuzione dopo aver avviato Spaziometria.

Se invece Spaziometria è già in eseguzione, lo script è già nell'editor, lo si avvia/esegue con un apposito comando.

Il come fare è semplice e lo si può imparare seguendo una videoguida come quella rintracciabile ne Web,

cercandola con tre parole chiave come youtube/script/spaziometria.

vincenzo4221 · Ieri alle 19:52

Ciao A tutti , ..ho ripreso da poco a divertirmi,..avevo questo plugin " Agg_Arc_L8" per aggiornare il programma " L8" , ma adesso si ferma al 06 novembre, forse è cambiato il link di aggiornamento (?), si puo avere cortesemente la versione aggiornata?..grazie e bentrovati.

joe · Ieri alle 20:01

Ciao Vincenzo,

No non ho più la possibilità di compilare un PlugIn da quando qualche anno fa ho cambiato il PC.

Tra i messaggi recenti trovi lo script che attualmente funziona

cptmrz · Oggi alle 15:26

joe ha scritto:
Prova semplicemente a chiudere e riavviare spaziometria

Buon pomeriggio, ho copiato lo script, ma ogni apro il programma devo lanciarlo con la freccetta altrimenti l'archvio è ancora quello incompleto e sbagliato,,E' normale questo? Non sono un programmatore e non so se occorre intervenire ancora sul programma e dove, Grazie, buon pomeriggio

cptmrz · Oggi alle 15:45

joe ha scritto:
Chi ha la versione 1.6.54 di Spaziometria l'archivio si aggiorna

Scegliendo: Base Dati / Aggiornamento Lotto / da web.

La versione più recente dello script qui presente al primo messaggio, come hai fatto,

è in grado di aggiungere tutte le Estrazioni MANCANTI a completare l'Archivio.

bìBuon pomeriggio, se uso aggiornamento web come scrivi di fare perchè mi riporta ad un archivio confuso, sbaglilato e incompleto? Grazie per il vostro programma e tutto il lavoro di supporto. Purtroppo

cptmrz · Oggi alle 15:45

cptmrz ha scritto:
bìBuon pomeriggio, se uso aggiornamento web come scrivi di fare perchè mi riporta ad un archivio confuso, sbaglilato e incompleto? Grazie per il vostro programma e tutto il lavoro di supporto.

joe · Oggi alle 20:13

cptmrz ha scritto:
bìBuon pomeriggio, se uso aggiornamento web come scrivi di fare perchè mi riporta ad un archivio confuso, sbaglilato e incompleto? Grazie per il vostro programma e tutto il lavoro di supporto. Purtroppo

Le cose cambiano nel tempo.

Il tempo cambia molte cose nella vita ... scriverebbe, più modernamente qualche poeta.

LottoPython ha da poco inserito un programma, che quando l'ho provato, pochi giorni fa, funzionave bene.

So che sta lavorando ad una nuova versione.

Poi, io stesso, ho proposto uno script che funzionava bene, utilizzando l'archivio sul sito di Lottologia.

Una risposta precisa ed una soluzione non ce l'ho, perchè molto dipende da come hai configurato "i percorsi"

con i quali raggiungere le fonti dei dati necessari.

Dunque non posso neppure controllare se ci sono problemi con l'archivio remoto al quale accedi.

genios · Oggi alle 21:04

A voi funziona l' aggiornamento ?

C:\Users\HP\AppData\Roaming\SpazioMetria\BaseDati.dat

Agg_Lotto V.4.3 By Joe *** Archivio Silop ***

Estrazioni totali in Archivio 10748

Aggiornato all' Estrazione 177 del 06/11/2025

- Aggiunte 0 Estrazioni -

Sito Archivio https://www.silop.it

Cerca

Cerca

Aggiornamento Archivio Lotto di Spaziometria / Silop

Lottopython

Advanced Member

micro__

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

cptmrz

Junior Member

cptmrz

Junior Member

cptmrz

Junior Member

joe

Advanced Member >PLATINUM PLUS<

vincenzo4221

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

cptmrz

Junior Member

cptmrz

Junior Member

cptmrz

Junior Member

joe

Advanced Member >PLATINUM PLUS<

genios

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi