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

DANNYGIRL · 9 Luglio 2023

joe ha scritto:
I sistemi automatici di aggiornamento se impostati per leggere

una estrazione il martedì, una il giovedì, ed una al sabato ... non leggono quella nuova (in più) del venerdì.

Come ho già avuto modo di scrivere è grazie al costante LAVORO di Silop ed Oscar ...

ed al controllo costante di molti utenti attenti (come te)

se riusciamo ad avere ARCHIVI MIGLIORI di quelli ottenibili dai siti istituzionali.

Buon pomeriggio joe !!! Ho visto solo ora che il programma spaziometria si è aggiornato in maniera esatta...compresa l'estrazione di venerdì 7 luglio. GRAZIE a te e a tutti coloro che hanno risposto al mio appello di AIUTO.. BUONA DOMENICA !!!

chicoalamar · 11 Luglio 2023

salve a tutti vorrei fare chiarezza per quanto riguarda l'aggiornamento archivio di spaziometria e L8+
per spaziometria lo aggiorno tramite script che in questo forum si trova.
per l8+ dal archivio estrazioni di spaziometria cliccando col maus su data col tasto destro, copia
aggiungi estrazione del programma l8+incolla dagli appunti e incolla il gioco e fatto , buona serata a tutti.

claudio8 · 11 Luglio 2023

chicoalamar ha scritto:
salve a tutti vorrei fare chiarezza per quanto riguarda l'aggiornamento archivio di spaziometria e L8+
per spaziometria lo aggiorno tramite script che in questo forum si trova.
per l8+ dal archivio estrazioni di spaziometria cliccando col maus su data col tasto destro, copia
aggiungi estrazione del programma l8+incolla dagli appunti e incolla il gioco e fatto , buona serata a tutti.

Se fai gli screenshot della procedura, forse è più chiaro.
Saluti

enry@62 · 5 Agosto 2023

Xeroxs ha scritto:
Questo è quello che ho utilizzato, grazie anche ai consigli del Bravo Mike58 e grazie anche a Joe per averlo revisionato.

Grazie, aggiornamento effettuato.

sogno · 5 Agosto 2023

Buon pomeriggio a tutti ho problemi con il programma spaziomertia che dal 01 agosto non mi aggioena piu le estrazioni ho l'ultima versione qualcuno puo aiutarmi grazie

joe · 5 Agosto 2023

Prova questo script :

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)
   If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True
   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
         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

riccardo cusumano · 5 Agosto 2023

ciao jpe potresti modificare il tuo script estrazioni lotto per il superenalotto dato che su lottologia esiste archivio superenalotto formato txt. grazie

sogno · 5 Agosto 2023

joe ha scritto:

Prova questo script :

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)
   If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True
   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
         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

Grazie ma mi puoi spiegere dove devo inserirlo tutto questo non sono pratico

ANGIE1911 · 5 Agosto 2023

Ciao a tutti e benritrovati come sempre innanzitutto.

Dopo i problemi dello scorso mese e seguendo le vostre indicazioni , ero riuscita ad AGGIORNARE le estrazioni di Spaziometria collegandomi a http://lottoscar.altervista.org/Archivi/BaseDati.dat - poiché da SILOP non più scaricabile.

Ma ora SONO BLOCCATA al 29 Luglio . Nessun aggiornamento. Vedo che molti di voi hanno risolto con gli SCRIP

Ma io che non li so usare ....come devo fare???

Vi prego di non dirmi che devo rinunciare a Spaziometria.

A proposito che fine ha fatto il simpatico SILOP?

Credo di aver bisogno di aiuto....🧡🧡💛

Oscar · 5 Agosto 2023

ANGIE1911 ha scritto:
Ciao a tutti e benritrovati come sempre innanzitutto.

Dopo i problemi dello scorso mese e seguendo le vostre indicazioni , ero riuscita ad AGGIORNARE le estrazioni di Spaziometria collegandomi a http://lottoscar.altervista.org/Archivi/BaseDati.dat - poiché da SILOP non più scaricabile.

Ma ora SONO BLOCCATA al 29 Luglio . Nessun aggiornamento. Vedo che molti di voi hanno risolto con gli SCRIP

Ma io che non li so usare ....come devo fare???

Vi prego di non dirmi che devo rinunciare a Spaziometria.

A proposito che fine ha fatto il simpatico SILOP?

Credo di aver bisogno di aiuto....🧡🧡💛

Qui trovi l'aggiornamento e scarica da Lottomatica e vedi che va benissimo
https://forum.lottoced.com/threads/programma-spaziometria.119980/

ANGIE1911 · 5 Agosto 2023

Grazie Oscar per la veloce risposta

Ma ti pareva...NON sono tra i fortunati ....subito errori. Quanto mi ci vorrà a risolvere?

joe · 5 Agosto 2023

In questo video trovato in rete è descritto come eseguire lo script.

* Lo script è il testo che devi copiare dal mio messaggio precedente.
*Poi apri l'editor degli script come insegnato subito all'inizio del video.
*NELLA FINESTRA VUOTA (cioè nella pagina bianca e COMPLETAMENTE SVUOTATA) incolli TUTTO il testo copiato.
*Fatto questo puoi eseguire lo script e si dovrebbe aggiornare l'archivio.
*Per eseguirlo basta premere il pulsante con il Fulmine colore giallo.
*Se tutto funziona bene salvi questo script (premendo l'icona con il simbolo del dischetto)
attribuendogli un nome significativo ad esempio: "Aggiornamento Archivio Lotto"

Successivamente potrai rileggere lo script presente nella memoria del tuo PC ed eseguirlo come
descritto nell'ultima parte del video.

Esempio Video

DANNYGIRL · 5 Agosto 2023

Oscar ha scritto:
Qui trovi l'aggiornamento e scarica da Lottomatica e vedi che va benissimo
https://forum.lottoced.com/threads/programma-spaziometria.119980/

Buona sera Oscar. Ho fatto tutto quello che hai spiegato , ma mi compare questa scritta. Grazie se vorrai aiutarmi.

Oscar · 5 Agosto 2023

DANNYGIRL ha scritto:
Buona sera Oscar. Ho fatto tutto quello che hai spiegato , ma mi compare questa scritta. Grazie se vorrai aiutarmi.

Non devi aggiornare da li , ma da lottomatica

DANNYGIRL · 6 Agosto 2023

Ciao Oscar !! Intanto appena apro il programma mi compare questo.

DANNYGIRL · 6 Agosto 2023

Poi di seguito....

DANNYGIRL · 6 Agosto 2023

E a questo punto non so proprio cosa fare. Grazie per la tua pazienza e buona notte.

Oscar · 6 Agosto 2023

Probabilmente l'archivio è danneggiato , quindi devi fare prima l'aggiornamento che usavi prima che ti virnr sostituito l'archivio fino aql 29/07/2023 , poi aggiorni da Lottomatica

sogno · 6 Agosto 2023

joe ha scritto:

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)
If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True
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
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

Oscar ha scritto:
Non devi aggiornare da li , ma da lottomati

joe ha scritto:

In questo video trovato in rete è descritto come eseguire lo script.

* Lo script è il testo che devi copiare dal mio messaggio precedente.
*Poi apri l'editor degli script come insegnato subito all'inizio del video.
*NELLA FINESTRA VUOTA (cioè nella pagina bianca e COMPLETAMENTE SVUOTATA) incolli TUTTO il testo copiato.
*Fatto questo puoi eseguire lo script e si dovrebbe aggiornare l'archivio.
*Per eseguirlo basta premere il pulsante con il Fulmine colore giallo.
*Se tutto funziona bene salvi questo script (premendo l'icona con il simbolo del dischetto)
attribuendogli un nome significativo ad esempio: "Aggiornamento Archivio Lotto"

Successivamente potrai rileggere lo script presente nella memoria del tuo PC ed eseguirlo come
descritto nell'ultima parte del video.

Esempio Video

Clicca per espandere...

Buongiorno grazie dei consigli sono riuscito ad aggiornare ma vedo che le estrazioni con corrispondono con quelle reali dal primo agosto consigli grazie e buona domenica

joe · 6 Agosto 2023

Ciao Sogno, buona domenica a tutte/i.

Puoi allegare l'elenco delle estrazioni che non coincidono

e meglio ancora indicare quali sono gli elenchi messi a confronto ?

Grazie.

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

Super member

Member

Allegati

Premium Member

Junior Member

Junior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Junior Member

Super Member >PLATINUM<

Advanced Member >GOLD<

Super Member >PLATINUM<

Allegati

Advanced Member >PLATINUM PLUS<

Super member

Allegati

Advanced Member >GOLD<

Super member

Allegati

Super member

Allegati

Super member

Advanced Member >GOLD<

Junior Member

Advanced Member >PLATINUM PLUS<