Novità

PROGRAMMA SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Secondo me non ha mai funzionato e ripeto faccio copia degli archivi e quando capita aggiorno a mano
Nono, ti garantisco che a me l'ultima versione funzionava perfettamente da aggiornamento lottomatica, mi avuto problemi che invece ci sono come detto con aggiornamento archivi web.
Puoi dirmi come si fa con lo script?
Grazie.
 
Lo devi semplicemente lanciare lui aggiorna
ciao grazie del tuo lavoro , ma mi serve una mano a capire .... avendo 71 anni , mi difendo, ma con gli script sono una frana .... allora io ho copiato , incollato tra sub main e end sub ... ma poi come si lancia ? grazie per la tua risposta che attendo .... ( p.s. mi si era aggiornato fino al 14 06 .... poi non sono più riuscito ad aggiornare e così incautamente ho cliccato aggiorna da web .... eliminate tutte le estrazioni ...0000000 , ho disinstallato e reinstallato ma è fermo al 11 02 23 ) HELP
 
Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file
 
Screenshot 2025-06-20 002607.png

Ho lanciato con il fulmine ma mi è uscito quello che vedi sopra ... devo aver sbagliato qualche cosa Screenshot 2025-06-20 003013.png

ho scaricato il file Screenshot 2025-06-20 004055.png

lancio lo script, esce un barra, si accendono dei quadratini verdi , la data 2025 , poi va via tutto e mi compare la scritta non ho trovato nuove estrazioni
 
Dovete lanciare lo script dopo le 22 al massino le 23 perché il sito di lottologia non aggiorna subito.
Comunque posterò una procedura manuale anche.... Facile facile
 
Ultima modifica:
Procedura manuale di aggiornamento spaziometria
Nel file excel incollare la nuova estrazione
Inserire il numero successivo di estrazione a quello che vi indica spaziometria
inserire la data
Selezionare da A1 ad F12.....copiare
Aprire spaziometria.....Basedati-Lotto aggiornamento -manuale
Cliccare in basso nuova e incollare col pulsante incolla: verificate se tutto va bene data e numero estrazione.
L'estrazione si inserisce e in basso confermate e chiudete
 

Allegati

Geronimo,

per quanto riguarda il tuo problema devi considerare che per riempire un archivio,

che necessita di diverse centinaia di estrazioni non sono sufficienti solo quelle dell'ultimo anno.

Assieme a questa prima considerazione devi aggiungere che l'archivio di Lottologia è spezzettato in blocchi di 1 anno.

Dunque se ti servono estrazioni del 2022 / 2023 è necessario scaricare prima ed in ordine quelle degli anni mancanti.

Conseguentemente aggiornare un anno alla volta o modificare lo script per cercare di aggiornare periodi più lunghi.

E' più semplice utilizzare lo script per l'aggiornamento fatto per operare utilizzando l'archivio che Silop rende disponibile a tutti.

Però quando mancano diverse centinaia di estrazioni è meglio utilizzare direttamente un nuovo archivio aggiornato.

Così Silop ha spiegato dettagliatamente come correggere il problema:


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 @Mark555 ,
======================
per prendere l'archivio del lotto dall'altro pc dove lo hai aggiornato al 17/06/2025 su SPMT
segui questi semplici indicazioni:
1) apri SPMT (dove hai l'archivio aggiornato) clicca su "Base dati"
2) poi quasi infondo clicca su "Apri directory dati"
3) si apre una finestra dove ci sono gli archivi del lotto che tu hai aggiornati
4) seleziona e COPIA il file "BaseDati.dat"
5) lo metti lo INCOLLI su una chiavetta (o scheda) per poterlo trasportare sul pc diciamo "senza archivio"
6) inserisci la chiavetta (o una scheda) nel pc "senza archivio"
7) APRI IL PROGRAMMA SPMT e segui i punti 1) e 2)
8) si apre una finestra e qui
9) COPIA il file "BaseDati.dat" che hai sulla chiavetta
10) lo INCOLLI nella finestra appena aperta
11) se dice di SOVRASCRIVERE rispondi "SI"
12) chiudi SPMT e poi lo riapri di nuovo, se hai fatto TUTTO come ti ho consigliato, dovresti avere l'archivio del lotto AGGIORNATO.
Fammi sapere.
Poi siccome la Lottomatica ha ancora problemi, le estrazioni future le dovrai aggiornare con lo script di Joe che ti avevo allegato sopra.
Preciso, inoltre, che il link che ti ha consigliato il bravo Joe non ti ha trovato niente
è perché dovevi SOSTITUIRE la parolina "io" con il tuo nome che hai sul tuo pc.
x duplex: il bravo programmatore LuigiB ha abbandonato la sua "creatura" SPMT da alcuni anni e difficilmente metterà di nuovo mano per aggiornare il link della Lottomatica.
======================
Comunque se trovi difficoltà con le informazioni sopra descritte mi puoi contattare che ti mando l'archivio del lotto aggiornato.
Ringrazio per "i mi piace" : bubù
======================
Buon giovedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)

:) Un caro saluto a tutte/i.
 
Phil a parte i ringraziamenti, ma il file di aggiornamento archivi , ti da solo l'ultima estrazione ? Perché pensavo che mi avrebbe aggiornato dal 11 02 2023 fino ad oggi ,ma ho sempre l'archivio fermo al 2023 , come posso fare oppure sbaglio qualcosa ?
 
Geronimo,

prova con quest' altro script:

Codice:
'https://forum.lottoced.com/threads/aggiornamento-archivio-lotto-e-superenalotto-per-spaziometria-da-spazio-web-silop.2201398/post-2526199


Option Explicit
Sub Main
   'Agg_Silop V.3.3 del 6/05/2023
   '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
   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 "Script By Joe"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Ia = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 1 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)
               If b Then
                  If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
                  If Left(sDataEstr,4) <> Left(sDataLastEstr,4) 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 <> Left(sDataEstr,5) Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = Left(sDataEstr,5)
                              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("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
   Call Scrivi("Tempo Trascorso " & TempoTrascorso)

End Sub
 
Phil a parte i ringraziamenti, ma il file di aggiornamento archivi , ti da solo l'ultima estrazione ? Perché pensavo che mi avrebbe aggiornato dal 11 02 2023 fino ad oggi ,ma ho sempre l'archivio fermo al 2023 , come posso fare oppure sbaglio qualcosa ?
Lo script deve essere modificato a mano prima di lanciarlo.... Cioè dove leggi "anno - 1" ecco quell 1 indica che ti aggiornerà dal 2024.
Se cambi il numero in 3 ti aggiornerà dal 2023 e così via
 
Poi ogni programma ha il suo archivio anche testuale.
Lotto analyzer aggiorna anche manuale copia incolla
Archivio.dat di Igor mioblog aggiunge la data alla fine è io mi sono adeguato ad ogni programma. Però non usandolo tutti aggiorno solo L8 Spaziometria VL5 e analyzer
 
Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file
Scusa Phil, vediamo se in minima parte ho capito.
Io ora ho aggiornato l'archivio al 17-06, dopo che tu mi hai aiutato così gentilmente fornendomi i files inerenti.
Dici che per aggiornare l'archivio bisogna scaricare da Lottologia, immagino sia lottologia.com, sito che gli appassionati conoscono, ci sono molte informazioni e statistiche utili.

L'archivio, 2025, da lottologia si può scaricare in pdf, excel e txt. Dopo che l'ho scaricato, presumo in txt, apro gestione script e che faccio esattamente?
Tu hai risposto sopra, mi pare a geronimo:
"Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file."

E qui mi perdo...se non si deve copiare e incollare le estrazioni nello script per poi lanciarlo, cosa bisogna fare allora?
Ma ci sta non abbia capito nulla...
Grazie ancora.
 
questo aggiorna contemporaneamente superenalotto e lotto
Codice:
Option Explicit
Sub Main
 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),"-","")
 'Call Scrivi(id & " ",0,0)
 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)
 'Call Scrivi(sDataEstr)
 sV = Right(aRighe(k),110)
 'Call Scrivi (sV)
 ReDim aEstr(11,5)
 r = 1 : e = 0
 For x = 1 To 110 Step 2
 e = e + 1
 'Scrivi Mid(sVV,x,2) & " ",0,0
 aEstr(r,e) = Mid(sV,x,2)
 If e = 5 Then r = r + 1 : e = 0
 Next
 'ScriviMatrice(aEstr)
 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
 
Scusa Phil, vediamo se in minima parte ho capito.
Io ora ho aggiornato l'archivio al 17-06, dopo che tu mi hai aiutato così gentilmente fornendomi i files inerenti.
Dici che per aggiornare l'archivio bisogna scaricare da Lottologia, immagino sia lottologia.com, sito che gli appassionati conoscono, ci sono molte informazioni e statistiche utili.

L'archivio, 2025, da lottologia si può scaricare in pdf, excel e txt. Dopo che l'ho scaricato, presumo in txt, apro gestione script e che faccio esattamente?
Tu hai risposto sopra, mi pare a geronimo:
"Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file."

E qui mi perdo...se non si deve copiare e incollare le estrazioni nello script per poi lanciarlo, cosa bisogna fare allora?
Ma ci sta non abbia capito nulla...
Grazie ancora.
Da lottologia non devi scaricare nulla di fa tutto lo script.
Qui nel post hai già scaricato lo script che devi solo lanciare
Stop
 
questo aggiorna contemporaneamente superenalotto e lotto
Codice:
Option Explicit
Sub Main
 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),"-","")
 'Call Scrivi(id & " ",0,0)
 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)
 'Call Scrivi(sDataEstr)
 sV = Right(aRighe(k),110)
 'Call Scrivi (sV)
 ReDim aEstr(11,5)
 r = 1 : e = 0
 For x = 1 To 110 Step 2
 e = e + 1
 'Scrivi Mid(sVV,x,2) & " ",0,0
 aEstr(r,e) = Mid(sV,x,2)
 If e = 5 Then r = r + 1 : e = 0
 Next
 'ScriviMatrice(aEstr)
 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
MI da questo errore:
1750429340243.png
 
Da lottologia non devi scaricare nulla di fa tutto lo script.
Qui nel post hai già scaricato lo script che devi solo lanciare
Stop
Scusa non capisco, quale script ho scaricato che tu mi abbia indicato? Non vorrei tu mi confondessi con l'utente geronimo chi hai risposto prima.,
Lo script in realtà l'ho provato copiando quello dell'utente "me medesimo", vedi post sopra, ma come leggi mi da un errore.
Sono confuso e sono zero in programmazione, devi perdonarmi se non capisco.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24

Ultimi Messaggi

Indietro
Alto