Aggiornamento archivio lotto e superenalotto per SPAZIOMETRIA da spazio/web silop

[genios]

primo percorso forse trovato .

secondo percorso ho questo : C:\Users\HP\AppData\Roaming\spaziometria\Script . Ma all' interno della cartella script non ho il file AutoRun . Lottopython non potresti modificare il tuo programma in modo che oltre ad usare l' opzione sfoglia si possa anche incollare nelle finestre i percorsi ?

Maledetta AppData Cartella nascosta .

 

[Lottopython]

Maledetta AppData Cartella nascosta .

quindi ora ci porti tutti al ristorante per festeggiare immagino....

 

[Cinzia27]

Ciao, Silop.

Ho problemi con l'aggiornamento del Superenalotto.

Provo ad aggiornare ed ecco cosa mi compare



Ho quindi l'archivio fermo al 22/12/2025


Puoi fare qualcosa?
Ti ringrazio per la tua consueta gentilezza.

 

[genios]

quindi ora ci porti tutti al ristorante per festeggiare immagino....

Quando vogliamo organizzare io sono a Roma .

 

[silop2005]

Ciao, Silop.

Ho problemi con l'aggiornamento del Superenalotto.

Provo ad aggiornare ed ecco cosa mi compare

Vedi l'allegato 2311109

Ho quindi l'archivio fermo al 22/12/2025
Vedi l'allegato 2311110

Puoi fare qualcosa?
Ti ringrazio per la tua consueta gentilezza.

=========================================

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 @Cinzia27 e TUTTI,

======================

vedi nell'immagine il mio link

dove puoi scaricare anche l'archivio intero del Superenalotto

aggiornato al 13/01/2026

Vedi immagine

==================== ==================================

======================

Buon aggiornamento

Poi se usi la versione 1.6.54 di SPMT puoi aggiornare in automatico

oppure se utilizzi il programma by @Lottopython SpaziometriaForever puoi aggiornarlo senza problemi.

======================

Ringrazio per "i mi piace": bubù

======================

Buon giovedì a tutto il forum.

======================

A presto

Silop

 

[Cinzia27]

Grazie mille, Silop.
Ho scaricato l'archivio del Superenalotto come da te indicato. Ora è aggiornato al 13/01.
Ho provato poi ad aggiornarlo a stasera come di consueto ma è fermo.
Forse devo aspettare ?

 

[silop2005]

Grazie mille, Silop.
Ho scaricato l'archivio del Superenalotto come da te indicato. Ora è aggiornato al 13/01.
Ho provato poi ad aggiornarlo a stasera come di consueto ma è fermo.
Forse devo aspettare ?

Vedi l'allegato 2311123

========================================================

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 @Cinzia27 ,

======================

si, ultimamente l'aggiornamento non è possibile farlo subito

bisogna aspettare un po' oppure farlo il giorno dopo, come faccio io.

======================

Buon venerdì a tutto il forum.

======================

A presto

Silop

 

[bubù]

Grazie mille, Silop.
Ho scaricato l'archivio del Superenalotto come da te indicato. Ora è aggiornato al 13/01.
Ho provato poi ad aggiornarlo a stasera come di consueto ma è fermo.
Forse devo aspettare ?

Vedi l'allegato 2311123

scusate se mi intrometto, Cinzia puoi usare lo script fatto da Lottopython

Option Explicit

'Aggiornamento Archivio DAT SuperEnalotto da GitHub o Codeberg (CSV: ID,data,n1-n6,jolly,superstar)
Sub Main
Dim sPercorsoLocale,sFileLocale
sPercorsoLocale = GetDirectoryTemp
CreaDirectory(sPercorsoLocale)
sFileLocale = sPercorsoLocale & "superenalotto_completo.csv"
Call EliminaFile(sFileLocale)

Dim sFileBaseDati : sFileBaseDati = GetDirectoryAppData & "BaseDatiSuperEna.Dat"

Dim eDate,eClock,sPercorsosFileBaseDatiBackup,sFileBaseDatiBackup
Call DateTimeTest(eDate) : Call ClockTimeTest(eClock)
sPercorsosFileBaseDatiBackup = GetDirectoryAppData & "Archivio SuperEnalotto\Backup\dat\"
CreaDirectory(sPercorsosFileBaseDatiBackup)
sFileBaseDatiBackup = sPercorsosFileBaseDatiBackup & "BaseDatiSuperEna.Dat.backup_Del_" & eDate & "_ore_" & eClock & ".bak"
If FileEsistente(sFileBaseDati) Then
Call CopiaFile(sFileBaseDati,sFileBaseDatiBackup)
End If

Dim sUrlCompleto,sScelta
sScelta = InputBox(_
"Scegli la fonte per il download delle estrazioni:" & vbCrLf & vbCrLf & _
"1 = GitHub (predefinito)" & vbCrLf & _
"2 = Codeberg (alternativo)" & vbCrLf & vbCrLf & _
"Inserisci 1 o 2:",_
"Scelta Fonte Download","1")

Select Case Trim(sScelta)
Case "2"
sUrlCompleto = "https://codeberg.org/Lottopython/SpaziometriaSuperenalotto/raw/branch/main/EstrazioniSuperenalotto"
Call Messaggio("Scelto download da Codeberg.")
Case Else
sUrlCompleto = "https://raw.githubusercontent.com/L...PAZIOMETRIA/refs/heads/main/superenalotto.txt"
Call Messaggio("Scelto download da GitHub (predefinito).")
End Select

Dim StrMessInfo
StrMessInfo = MsgBox("Ricreare l'intero archivio dal 1997?" & vbCrLf & _
"Verranno eliminate tutte le estrazioni esistenti.",vbQuestion + vbYesNo,"Conferma Ricreazione")
If StrMessInfo = vbNo Then
MsgBox "Operazione annullata dall'utente.",vbInformation
Exit Sub
End If
Call EliminaFile(sFileBaseDati)

If Not DownloadFromWeb(sUrlCompleto,sFileLocale) Then
MsgBox "Errore nel download del file da:" & vbCrLf & sUrlCompleto,vbCritical,"Errore Download"
Exit Sub
End If

If Not FileEsistente(sFileLocale) Then
MsgBox "File temporaneo non trovato dopo il download.",vbCritical
Exit Sub
End If

Dim aRighe,k,sNumEstrTrovate
sNumEstrTrovate = 0

If LeggiRigheFileDiTesto(sFileLocale,aRighe) Then
For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For

Dim sRiga : sRiga = Trim(aRighe(k))
If sRiga <> "" Then
Dim aCampi : ReDim aCampi(0)
Call SplitByChar(sRiga,",",aCampi)

If UBound(aCampi) = 9 Then
Dim sID,sData
sID = Trim(aCampi(0))
sData = Trim(aCampi(1))

If Len(sData) = 10 And Mid(sData,3,1) = "/" And Mid(sData,6,1) = "/" Then
Dim nGiorno,nMese,nAnno
On Error Resume Next
nGiorno = Int(Split(sData,"/")(0))
nMese = Int(Split(sData,"/")(1))
nAnno = Int(Split(sData,"/")(2))
On Error GoTo 0

If nGiorno >= 1 And nGiorno <= 31 And _
nMese >= 1 And nMese <= 12 And _
nAnno >= 1997 And nAnno <= Year(Now) Then

Dim bValida : bValida = True
Dim i
For i = 2 To 9
Dim nValore
nValore = Int(Trim(aCampi(i)))
If nValore < 0 Or nValore > 90 Then
bValida = False
Exit For
End If
Next

If bValida Then
Dim aNumeri
ReDim aNumeri(8)
For i = 1 To 6
aNumeri(i) = Int(Trim(aCampi(i + 1)))
Next
aNumeri(7) = Int(Trim(aCampi(8)))
aNumeri(8) = Int(Trim(aCampi(9)))

Dim nID : nID = 0
On Error Resume Next
nID = CLng(sID)
On Error GoTo 0

Call SalvaEstrazioneSE(aNumeri,sData,nID,sFileBaseDati)
sNumEstrTrovate = sNumEstrTrovate + 1

If(sNumEstrTrovate Mod 500) = 0 Then
Call Messaggio("Estrazioni elaborate: " & sNumEstrTrovate)
End If
End If
End If
End If
End If
End If
Next
End If

Call EliminaFile(sFileLocale)

Call MsgBox("Aggiornamento completato con successo!" & vbCrLf & _
"Estrazioni totali importate: " & sNumEstrTrovate,vbInformation,"ARCHIVIO SUPERENALOTTO")
End Sub

Function DateTimeTest(eDate)
Dim DD,MM,YYYY : DD = Day(Now) : MM = Month(Now) : YYYY = Year(Now)
eDate = YYYY & Right("0" & MM,2) & Right("0" & DD,2)
End Function

Function ClockTimeTest(eClock)
Dim HH,MM,SS : HH = Hour(Now) : MM = Minute(Now) : SS = Second(Now)
eClock = Right("0" & HH,2) & Right("0" & MM,2) & Right("0" & SS,2)
End Function

 

[bubù]

Grazie mille, Silop.
Ho scaricato l'archivio del Superenalotto come da te indicato. Ora è aggiornato al 13/01.
Ho provato poi ad aggiornarlo a stasera come di consueto ma è fermo.
Forse devo aspettare ?

Vedi l'allegato 2311123

io lo uso e mi aggiorna puntualmente tutto l'archivio correttamente

 

[joe]

Lo script ... contiene il link a Git... e a Code...

Quello a code in questo momento non è accessibile.

Quello a code scarica l'archivio in formato testo. (basta cliccare il percorso).

L'ultima estrazione quella del 15 Gennaio 2026 ha un carattere in meno al fondo della linea.

Per questa ragione la mancanza di CR-LF a chiudere la linea in alcuni PC può dare problemi.

 

[Cinzia27]

Grazie, Silop. Infatti, ho fatto poco fà l'aggiornamento ed a posto.
Ringrazio Bubù, Lottophyton e Joe.
Certo, mi piacerebbe usare lo script nel caso fosse necessario, ma mi pare di capire
da Joe che vi può essere qualche problema o no?

 

[joe]

Ciao Cinzia,

tutto cambia velocemente.

Quando ho provato la situazione era quella che ho descritto.

Questa :



Nel mio PC lo script non era funzionante.

Successivamente non ho più provato.

 

[Cinzia27]

Va bè, per adesso funziona.
Poi al momento si vedrà.
Grazie ancora a tutti.

 

[vincenzo4221]

scusate se mi intrometto, Cinzia puoi usare lo script fatto da Lottopython

Option Explicit

'Aggiornamento Archivio DAT SuperEnalotto da GitHub o Codeberg (CSV: ID,data,n1-n6,jolly,superstar)
Sub Main
Dim sPercorsoLocale,sFileLocale
sPercorsoLocale = GetDirectoryTemp
CreaDirectory(sPercorsoLocale)
sFileLocale = sPercorsoLocale & "superenalotto_completo.csv"
Call EliminaFile(sFileLocale)

Dim sFileBaseDati : sFileBaseDati = GetDirectoryAppData & "BaseDatiSuperEna.Dat"

Dim eDate,eClock,sPercorsosFileBaseDatiBackup,sFileBaseDatiBackup
Call DateTimeTest(eDate) : Call ClockTimeTest(eClock)
sPercorsosFileBaseDatiBackup = GetDirectoryAppData & "Archivio SuperEnalotto\Backup\dat\"
CreaDirectory(sPercorsosFileBaseDatiBackup)
sFileBaseDatiBackup = sPercorsosFileBaseDatiBackup & "BaseDatiSuperEna.Dat.backup_Del_" & eDate & "_ore_" & eClock & ".bak"
If FileEsistente(sFileBaseDati) Then
Call CopiaFile(sFileBaseDati,sFileBaseDatiBackup)
End If

Dim sUrlCompleto,sScelta
sScelta = InputBox(_
"Scegli la fonte per il download delle estrazioni:" & vbCrLf & vbCrLf & _
"1 = GitHub (predefinito)" & vbCrLf & _
"2 = Codeberg (alternativo)" & vbCrLf & vbCrLf & _
"Inserisci 1 o 2:",_
"Scelta Fonte Download","1")

Select Case Trim(sScelta)
Case "2"
sUrlCompleto = "https://codeberg.org/Lottopython/SpaziometriaSuperenalotto/raw/branch/main/EstrazioniSuperenalotto"
Call Messaggio("Scelto download da Codeberg.")
Case Else
sUrlCompleto = "https://raw.githubusercontent.com/L...PAZIOMETRIA/refs/heads/main/superenalotto.txt"
Call Messaggio("Scelto download da GitHub (predefinito).")
End Select

Dim StrMessInfo
StrMessInfo = MsgBox("Ricreare l'intero archivio dal 1997?" & vbCrLf & _
"Verranno eliminate tutte le estrazioni esistenti.",vbQuestion + vbYesNo,"Conferma Ricreazione")
If StrMessInfo = vbNo Then
MsgBox "Operazione annullata dall'utente.",vbInformation
Exit Sub
End If
Call EliminaFile(sFileBaseDati)

If Not DownloadFromWeb(sUrlCompleto,sFileLocale) Then
MsgBox "Errore nel download del file da:" & vbCrLf & sUrlCompleto,vbCritical,"Errore Download"
Exit Sub
End If

If Not FileEsistente(sFileLocale) Then
MsgBox "File temporaneo non trovato dopo il download.",vbCritical
Exit Sub
End If

Dim aRighe,k,sNumEstrTrovate
sNumEstrTrovate = 0

If LeggiRigheFileDiTesto(sFileLocale,aRighe) Then
For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For

Dim sRiga : sRiga = Trim(aRighe(k))
If sRiga <> "" Then
Dim aCampi : ReDim aCampi(0)
Call SplitByChar(sRiga,",",aCampi)

If UBound(aCampi) = 9 Then
Dim sID,sData
sID = Trim(aCampi(0))
sData = Trim(aCampi(1))

If Len(sData) = 10 And Mid(sData,3,1) = "/" And Mid(sData,6,1) = "/" Then
Dim nGiorno,nMese,nAnno
On Error Resume Next
nGiorno = Int(Split(sData,"/")(0))
nMese = Int(Split(sData,"/")(1))
nAnno = Int(Split(sData,"/")(2))
On Error GoTo 0

If nGiorno >= 1 And nGiorno <= 31 And _
nMese >= 1 And nMese <= 12 And _
nAnno >= 1997 And nAnno <= Year(Now) Then

Dim bValida : bValida = True
Dim i
For i = 2 To 9
Dim nValore
nValore = Int(Trim(aCampi(i)))
If nValore < 0 Or nValore > 90 Then
bValida = False
Exit For
End If
Next

If bValida Then
Dim aNumeri
ReDim aNumeri(8)
For i = 1 To 6
aNumeri(i) = Int(Trim(aCampi(i + 1)))
Next
aNumeri(7) = Int(Trim(aCampi(8)))
aNumeri(8) = Int(Trim(aCampi(9)))

Dim nID : nID = 0
On Error Resume Next
nID = CLng(sID)
On Error GoTo 0

Call SalvaEstrazioneSE(aNumeri,sData,nID,sFileBaseDati)
sNumEstrTrovate = sNumEstrTrovate + 1

If(sNumEstrTrovate Mod 500) = 0 Then
Call Messaggio("Estrazioni elaborate: " & sNumEstrTrovate)
End If
End If
End If
End If
End If
End If
Next
End If

Call EliminaFile(sFileLocale)

Call MsgBox("Aggiornamento completato con successo!" & vbCrLf & _
"Estrazioni totali importate: " & sNumEstrTrovate,vbInformation,"ARCHIVIO SUPERENALOTTO")
End Sub

Function DateTimeTest(eDate)
Dim DD,MM,YYYY : DD = Day(Now) : MM = Month(Now) : YYYY = Year(Now)
eDate = YYYY & Right("0" & MM,2) & Right("0" & DD,2)
End Function

Function ClockTimeTest(eClock)
Dim HH,MM,SS : HH = Hour(Now) : MM = Minute(Now) : SS = Second(Now)
eClock = Right("0" & HH,2) & Right("0" & MM,2) & Right("0" & SS,2)
End Function

grazie... si puo postare lo script anche per il lotto? ... non riesco a caricare più con lo script da www.lottologia....

 

[joe]

Ieri

grazie... si puo postare lo script anche per il lotto? ... non riesco a caricare più con lo script da www.lottologia....

Ciao Vincenzo,

Ieri come anche questa mattina quando ho provato poco fa, il sito non era accessibile.

Per questa ragione lo script non può funzionare.

 

[bubù]

grazie... si puo postare lo script anche per il lotto? ... non riesco a caricare più con lo script da www.lottologia....

Io ho aggiornato l'estrazione del Lotto con il programma del Bravo Lottophyton, se ho dei problemi uso lo script di Joe, qui c'è l'imbarazzo di scegliere grazie ai GENEROSI e BRAVISSIMI che ci offrono alternative tutte di 1^ categoria. Grazie di cuore a Tutti

 

[Juri]

Salve.

Come si aggiorna estrazione con script o altro per piacere?A me non va piu' con lo script del 2023.

Grazie.

 

[joe]

Salve.

Come si aggiorna estrazione con script o altro per piacere?A me non va piu' con lo script del 2023.

Grazie.

Quale script, non va più ?

Se lo alleghi, vedo cosa posso fare o cosa consigliarti.

 

[Juri]

Quale script, non va più ?

Se lo alleghi, vedo cosa posso fare o cosa consigliarti.

'Aggiornamento Archivio DAT SuperEnalotto da GitHub o Codeberg (CSV: ID,data,n1-n6,jolly,superstar)
Sub Main
Dim sPercorsoLocale,sFileLocale
sPercorsoLocale = GetDirectoryTemp
CreaDirectory(sPercorsoLocale)
sFileLocale = sPercorsoLocale & "superenalotto_completo.csv"
Call EliminaFile(sFileLocale)

Dim sFileBaseDati : sFileBaseDati = GetDirectoryAppData & "BaseDatiSuperEna.Dat"

Dim eDate,eClock,sPercorsosFileBaseDatiBackup,sFileBaseDatiBackup
Call DateTimeTest(eDate) : Call ClockTimeTest(eClock)
sPercorsosFileBaseDatiBackup = GetDirectoryAppData & "Archivio SuperEnalotto\Backup\dat\"
CreaDirectory(sPercorsosFileBaseDatiBackup)
sFileBaseDatiBackup = sPercorsosFileBaseDatiBackup & "BaseDatiSuperEna.Dat.backup_Del_" & eDate & "_ore_" & eClock & ".bak"
If FileEsistente(sFileBaseDati) Then
Call CopiaFile(sFileBaseDati,sFileBaseDatiBackup)
End If

Dim sUrlCompleto,sScelta
sScelta = InputBox(_
"Scegli la fonte per il download delle estrazioni:" & vbCrLf & vbCrLf & _
"1 = GitHub (predefinito)" & vbCrLf & _
"2 = Codeberg (alternativo)" & vbCrLf & vbCrLf & _
"Inserisci 1 o 2:",_
"Scelta Fonte Download","1")

Select Case Trim(sScelta)
Case "2"
sUrlCompleto = "https://codeberg.org/Lottopython/SpaziometriaSuperenalotto/raw/branch/main/EstrazioniSuperenalotto"
Call Messaggio("Scelto download da Codeberg.")
Case Else
sUrlCompleto = "https://raw.githubusercontent.com/L...PAZIOMETRIA/refs/heads/main/superenalotto.txt"
Call Messaggio("Scelto download da GitHub (predefinito).")
End Select

Dim StrMessInfo
StrMessInfo = MsgBox("Ricreare l'intero archivio dal 1997?" & vbCrLf & _
"Verranno eliminate tutte le estrazioni esistenti.",vbQuestion + vbYesNo,"Conferma Ricreazione")
If StrMessInfo = vbNo Then
MsgBox "Operazione annullata dall'utente.",vbInformation
Exit Sub
End If
Call EliminaFile(sFileBaseDati)

If Not DownloadFromWeb(sUrlCompleto,sFileLocale) Then
MsgBox "Errore nel download del file da:" & vbCrLf & sUrlCompleto,vbCritical,"Errore Download"
Exit Sub
End If

If Not FileEsistente(sFileLocale) Then
MsgBox "File temporaneo non trovato dopo il download.",vbCritical
Exit Sub
End If

Dim aRighe,k,sNumEstrTrovate
sNumEstrTrovate = 0

If LeggiRigheFileDiTesto(sFileLocale,aRighe) Then
For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For

Dim sRiga : sRiga = Trim(aRighe(k))
If sRiga <> "" Then
Dim aCampi : ReDim aCampi(0)
Call SplitByChar(sRiga,",",aCampi)

If UBound(aCampi) = 9 Then
Dim sID,sData
sID = Trim(aCampi(0))
sData = Trim(aCampi(1))

If Len(sData) = 10 And Mid(sData,3,1) = "/" And Mid(sData,6,1) = "/" Then
Dim nGiorno,nMese,nAnno
On Error Resume Next
nGiorno = Int(Split(sData,"/")(0))
nMese = Int(Split(sData,"/")(1))
nAnno = Int(Split(sData,"/")(2))
On Error GoTo 0

If nGiorno >= 1 And nGiorno <= 31 And _
nMese >= 1 And nMese <= 12 And _
nAnno >= 1997 And nAnno <= Year(Now) Then

Dim bValida : bValida = True
Dim i
For i = 2 To 9
Dim nValore
nValore = Int(Trim(aCampi(i)))
If nValore < 0 Or nValore > 90 Then
bValida = False
Exit For
End If
Next

If bValida Then
Dim aNumeri
ReDim aNumeri(8)
For i = 1 To 6
aNumeri(i) = Int(Trim(aCampi(i + 1)))
Next
aNumeri(7) = Int(Trim(aCampi(8)))
aNumeri(8) = Int(Trim(aCampi(9)))

Dim nID : nID = 0
On Error Resume Next
nID = CLng(sID)
On Error GoTo 0

Call SalvaEstrazioneSE(aNumeri,sData,nID,sFileBaseDati)
sNumEstrTrovate = sNumEstrTrovate + 1

If(sNumEstrTrovate Mod 500) = 0 Then
Call Messaggio("Estrazioni elaborate: " & sNumEstrTrovate)
End If
End If
End If
End If
End If
End If
Next
End If

Call EliminaFile(sFileLocale)

Call MsgBox("Aggiornamento completato con successo!" & vbCrLf & _
"Estrazioni totali importate: " & sNumEstrTrovate,vbInformation,"ARCHIVIO SUPERENALOTTO")
End Sub

Function DateTimeTest(eDate)
Dim DD,MM,YYYY : DD = Day(Now) : MM = Month(Now) : YYYY = Year(Now)
eDate = YYYY & Right("0" & MM,2) & Right("0" & DD,2)
End Function

Function ClockTimeTest(eClock)
Dim HH,MM,SS : HH = Hour(Now) : MM = Minute(Now) : SS = Second(Now)
eClock = Right("0" & HH,2) & Right("0" & MM,2) & Right("0" & SS,2)
End Function


Oppure ne hai uno tu che va?

Grazie.

 

[Lottopython]

Anticipazione (Spoiler): Prova

'Aggiornamento Archivio DAT SuperEnalotto da GitHub o Codeberg (CSV: ID,data,n1-n6,jolly,superstar)
Sub Main
Dim sPercorsoLocale,sFileLocale
sPercorsoLocale = GetDirectoryTemp
CreaDirectory(sPercorsoLocale)
sFileLocale = sPercorsoLocale & "superenalotto_completo.csv"
Call EliminaFile(sFileLocale)

Dim sFileBaseDati : sFileBaseDati = GetDirectoryAppData & "BaseDatiSuperEna.Dat"

Dim eDate,eClock,sPercorsosFileBaseDatiBackup,sFileBaseDatiBackup
Call DateTimeTest(eDate) : Call ClockTimeTest(eClock)
sPercorsosFileBaseDatiBackup = GetDirectoryAppData & "Archivio SuperEnalotto\Backup\dat\"
CreaDirectory(sPercorsosFileBaseDatiBackup)
sFileBaseDatiBackup = sPercorsosFileBaseDatiBackup & "BaseDatiSuperEna.Dat.backup_Del_" & eDate & "_ore_" & eClock & ".bak"
If FileEsistente(sFileBaseDati) Then
Call CopiaFile(sFileBaseDati,sFileBaseDatiBackup)
End If

Dim sUrlCompleto,sScelta
sScelta = InputBox(_
"Scegli la fonte per il download delle estrazioni:" & vbCrLf & vbCrLf & _
"1 = GitHub (predefinito)" & vbCrLf & _
"2 = Codeberg (alternativo)" & vbCrLf & vbCrLf & _
"Inserisci 1 o 2:",_
"Scelta Fonte Download","1")

Select Case Trim(sScelta)
Case "2"
sUrlCompleto = "https://codeberg.org/Lottopython/SUPERENALOTTO-SPAZIOMETRIA/raw/branch/main/SUPERENALOTTO-SPAZIOMETRIA"
Call Messaggio("Scelto download da Codeberg.")
Case Else
sUrlCompleto = "https://raw.githubusercontent.com/Lottopython/SUPERENALOTTO-SPAZIOMETRIA/refs/heads/main/superenalotto.txt"
Call Messaggio("Scelto download da GitHub (predefinito).")
End Select

Dim StrMessInfo
StrMessInfo = MsgBox("Ricreare l'intero archivio dal 1997?" & vbCrLf & _
"Verranno eliminate tutte le estrazioni esistenti.",vbQuestion + vbYesNo,"Conferma Ricreazione")
If StrMessInfo = vbNo Then
MsgBox "Operazione annullata dall'utente.",vbInformation
Exit Sub
End If
Call EliminaFile(sFileBaseDati)

If Not DownloadFromWeb(sUrlCompleto,sFileLocale) Then
MsgBox "Errore nel download del file da:" & vbCrLf & sUrlCompleto,vbCritical,"Errore Download"
Exit Sub
End If

If Not FileEsistente(sFileLocale) Then
MsgBox "File temporaneo non trovato dopo il download.",vbCritical
Exit Sub
End If

Dim aRighe,k,sNumEstrTrovate
sNumEstrTrovate = 0

If LeggiRigheFileDiTesto(sFileLocale,aRighe) Then
For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For

Dim sRiga : sRiga = Trim(aRighe(k))
If sRiga <> "" Then
Dim aCampi : ReDim aCampi(0)
Call SplitByChar(sRiga,",",aCampi)

If UBound(aCampi) = 9 Then
Dim sID,sData
sID = Trim(aCampi(0))
sData = Trim(aCampi(1))

If Len(sData) = 10 And Mid(sData,3,1) = "/" And Mid(sData,6,1) = "/" Then
Dim nGiorno,nMese,nAnno
On Error Resume Next
nGiorno = Int(Split(sData,"/")(0))
nMese = Int(Split(sData,"/")(1))
nAnno = Int(Split(sData,"/")(2))
On Error GoTo 0

If nGiorno >= 1 And nGiorno <= 31 And _
nMese >= 1 And nMese <= 12 And _
nAnno >= 1997 And nAnno <= Year(Now) Then

Dim bValida : bValida = True
Dim i
For i = 2 To 9
Dim nValore
nValore = Int(Trim(aCampi(i)))
If nValore < 0 Or nValore > 90 Then
bValida = False
Exit For
End If
Next

If bValida Then
Dim aNumeri
ReDim aNumeri(8)
For i = 1 To 6
aNumeri(i) = Int(Trim(aCampi(i + 1)))
Next
aNumeri(7) = Int(Trim(aCampi(8)))
aNumeri(8) = Int(Trim(aCampi(9)))

Dim nID : nID = 0
On Error Resume Next
nID = CLng(sID)
On Error GoTo 0

Call SalvaEstrazioneSE(aNumeri,sData,nID,sFileBaseDati)
sNumEstrTrovate = sNumEstrTrovate + 1

If(sNumEstrTrovate Mod 500) = 0 Then
Call Messaggio("Estrazioni elaborate: " & sNumEstrTrovate)
End If
End If
End If
End If
End If
End If
Next
End If

Call EliminaFile(sFileLocale)

Call MsgBox("Aggiornamento completato con successo!" & vbCrLf & _
"Estrazioni totali importate: " & sNumEstrTrovate,vbInformation,"ARCHIVIO SUPERENALOTTO")
End Sub

Function DateTimeTest(eDate)
Dim DD,MM,YYYY : DD = Day(Now) : MM = Month(Now) : YYYY = Year(Now)
eDate = YYYY & Right("0" & MM,2) & Right("0" & DD,2)
End Function

Function ClockTimeTest(eClock)
Dim HH,MM,SS : HH = Hour(Now) : MM = Minute(Now) : SS = Second(Now)
eClock = Right("0" & HH,2) & Right("0" & MM,2) & Right("0" & SS,2)
End Function