Aggiornamento Archivio Lotto di Spaziometria / Silop

[Lottopython]

buona domenica ...speriamo dai .

 

[micro__]

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]

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]

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.

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]

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.

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]

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]

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]

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]

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