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

sandrino · Ieri alle 18:43

grazie

sandrino · Ieri alle 18:49

gentilmente per aggiornare le estrazioni settimanali uso aggiorna lotto da web o lancio lo script

Alien. · Ieri alle 19:23

Si lo so sono un pò casinista acc..volevo dire alieno. .allora avrei risolto tutto ricominciamo da capo spaziometria mi andava benissimo solo che per errore ho cancellato una scheda gialla non mi faceva più vedere l'archivio ma con gli script aggiornavo tutto lotto,superenalotto , -.Sono un pò smanettone a volte sono "bra ...vino" ma sono astemio ho chiuso spaziometria poi son venuto qua su CED ho scaricato spaziomentria e "miracolo"adesso vedo pure l'archivio superenalotto ma................non mi sviluppa più gli script dopo aver messo lo script di joe puoi dire cosa faceva quello script dato che anche tu sei un "MAGO" IN QUESTO CAMPO. cosa è questo eliminato ? Call EliminaFile(sFile)

Reacher · Ieri alle 19:24

Salva lo script e lancialo il giorno dopo poiché non sempre aggiornano la stessa sera

joe · Ieri alle 20:07

Alien. ha scritto:
Si lo so sono un pò casinista acc..volevo dire alieno. .allora avrei risolto tutto ricominciamo da capo spaziometria mi andava benissimo solo che per errore ho cancellato una scheda gialla non mi faceva più vedere l'archivio ma con gli script aggiornavo tutto lotto,superenalotto , -.Sono un pò smanettone a volte sono "bra ...vino" ma sono astemio ho chiuso spaziometria poi son venuto qua su CED ho scaricato spaziomentria e "miracolo"adesso vedo pure l'archivio superenalotto ma................non mi sviluppa più gli script dopo aver messo lo script di joe puoi dire cosa faceva quello script dato che anche tu sei un "MAGO" IN QUESTO CAMPO. cosa è questo eliminato ? Call EliminaFile(sFile)

Lo script scarica una copia dell' archivio

e lo mette nella cartella di spaziometria.

È necessario cancellare il vecchio file per lasciare posto al nuovo.

Perché altrimenti il sistema operativo prima di scriverlo lo rinomina aggiungendo un numero progressivo.

Ed è così che ne avevi (cioè hai creato) 16 o più copie dell' archivio del SuperEnalotto senza aggiornare quella giusta.

Per il resto diciamo che non mi hai per nulla convinto sull'esito del non aver seguito i consigli.

PS & NB Cancellando l'archivio ... si cancella l'archivio. Niente di più niente di meno.

Lo script lo fa con cognizione di causa e per necessità e poi lo reinserisce "aggiornato".

Ergo c'è!

Invece :

Cancellando una cartella, si creano problemi.

Incollando copie di archivi su copie di archivi ... anche!

Va da sé che ... all'esito dell'anamnesi, la diagnosi è infausta.

geronimo · Ieri alle 20:52

sandrino ha scritto:
gentilmente per aggiornare le estrazioni settimanali uso aggiorna lotto da web o lancio lo script

lancia lo script

sandrino · Ieri alle 21:29

Grazie ancora

Alien. · Ieri alle 23:53

Ho trovato questo:

BaseDatiSuperEna.Dat.Dat l'errore è quel doppio Dat ?

Alien. · Oggi alle 00:17

joe perche hai cancellato lo script al messaggio 1000 ? è QUELLO CHE MI HA CREATO IL CORNETTO MA IO LO MANGIO VEGANO.

ED è QUESTO

Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDatiSuperEna.Dat" & """" & " --no-check-certificate www.silop.it/spaziometria/BaseDatiSuperEna.Dat"
Call EliminaFile(sFile)
Call ScriviFile(sFile,Riga)
Call LanciaFile(sFile)
End Sub

COSA HA ELIMINATO : Call EliminaFile(sFile)

******************************************************************************

Ciao Alien

prova a controllare se con questo script risolvi il problema :

Codice:
Rimosso dall' autore
Dopo averlo eseguito chiudi e poi riavvii Spaziometria e controlli se ha trovato l'ArchivioSE.

Ultima modifica: Ieri alle 22:48

Cinzia27 · Oggi alle 11:41

Ciao a tutti.
Questo script messo gentilmente a disposizione per l'aggiornamento dell'archivio del superenalotto funzionava,
ora però non aggiorna più. Ho l'archivio fermo al 23/04.
Si può fare qualcosa?
Un grazie a chi mi aiuta.

Ho l'archivio fermo

Codice:

Sub Main
   'ARCHIVIO_SUPERENALOTTO x Spaziometria
   'Script LuigiB-LottoPython-Joe V.4.3 del 12/02/2026
   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
 
         sUrlCompleto = "https://raw.githubusercontent.com/Lottopython/SUPERENALOTTO-SPAZIOMETRIA/refs/heads/main/superenalotto.txt"
         Call Messaggio("Scelto download da GitHub (predefinito).")
 
   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

silop2005 · Oggi alle 12:12

Cinzia27 ha scritto:
Ciao a tutti.
Questo script messo gentilmente a disposizione per l'aggiornamento dell'archivio del superenalotto funzionava,
ora però non aggiorna più. Ho l'archivio fermo al 23/04.
Si può fare qualcosa?
Un grazie a chi mi aiuta.

Ho l'archivio fermo

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

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 Cinzia ,

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

vedi il mio post #997 del 01/07/2026 mercoledì

puoi scaricare dal mio sito l'archivio intero del SuperEnalotto fino al 30/06/2026

poi con la versione SPMT 1.6.54 puoi fare l'aggiornamento in automatico.

Buon aggiornamento SE.

Ringrazio per "i mi piace": bubù, Ramco

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

Buon lunedì a tutto il forum.

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

A presto

Silop

Cinzia27 · Oggi alle 12:47

Grazie mille, Silop.
Sempre gentilissimo.
Ho seguito le tue indicazioni e ho l'archivio aggiornato al 04/07.

Alien. · Oggi alle 13:30

silop2005 ha scritto:
==============================================

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 Cinzia ,
======================
vedi il mio post #997 del 01/07/2026 mercoledì
puoi scaricare dal mio sito l'archivio intero del SuperEnalotto fino al 30/06/2026
poi con la versione SPMT 1.6.54 puoi fare l'aggiornamento in automatico.
Buon aggiornamento SE.
Ringrazio per "i mi piace": bubù, Ramco
==================== ==================================
Buon lunedì a tutto il forum.
======================

A presto
Silop

Ciao silop mi dai il link ho provato ma è in ristrutturazione e non trovo nulla hai un e mail, grazie.

Alien. · Oggi alle 13:36

l'archivio superenalotto c'è ma non sviluppa gli script del superenalotto e sono leggermente nel c....aos

silop2005 · 58 minuti fa

Alien. ha scritto:
Ciao silop mi dai il link ho provato ma è in ristrutturazione e non trovo nulla hai un e mail, grazie.

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

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 Alien ,

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

vedi con CALMA nell'immagine in fondo ci sta scritto il mio recapit

vedi il mio post #997 del 01/07/2026 mercoledì

Ringrazio per "i mi piace": Cinzia, alien

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

Buon lunedì a tutto il forum.

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

A presto

Silop

Cerca

Cerca

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

sandrino

Junior Member

sandrino

Junior Member

Alien.

Advanced Premium Member

Reacher

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

geronimo

Premium Member

sandrino

Junior Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Cinzia27

Advanced Premium Member

silop2005

Advanced Member >PLATINUM<

Cinzia27

Advanced Premium Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

silop2005

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi