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

[Juri]

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/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

Arriva fino al 9 gennaio come era prima e non aggiorna fino al 17,come mai?Era già al 9 gennaio.Vedo che parte dal 1997 dice.

Grazie.

 

[joe]

L'indirizzo all'archivio remoto per Git è sbagliato dunque,

lo script che di per sé è funzionante non trovando estrazioni ... non funziona.

Cosa c'entri lo script del 2023 ... proprio non lo so.

 

[Juri]

L'indirizzo all'archivio remoto per Git è sbagliato dunque,

lo script che di per sé è funzionante non trovando estrazioni ... non funziona.

Cosa c'entri lo script del 2023 ... proprio non lo so.

Puoi darmi uno script o altro che va bene,per piacere?Fino a 7 giorni fa aggiornava questo.

 

[joe]

Devi solo scrivere l'indirizzo giusto e lo script funziona.

Non ho il PC ma quei 3 puntini ed una parola a metà nell' indirizzo dell' archivio sono sicuramente sbagliati.

Ci devi mettete parole come lottopython Spaziometria fino a costruire il percorso corretto.

Qui il regolamento vieta di scriverlo per intero : Lottopython/SUPERENALOTTO-SPAZIOMETRIA/refs/heads

 

[cHeRe62]

Per Juri, prova lo script in allegato togli estensione txt. Ciao

 

[Juri]

Per Juri, prova lo script in allegato togli estensione txt. Ciao

Dove devo togliere estensione txt?Nel file e in che riga che non lo vedo?

Dice errore 1039 poi linea 117 e colonna 48 errore script.

Grazie.

 

[Lottopython]

non capisco perchè dovete ostinarvi a dire che non funziona piuttosto dite che non siete capaci è piu plausibile e poi se non avete idea di come aprire uno script d'aggiornamento come riuscite ad usare spaziometria nelle sue funzioni o utilizzare altri script ....bella domanda. finitela di dire che non funziona . Se avete problemi nella gestione ,nel download ,cercate di essere chiari e descrivete il problema chiaramente con fatti ,se non avete piacere ad utilizzarlo non utilizzatelo nessun problema ci sono gli script di altri molto piu bravi del sottoscritto ,ma scrivere non funziona francamente è alquanto puerile e sciocco ed è un insulto al mio tempo. Lo script è perfettamente operativo assieme alla applicazione .questo è tutto
============================================================
INIZIO AGGIORNAMENTO SUPERENALOTTO
Download in corso... per cortesia attendi il processo di aggiornamento

Totale estrazioni: 4130

Caricamento su GitHub...
GitHub: SUCCESSO

Caricamento su Codeberg...
Codeberg: SUCCESSO

============================================================
AGGIORNAMENTO SUPERENALOTTO COMPLETATO!
Script .ls creato in AutoRun e Script
Avvio Spaziometria...

Apertura Programma

 

[enzo1990]

Ciao a tutti,

non capisco perchè dovete ostinarvi a dire che non funziona piuttosto dite che non siete capaci è piu plausibile e poi se non avete idea di come aprire uno script d'aggiornamento come riuscite ad usare spaziometria nelle sue funzioni o utilizzare altri script ....bella domanda. finitela di dire che non funziona . Se avete problemi nella gestione ,nel download ,cercate di essere chiari e descrivete il problema chiaramente con fatti ,se non avete piacere ad utilizzarlo non utilizzatelo nessun problema ci sono gli script di altri molto piu bravi del sottoscritto ,ma scrivere non funziona francamente è alquanto puerile e sciocco ed è un insulto al mio tempo. Lo script è perfettamente operativo assieme alla applicazione .questo è tutto
============================================================
INIZIO AGGIORNAMENTO SUPERENALOTTO
Download in corso... per cortesia attendi il processo di aggiornamento

Totale estrazioni: 4130

Caricamento su GitHub...
GitHub: SUCCESSO

Caricamento su Codeberg...
Codeberg: SUCCESSO

