Novità

aggiornamento estrazioni lotto spaziometria 1.6.31

joe

Advanced Member >PLATINUM PLUS<
Si anche ,ma ho fatto ,ho visto che riesce copiare con le estrazioni di lottoced..perfetto!!!

Ciao Sandrina,

E' la più laboriosa delle soluzioni ed anche quella con più operazioni manuali.

Cioè quella che può portare ad errori quali duplicazioni, mancanza di estrazioni, incompletezze ecc.

Comunque sia, se hai potuto risolvere "solo" così ...

do atto che è meglio che non riuscirci per niente.

Dunque pur senza l'affanno del non poter aggiornare il mio consiglio rimane quello,

di tentare di rendere funzionanti le soluzioni molto migliori che ti sono state proposte.

:)
 
Ultima modifica:

Xeroxs

Advanced Member >GOLD<
Ciao, Sandrina50
Scusa se ti rispondo solo ora, io avevo proposto quella soluzione per quelle due estrazioni, ma poi ho sempre eseguito in automatico dal programma gli aggiornamenti successivi, hai provato a farlo in automatico?
Io ho windows 10 aggiornato a settembre 2020...
 

joe

Advanced Member >PLATINUM PLUS<
Per facilitare, un pò le cose, allego uno script (di Luigi e del sottoscritto) ...

PER AGGIORNARE SPAZIOMETRIA ... E ... PER CHI HA PROBLEMI DI AGGIORNAMENTO.

E' stato provato con Xp / Vista Home e Premium / Windows 8 / Windows 10.

Funziona a TUTTI e OVUNQUE tranne a chi ha l'installazione standard di Spaziometria.

Costoro, non avendo problemi di aggiornamento lo possono ignorare.

CHI NON RIESCE AD AGGIORNARE può provare con questo script.

Codice:
Option Explicit
Sub Main
  Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
  sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
  sFileBackup = sDirFileDestLocal & ".bak"
  sPercorsoWget = GetDirectoryAppData & "wget.exe"
  sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
  sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
  nTimeoutSec = 60
  If FileEsistente(sPercorsoWget) Then
    If FileEsistente(sDirFileDestLocal) Then
      b = RinominaFile(sDirFileDestLocal,sFileBackup)
    Else
      b = True
    End If
    If b Then
      sFileBat = GetDirectoryTemp & "Download.bat"
      Call ScriviFile(sFileBat,sCommand,True,False)
      Call LanciaFile(sFileBat)
      Messaggio "Analisi Estrazioni"
      DataIni = Now
      Do While FileEsistente(sDirFileDestLocal) = False
        If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
      Loop
      If FileEsistente(sDirFileDestLocal) Then
        Call EliminaFile(sFileBackup)
        Call EliminaFile(sFileBat)
        CloseFileHandle(sUrl)
        AGG_S_III(sDirFileDestLocal)
      Else
        Scrivi "Attenzione !!!"
        Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
        Call RinominaFile(sFileBackup,sDirFileDestLocal)
      End If
    Else
      Scrivi "Attenzione !!!"
      Scrivi "Non è stato possibile creare il backup delle estrazioni"
    End If
  Else
    Scrivi "Attenzione !!!"
    Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
  End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
  'MsgBox sDirFileDestLocal
  Dim sFileLoc
  Dim nEstrTot,sDataLastEstr,k,r,e
  Dim sDataEstr,nNumEstr,nSalvate
  Dim b
  Dim sFileBd
  Dim sLink
  Dim Ia,N,sVV,X,T,D
  Dim CfrData
  'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
  b = False : N = False
  nSalvate = 0
  sFileBd = GetDirectoryAppData & "BaseDati.dat"
  sFileLoc = GetDirectoryAppData & "temp\"
  'If CreaDirectory(sDirFileDestLocal) Then
  Messaggio "Lettura Archivio Remoto ..."
  If FileEsistente(sDirFileDestLocal) Then
    T = Now
    Do While D <= 20
      D = DateDiff("s",T,Now)
      AvanzamentoElab 1,20,D
    Loop
    nEstrTot = EstrazioniArchivio
    sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
    Ia = IndiceAnnuale(nEstrTot)
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
    'MsgBox (UBound(aRighe))
    For k = 1 To UBound(aRighe) 'To 0 Step - 1
      ReDim aV(0) ': Scrivi Len(aRighe(k))
      If Len(aRighe(k)) = 118 Then
        sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
        sVV = Right(aRighe(k),110) ': Scrivi sVV
        If b Then
          If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
          If sDataEstr <> sDataLastEstr Then
            Ia = Ia + 1
            nNumEstr =(Ia)
            'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
            'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
            'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
            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
                'Scrivi Mid(sVV,x,2) & " ",0,0
                aEstr(r,e) = Mid(sVV,X,2)
                If e = 5 Then r = r + 1 : e = 0 ': Scrivi
              Next
              'ScriviMatrice(aEstr)
              If CfrData <> Left(sDataEstr,5) Then
                If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                  CfrData = Left(sDataEstr,5)
                  nSalvate = nSalvate + 1
                  Call Messaggio(nSalvate)
                End If
              Else
                ColoreTesto 2
                Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                ColoreTesto 0
              End If
            End If
            sDataLastEstr = sDataEstr
          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("")
  ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
  Call Scrivi("")
  Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
  Call Scrivi("")
  Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
  Call Scrivi("")
  Call Scrivi("Utilizzato Archivio del sito www.silop.it")
  Call Scrivi("")
  'End If
End Sub

Alla peggio alcuni non riusciranno ad AGGIORNARE le estrazioni ... neppure in questo modo.

Vedremo successivamente, con costoro (e con tutti gli altri), come renderlo funzionante.

:)
 
Ultima modifica:

sandrina50

Super Member >PLATINUM<
Per facilitare, un pò le cose, allego uno script (di Luigi e del sottoscritto) ...

PER AGGIORNARE SPAZIOMETRIA ... E ... PER CHI HA PROBLEMI DI AGGIORNAMENTO.

E' stato provato con Xp / Vista Home e Premium / Windows 8 / Windows 10.

Funziona a TUTTI e OVUNQUE tranne a chi ha l'installazione standard di Spaziometria.

Costoro, non avendo problemi di aggiornamento lo possono ignorare.

CHI NON RIESCE AD AGGIORNARE può provare con questo script.

Codice:
Option Explicit
Sub Main
  Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
  sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
  sFileBackup = sDirFileDestLocal & ".bak"
  sPercorsoWget = GetDirectoryAppData & "wget.exe"
  sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
  sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
  nTimeoutSec = 60
  If FileEsistente(sPercorsoWget) Then
    If FileEsistente(sDirFileDestLocal) Then
      b = RinominaFile(sDirFileDestLocal,sFileBackup)
    Else
      b = True
    End If
    If b Then
      sFileBat = GetDirectoryTemp & "Download.bat"
      Call ScriviFile(sFileBat,sCommand,True,False)
      Call LanciaFile(sFileBat)
      Messaggio "Analisi Estrazioni"
      DataIni = Now
      Do While FileEsistente(sDirFileDestLocal) = False
        If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
      Loop
      If FileEsistente(sDirFileDestLocal) Then
        Call EliminaFile(sFileBackup)
        Call EliminaFile(sFileBat)
        CloseFileHandle(sUrl)
        AGG_S_III(sDirFileDestLocal)
      Else
        Scrivi "Attenzione !!!"
        Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
        Call RinominaFile(sFileBackup,sDirFileDestLocal)
      End If
    Else
      Scrivi "Attenzione !!!"
      Scrivi "Non è stato possibile creare il backup delle estrazioni"
    End If
  Else
    Scrivi "Attenzione !!!"
    Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
  End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
  'MsgBox sDirFileDestLocal
  Dim sFileLoc
  Dim nEstrTot,sDataLastEstr,k,r,e
  Dim sDataEstr,nNumEstr,nSalvate
  Dim b
  Dim sFileBd
  Dim sLink
  Dim Ia,N,sVV,X,T,D
  Dim CfrData
  'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
  b = False : N = False
  nSalvate = 0
  sFileBd = GetDirectoryAppData & "BaseDati.dat"
  sFileLoc = GetDirectoryAppData & "temp\"
  'If CreaDirectory(sDirFileDestLocal) Then
  Messaggio "Lettura Archivio Remoto ..."
  If FileEsistente(sDirFileDestLocal) Then
    T = Now
    Do While D <= 10
      D = DateDiff("s",T,Now)
      AvanzamentoElab 1,10,D
    Loop
    nEstrTot = EstrazioniArchivio
    sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
    Ia = IndiceAnnuale(nEstrTot)
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
    'MsgBox (UBound(aRighe))
    For k = 1 To UBound(aRighe) 'To 0 Step - 1
      ReDim aV(0) ': Scrivi Len(aRighe(k))
      If Len(aRighe(k)) = 118 Then
        sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
        sVV = Right(aRighe(k),110) ': Scrivi sVV
        If b Then
          If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
          If sDataEstr <> sDataLastEstr Then
            Ia = Ia + 1
            nNumEstr =(Ia)
            'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
            'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
            'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
            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
                'Scrivi Mid(sVV,x,2) & " ",0,0
                aEstr(r,e) = Mid(sVV,X,2)
                If e = 5 Then r = r + 1 : e = 0 ': Scrivi
              Next
              'ScriviMatrice(aEstr)
              If CfrData <> Left(sDataEstr,5) Then
                If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                  CfrData = Left(sDataEstr,5)
                  nSalvate = nSalvate + 1
                  Call Messaggio(nSalvate)
                End If
              Else
                ColoreTesto 2
                Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                ColoreTesto 0
              End If
            End If
            sDataLastEstr = sDataEstr
          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("")
  ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
  Call Scrivi("")
  Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
  Call Scrivi("")
  Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
  Call Scrivi("")
  Call Scrivi("Utilizzato Archivio del sito www.silop.it")
  Call Scrivi("")
  'End If
End Sub

Alla peggio ad alcuni non riuscirà di AGGIORNARE ... neppure in questo modo.

Vedremo successivamente, con costoro e con tutti gli altri, come renderlo funzionante.

:)
Joe ciao ho copiato e salvato lo script sopra speriamo funzioni ti faccio vedere la risposta del programma....stasera vedremo se funziona grazie ciao
 

Allegati

  • X JOE.jpg
    X JOE.jpg
    47 KB · Visite: 18

sandrina50

Super Member >PLATINUM<
Ciao, Sandrina50
Scusa se ti rispondo solo ora, io avevo proposto quella soluzione per quelle due estrazioni, ma poi ho sempre eseguito in automatico dal programma gli aggiornamenti successivi, hai provato a farlo in automatico?
Io ho windows 10 aggiornato a settembre 2020...
Ciao Xeroxs,si , ma mi è stato utile x caricare le estrazioni in ritardo che avevo ho controllato e si sono incollate tutte perfettamente ...grazie... vedo comunque di risolvere il problema come mi ha consigliato Joe speriamo che corregga anche altri errori che ho visto comunque vi farò sapere ciao buona giornata
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Sandrina.

Se lo script si esegue senza errori è un buon segno.

La cosa migliore e più semplice (come giustamente hai scritto) è

ASPETTARE che ci siano NUOVE ESTRAZIONI SUL SITO DI SILOP.

Così sarà possibile verificare se, lo script, riesce a leggerle ed aggiungerle all'archivio.

In sintesi bisogna eseguirlo dopo le 21 del giorno in cui ci sono queste NUOVE estrazioni.

Però se ce ne sono PUO' AGGIUNGERE all'archivio TUTTE LE ESTRAZIONI MANCANTI.

Se lo script in alcuni computer ha segnalato errori, nei PC in cui è successo,

non funziona ed è necessario l'accorgimento al quale ho accennato.

:)
 

joe

Advanced Member >PLATINUM PLUS<
agg_.jpg

Come è evidente da questa immagine se lo script che ho inserito al messaggio #45 funziona

"AGGIORNA" aggiungendo all'archivio tutte le estrazioni mancanti (che erano 6).

Per renderlo funzionante nei computer dove non funzionasse occorre reperire 2 indirizzi.

Quello da cui prelevare una versione di Wget funzionante e quello in cui copiarlo.

Il primo è on-line "Gnu Wget for Windows",

il secondo lo si recupera con questo programmino.

Codice:
Sub Main
  Scrivi GetDirectoryAppData
End Sub

Dalla tabella presente nel web si può scegliere la Wget nella Versione 1.16.3 a 32 bit.

Giggio, oltre altri ed io l'abbiamo trovata attualmente funzionante da Xp a Win10.

(Con Vista ho provato e funziona anche la versione 1.20.3)

Effettuato il download del file Wget ed avendolo scompattato lo si può incollare

all'indirizzo fornito dal piccolo script. (Cioè assieme ai file di spaziometria)

Se si è fatto tutto bene, dovrebbe comparire una richiesta di autorizzazione a sovrascrivere il file Wget.

Naturalmente si deve sovrascrivere il vecchio Wget non funzionante.

Fatto tutto questo più difficile a scriversi che a farsi ...

Lo script dovrebbe funzionare.

:)
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ciao Vincenzo,

Il piccolo script al messaggio #49 dovrebbe darti un percorso più semplice.

In pratica sul tuo computer non funziona perchè Wget invece di essere e di scrivere

nella directory di Spaziometria si riferisce ad una -nuova cartella- presente tra gli script.

Cioè ha un percorso molto diverso da quello previsto.


:)
 
Ultima modifica:

roy

Super Member >PLATINUM<
ciao joe,ho lo stesso problema di Vincenzo,non ho capito dove inserire il piccolo script al messaggio 49,grazie
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Roy,

Lo script è al messaggio # 45

È un normale script e si esegue come tutti gli altri.

Se non aggiorna devi sostituire wget, perché

la versione che hai non va più bene.

:)
 
Ultima modifica:

roy

Super Member >PLATINUM<
Ciao Joe ,grazie x aver risposto, avevo la versione 1.6.31,è riuscivo ad aggiornare bene,ma dopo averlo "abbandonato" x 1 mese,nell'aggiornamento ha fatto flof e mi sono accorto che
 

roy

Super Member >PLATINUM<
Che non aggiornava,ho scaricato la nuova versione, mi sono accorto che x riempire l'archivio mancante replicava non ricordo quante ESTRAZIONI, 6,7(doppiava),ho scaricato lo script come Vincenzo e identici risultati, ora quel piccolo script lo copio normalmente e lo lancio e poi aggiorno con lo script precedente? Grazie
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Roy

Ripeto:

Lo script è al messaggio #45.

SE NON FUNZIONA devi cercare in internet una versione

del programma WGET adatta al tuo computer e scaricarla.

Poi con questa nuova versione appena scaricata devi sostituire

il programma Wget c'è nella cartella di Spaziometria.

Le istruzioni sul dove recuperarlo sono al messaggio #49

(Il programma di 3 righe ... non ti serve a nulla.

Serviva a Vincenzo per capire il perchè degli errori nei percorsi)

:)
 

joe

Advanced Member >PLATINUM PLUS<
Roy,

aggiungo una cosa.

Il programma di cui stiamo trattando AGGIORNA.

Cioè AGGIUNGE LE ESTRAZIONI MANCANTI all'archivio che c'è.

Quindi se c'è un archivio con degli errori,

questo archivio RIMANE CON ERRORI E

VENGONO SOLO AGGIUNTE LE ESTRAZIONI che mancano alla fine.

Dunque, se ci sono degli errori (duplicazioni / mancanze) in archivio

PRIMA si DEVONO CANCELLARE TUTTE LE ESTRAZIONI SBAGLIATE

CANCELLANDO TUTTO QUANTO E' SBAGLIATO

(buchi/estrazioni doppie/zeri ... errori di trascrizione ecc ecc)

DOPO si può usare questo script per aggiornare.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto