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