Novità

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

joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Silop.

Oggi ho provato ad aggiornare Spaziometria,

con Windows Vista, dal tuo sito, con l'archivio in formato testo.

Mi ha scaricato l'archivio ed aggiunto correttamente l'estrazione del 2/5/2023.

Questa sera proverò anche con Win 10 ed anche qui come ho scritto recentemente

nei messaggi relativi all'aggiornamento ad L8 ... funziona a dovere. Aggiorna.

Per l'utilizzo di questa "ruota di scorta" ci vuole un briciolo di accortezza nell'utilizzo.

Anche se un pochino più lenta, alla fin fine questa procedura consiste nell'eseguire uno script.

:)
 
bubù

bubù

Advanced Member >PLATINUM PLUS<
joe ha scritto:
Ciao Silop.

Oggi ho provato ad aggiornare Spaziometria,

con Windows Vista, dal tuo sito, con l'archivio in formato testo.

Mi ha scaricato l'archivio ed aggiunto correttamente l'estrazione del 2/5/2023.

Questa sera proverò anche con Win 10 ed anche qui come ho scritto recentemente

nei messaggi relativi all'aggiornamento ad L8 ... funziona a dovere. Aggiorna.

Per l'utilizzo di questa "ruota di scorta" ci vuole un briciolo di accortezza nell'utilizzo.

Anche se un pochino più lenta, alla fin fine questa procedura consiste nell'eseguire uno script.

:)
Clicca per espandere...
Grazie, joe illumina anche noi che non siamo all'altezza di voi maghi dei script 🙏
 
silop2005

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
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 SpazioLight.net V.1.0.38
======================
Ciao Joe ,
======================
vedi la posta
======================
Buon mercoledì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Bubù,

come detto, tempo fa con Silop avevamo predisposto e creato un archivio di scorta.

Silop lo ha mantenuto aggiornato sino ad oggi ed è ancora accessibile sul suo sito.

Dunque con uno script capace di leggerlo e di aggiornare Spaziometria ...

... in un paio di secondi ... il nostro Archivio del Lotto, si completa di tutte le estrazioni mancanti.

Immagine.png

:)
 
C

Cinzia27

Premium Member
Per questo non riuscivo ad aggiornare, mi dispiace tanto, Silop.
Speriamo che tu possa ripristinarlo e con l'aiuto anche di Joe che possiamo riprendere ad aggiornare l'archivio
di Spaziometria.
 
bubù

bubù

Advanced Member >PLATINUM PLUS<
joe ha scritto:
Ciao Bubù,

come detto, tempo fa con Silop avevamo predisposto e creato un archivio di scorta.

Silop lo ha mantenuto aggiornato sino ad oggi ed è ancora accessibile sul suo sito.

Dunque con uno script capace di leggerlo e di aggiornare Spaziometria ...

... in un paio di secondi ... il nostro Archivio del Lotto, si completa di tutte le estrazioni mancanti.

Vedi l'allegato 2258662

:)
Clicca per espandere...
Grazie joe, questo script è già fatto? se si può avere sarebbe perfetto. Personalmente non sono capace, mi limito a piccoli script per la maggior parte sommativi. Ciao e Buona giornata 👋
 
bubù

bubù

Advanced Member >PLATINUM PLUS<
Cinzia27 ha scritto:
Per questo non riuscivo ad aggiornare, mi dispiace tanto, Silop.
Speriamo che tu possa ripristinarlo e con l'aiuto anche di Joe che possiamo riprendere ad aggiornare l'archivio
di Spaziometria.
Clicca per espandere...
Ciao Cinzia27, io per ora ho fatto l'aggiornamento a mano del Lotto , speriamo che qualcuno ci dia qualche aiuto. Ciao 👋
 
joe

joe

Advanced Member >PLATINUM PLUS<
Buongiorno a tutte/i.

Questa sera, provo nuovamente lo script di cui vi ho scritto.

SE FUNZIONA CON WIN 10 ne inserisco una copia qui di seguito.

:)
 
joe

joe

Advanced Member >PLATINUM PLUS<
Buona serata a tutte/i.

Questo script AGGIORNA L'ARCHIVIO LOTTO di Spaziometria.

Codice: 
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

:)
 
Ultima modifica:
joe

joe

Advanced Member >PLATINUM PLUS<
Cinzia, ti ringrazio per la conferma.

Mi spiace, ma non ho mai avuto nessun interesse per altri giochi.

Non so come sia l'archivio, quanti siano i numeri, ecc, ecc,

Penso tuttavia che chi ha tempo e voglia, ha solo di adattare

tutti gli estratti e le stesse procedure alla struttura dell'archivio.

:)
 
silop2005

silop2005

Advanced Member >PLATINUM<
joe ha scritto:
Buona serata a tutte/i.

Questo script AGGIORNA L'ARCHIVIO LOTTO di Spaziometria.

Codice: 
Option Explicit
Sub Main
'Agg_Silop V.3.2 del 02/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"
   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

:)
Clicca per espandere...
==========================================
LOGOSILOP.gif
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 SpazioLight.net V.1.0.38
======================
AVVISO ,
======================
buone notizie
======================
con lo script di Joe [al post #154] è possibile aggiornare l'estrazione del lotto attuale prelevandola dal mio sito web silop,
che automaticamente aggiunge la nuova estrazione all'archivio : BaseDati.dat
sotto la directory di SPMT, l'ho provato e funziona benissimo
vedi immagine:
=====================
stickman.gif
lotto11.jpg
======================
Purtroppo, NON SARA' più possibile aggiornare con l'opzione
che si trova nel programma Spaziometria : "Aggiornamento da archivi web"
per i fatti esposti nei post precedenti.
======================
Unica raccomandazione per coloro che utilizzeranno lo script di Joe
e che dovranno adoperarlo DOPO LE ORE 21:00 / 21:30
perché ogni giorno dell'estrazione debbo aspettare che l'estrazione deve comparire nella pagina 786 del TELEVIDEO RAI
in modo che la posso mettere/caricare sul mio spazio web silop a DISPOSIZIONE DI TUTTI.
A volte la pagina del televideo la caricano con molto ritardo.
======================
Buon aggiornamento… grazie Joe
======================
Buon giovedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
X

Xeroxs

Advanced Member >PLATINUM<
Ciao, Cinzia27

Purtroppo per il Superenalotto devi farlo manualmente, sono pochi numeri, puoi copiarli anche da lottoced

https://www.lottoced.com/ è la home del sito vai all'estrazione del Super...

e li copi

dal:

Base Dati
aggiornamentosuperenalotto
manuale

Come prima cosa scrivi numero estrazione e data e poi ti scrivi i numeri.

se trovo altro lo pubblico volentieri

L'ideale sarebbe trovare una soluzione unica anche con un unico script che prelevi i dati e poi li riporta sul programma ma quì è totalmente fuori dalla mia capacità.

Intanto questo metodo di Joe che ringrazio come sempre per il suo supporto aiuta molti ad aggiornare il lotto.
Ringrazio anche Silop che fino ad oggi e che continua, ha dato un ottimo supporto.

Poi come detto spero in una soluzione più completa che il programma merita in quanto lo ritengo in assoluto il miglior programma del lotto free mai visto e che offre davvero tanto a tutta la nostra fantasia... e non aggiornarlo sarebbe davvero un peccato.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto