aggiornamento estrazioni lotto spaziometria 1.6.31

joe · 14 Settembre 2020

Ciao Sandrina,

Per navigare in internet usi Explorer?

sandrina50 · 14 Settembre 2020

Si anche ,ma ho fatto ,ho visto che riesce copiare con le estrazioni di lottoced..perfetto!!!

joe · 14 Settembre 2020

sandrina50 ha scritto:
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.

Xeroxs · 14 Settembre 2020

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 · 15 Settembre 2020

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.

sandrina50 · 15 Settembre 2020

joe ha scritto:

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

sandrina50 · 15 Settembre 2020

Xeroxs ha scritto:
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 · 15 Settembre 2020

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 · 15 Settembre 2020

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.

vincenzo4221 · 16 Settembre 2020

vincenzo4221 · 16 Settembre 2020

purtroppo a me non aggiorna.

joe · 16 Settembre 2020

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.

https://forum.lottoced.com/attachments/cattura3-png.2204855/

vincenzo4221 · 26 Settembre 2020

Grazie Joe, risolto!

roy · 17 Ottobre 2020

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

joe · 17 Ottobre 2020

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.

roy · 18 Ottobre 2020

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 · 18 Ottobre 2020

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 · 18 Ottobre 2020

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)

roy · 19 Ottobre 2020

Ok,ti saluto e ti ringrazio per la disponibilità

joe · 19 Ottobre 2020

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.

aggiornamento estrazioni lotto spaziometria 1.6.31

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member

Allegati

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<