Aggiornamento Archivio Lotto di Spaziometria / Silop

[sogno]

Prova ad aggiornare con questo script:

Sub Main
   'Agg_Lottologia Script By Joe V.4.0 del 10/11/2025
   Dim sDirTemp
   Dim sLink
   Dim nAnnoPart,nAnnoCorr,sNuovaData
   Dim k
   Dim id
   Dim sDataEstr,sCData,nSalvate,sFileBd
   Dim sV,r,e,x
   Dim b,nEstrTot,sDataLastEstr,iA,z
   nAnnoPart = Year(Now) - 1
   nAnnoCorr = Year(Now)
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sDirTemp = GetDirectoryTemp & "lottologia.txt"
   Call EliminaFile(sDirTemp)
   For sNuovaData = nAnnoPart To nAnnoCorr
      If ScriptInterrotto Then Exit For
      Call Messaggio(sNuovaData)
      Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
      sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
      If DownloadFromWeb(sLink,sDirTemp) Then
         nEstrTot = EstrazioniArchivio
         If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         z = Right(sDataLastEstr,4)
         id = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
            If EliminaFile(sDirTemp) Then
               If Trim(aRighe(k)) <> "" Then
                  For k = UBound(aRighe) - 3 To 2 Step - 1
                     aRighe(k) = Replace(aRighe(k),vbTab,"")
                     aRighe(k) = Replace(aRighe(k),"-","")
                     sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
                     If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
                     sV = Right(aRighe(k),110)
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For x = 1 To 110 Step 2
                        e = e + 1
                        aEstr(r,e) = Mid(sV,x,2)
                        If e = 5 Then r = r + 1 : e = 0
                     Next
                     If b = True Then
                        If sCData <> sDataEstr Then
                           id = id + 1
                           If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
                              sCData = sDataEstr
                              nSalvate = nSalvate + 1
                              Call Messaggio(nSalvate)
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                           ColoreTesto 0
                        End If
                     End If
                     If sDataEstr = sDataLastEstr Then b = True
                     '
                  Next
               End If
            End If
         End If
      End If
      If ScriptInterrotto Then Exit For
   Next
   If nSalvate > 0 Then
      AllineaArchivi
      Call Scrivi()
      Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
      Call Scrivi()
      Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
      Call Scrivi()
      Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
      Call Scrivi()
   Else
      Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
   End If
End Sub

OK grazie con questo script sono riuscito ad aggiornare greaie

 

[DOMENICO46]

Buongiorno a tutti, seguo ed uso da tempo e con molto interesse il programma SpazioMetria 1.6.54. Come penso tanti altri eseguono l’aggiornamento dell’archivio estrazioni con vari script messi a disposizione dai vari eccellenti scripter che hanno creato ed evoluto questo programma e colgo quindi l’occasione per ringraziarli e complimentarmi con loro.

Eseguo di solito l’aggiornamento dell’archivio del lotto con lo script di Joe e non mi spiego perché manca l’estrazione del 18 Novembre 2025, (estrazione verificata sul sito delle Lotteria Nazionale). Mi sono sorti dei dubbi che tutto ciò dipende da altre cause che non conosco. Col fine di contribuire ad un eventuale errore gradirei gentilmente conoscere lo stato delle cose.

Vi ringrazio anticipatamente

Domenico46

 

[joe]

Ciao Domenico,

Nel tempo, sono stati fatti molti script, che prelevano le estrazioni da siti diversi.

Senza sapere quale script e da quale sito preleva le estrazioni non è possibile

sapere dove ci ci può esse qualcosa da correggere.

Se inserisci una copia dello script che stai usando,

posso controllare quale può essere il problema.

 

[DOMENICO46]

buongiorno Joe grazie per avermi risposto, allego lo script richiesto :

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

Domenico46

 

[joe]

Ciao Domenico,

probabilmente in una operazione di aggiornamento quella estrazione non si è aggiunta all'archhivio.

Ti consiglio di troncare il tuo archivio cancellando tutte le estrazioni da inizio novembre 2025 ad oggi.

( Base Dati / Aggiornamento Lotto / Tronca archivio / ecc. ecc. )

Poi quello stesso script può sistemarti quel "buco".

PERO' devi considerare che l'archivio utilizzato dallo script ha dati solo fino al 29/11/2025.

Dunque dopo aver troncato l'archivio come appena detto, ti conviene utilizzare lo script,

che c'è qui (ora a pagina 2) nella discussione BaseDati.dat al messaggio #8.

E' uno script analogo ma utilizza un archivio generato da LottoPython

ed attualmente ha estrazioni fino al 17/03/2026.

 

[DOMENICO46]

Ciao Joe ho eseguito attentamente le tue istruzioni ed ho aggiornato correttamente l'archivio lotto di SPTM con lo script di LottoPihton, ti ringrazio per la tua grande disponibilità e competenza in merito, un ultima domanda forse banale, l'aggiornamento del lotto da ora in avanti lo posso fare con lo stesso script ?

Di nuovo grazie, saluti.
Domenuco46

 

[joe]

Ciao Joe ho eseguito attentamente le tue istruzioni ed ho aggiornato correttamente l'archivio lotto di SPTM con lo script di LottoPihton, ti ringrazio per la tua grande disponibilità e competenza in merito, un ultima domanda forse banale, l'aggiornamento del lotto da ora in avanti lo posso fare con lo stesso script ?

Di nuovo grazie, saluti.
Domenuco46

Si, attualmente LottoPython sta rendendo disponibili una copia delle estrazioni utili e necessarie

per aggiornare Spaziometria ed altri programmi.

Lo script automatizza tutte le operazioni necessarie per aggiungere all'archivio locale le etrazioni mancanti.

 

[DOMENICO46]

Grazie Joe.
Domenico46