============================================================
AGGIORNAMENTO SUPERENALOTTO COMPLETATO!
Script .ls creato in AutoRun e Script
Avvio Spaziometria...

Apertura Programma

Ciao a tutti, lo script funziona perfettamente. Grazie! Lottopython

 

[Juri]

non capisco perchè dovete ostinarvi a dire che non funziona piuttosto dite che non siete capaci è piu plausibile e poi se non avete idea di come aprire uno script d'aggiornamento come riuscite ad usare spaziometria nelle sue funzioni o utilizzare altri script ....bella domanda. finitela di dire che non funziona . Se avete problemi nella gestione ,nel download ,cercate di essere chiari e descrivete il problema chiaramente con fatti ,se non avete piacere ad utilizzarlo non utilizzatelo nessun problema ci sono gli script di altri molto piu bravi del sottoscritto ,ma scrivere non funziona francamente è alquanto puerile e sciocco ed è un insulto al mio tempo. Lo script è perfettamente operativo assieme alla applicazione .questo è tutto
============================================================
INIZIO AGGIORNAMENTO SUPERENALOTTO
Download in corso... per cortesia attendi il processo di aggiornamento

Totale estrazioni: 4130

Caricamento su GitHub...
GitHub: SUCCESSO

Caricamento su Codeberg...
Codeberg: SUCCESSO

============================================================
AGGIORNAMENTO SUPERENALOTTO COMPLETATO!
Script .ls creato in AutoRun e Script
Avvio Spaziometria...

Apertura Programma

Io ho windows 7 e non va se lo faccio partire come uso per gli script che vanno ancora.Si fa in altro modo o è il sistema operativo che non va?
Ho anche window 10 su questo pc da provare.
Perdonatemi se ho sbagliato qualcosa.
Grazie.

 

[joe]

Juri

È vero che tra i sistemi operativi ci sono differenze.

In particolare Win7 non ha la possibilità di utilizzare il protocollo https.

Quindi ha perso la possibilità di collegarsi a molti siti e di conseguenza di aggiornare Spaziometria.

Però LuigiB nella ultima versione di Spaziometria ha reso disponibile

l'aggiornamento anche per i vecchi PC e per chi utilizzava Spaziometria su macchine virtuali.

Quindi prima cosa da specificare è ANCHE quale versione del programma Spaziometria si sta usando.

Poi quale metodo di aggiornamento e quale script non funziona.

Senza almeno questo minimo di informazioni è IMPOSSIBILE avere una idea di come poter ipotizzare soluzioni.

 

[aldinobis]

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

Aggiornamento Lotto V.4.2 By Joe *** Utilizza Archivio lottoPython ***

Estrazioni trovate in Archivio Remoto 10788

Archivio Locale Aggiornato all' Estrazione N° 12 del 20/01/2026

- Sono state Aggiunte 1 Estrazioni -

GRAZIE DI CUORE
Aldo

 

[joe]

Aggiornamento Lotto V.4.2 By Joe *** Utilizza Archivio lottoPython ***

Estrazioni trovate in Archivio Remoto 10788

Archivio Locale Aggiornato all' Estrazione N° 12 del 20/01/2026

- Sono state Aggiunte 1 Estrazioni -

GRAZIE DI CUORE
Aldo

Ti ringrazio per il cortese riscontro.

Lo script anche se un pochino pasticciato, so che funziona bene,

perché come ho scritto, è il risultato, di "mille" correzioni e adattamenti.

PERO' :

Il titolo della discussione tuttavia indirizza all'archivio di Silop mentre questo script invece utilizza quello di LottoPython.

Dunque, funziona con Win 10 e con l'ultima versione di Spaziometria cioè con la 1.6.54 e l' Archivio di LottoPython.

Potrebbe avere problemi (non funzionare) con Win98 / XP / Win7 ecc. ecc.

SE NON FUNZIONA, chi riscontra problemi dovrebbe segnalare che si riferisce a questo script,

elencando la versione (come ha fatto Aldo) ed anche specificare quella del sistema operativo con il quale non funziona.