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

[joe]

Grazie credo di aver fatto tutto e ha funzionato
Io ho sempre usato gli script del Grande Joe e non ho mai avuto problemi ad aggiornare.
Grazie e Buona serata

Ti ringrazio per aver confermato il buon funzionamento dello script per aggiornare.

Le prove più recenti sono state rivolte a ripristinare l'archivio completo (ed anche aggiornato).

Perchè recentemente alcuni avendo sostituito quello di Spaziometria nel tentativo di aggiornarlo,

hanno importato archivi a metà (senza le estrazioni iniziali) o con delle estrazioni mancanti o errate.

Dunque allo script per aggiornare ho aggiunto la possibilità di creare l'archivio, dalla prima estrazione del 1871

alle oltre 10 mila Estrazioni attualmente avvenute.

DOPO AVER CANCELLATO ED ELIMINATO TUTTO L'ARCHIVIO CORROTTO,

Lo script invece di aggiungere "solo" le estrazioni alla fine, crea l'archivio completo di oltre 10 Mila Estrazioni.

Affiancato a questo, ho introdotto lo script per produrre il file.bat capace di scaricare l'archivio vero e proprio (BaseDati.dat),

che può essere immesso direttamente sovrascrivendo quello nella directory di Spaziometria senza necessità di altre elaborazioni.

Cioè per avere l'archivio che "tutti" hanno a corredo di Spaziometria e che è, da tempo, mantenuto aggiornato da Silop

 

[bubù]

Ti ringrazio per aver confermato il buon funzionamento dello script per aggiornare.

Le prove più recenti sono state rivolte a ripristinare l'archivio completo (ed anche aggiornato).

Perchè recentemente alcuni avendo sostituito quello di Spaziometria nel tentativo di aggiornarlo,

hanno importato archivi a metà (senza le estrazioni iniziali) o con delle estrazioni mancanti o errate.

Dunque allo script per aggiornare ho aggiunto la possibilità di creare l'archivio, dalla perima estrazione del 1871

alle oltre 10 mila Estrazioni attualmente avvenute dopo aver cancellato l'archivio corrotto.

Affiancato a questo, ho introdorro lo script per produrre il file.bat capace di scaricare l'archivio vero e proprio (BaseDati.dat),

che può essere immesso direttamente sovrascrivendo quello nella directory di Spaziometria senza necessità di altre elaborazioni.

Cioè per avere l'archivio che "tutti" hanno a corredo di Spaziometria e che è, da tempo, mantenuto aggiornato da Silop

Grazie a Te sei il primo della classe

 

[fillott0]

per un certo periodo ho usato lo script di joe e Silop per aggiornare Spaziometria in quanto non aggiornava più con il metotodo originario. Siccome già in passato era successo questo inconveniente e misteriosamente provando a aggiornare di nuovo nel modo tradizionale si era ripristinata la funzione propria ---- > 'Aggiorna da Web' ho voluto provare anche adesso e.... sono 2 aggiornamenti che me li fa regolarmente!!! Funge anche ad altri?

 

[Lottopython]

per un certo periodo ho usato lo script di joe e Silop per aggiornare Spaziometria in quanto non aggiornava più con il metotodo originario. Siccome già in passato era successo questo inconveniente e misteriosamente provando a aggiornare di nuovo nel modo tradizionale si era ripristinata la funzione propria ---- > 'Aggiorna da Web' ho voluto provare anche adesso e.... sono 2 aggiornamenti che me li fa regolarmente!!! Funge anche ad altri?

certo ho sempre usato l'aggiornamento automatico sia per il super enalotto sia per il lotto mai avuto intoppi. ovviamente dopo alcuni aggiornamenti eseguiti , , ogni metodo di utilizzo è valido ai fini dell'aggiornamento, credo che per la stragrande maggioranza di chi aggiorna lo script rimanga lo strumento piu semplice e pratico .

 

[joe]

per un certo periodo ho usato lo script di joe e Silop per aggiornare Spaziometria in quanto non aggiornava più con il metotodo originario. Siccome già in passato era successo questo inconveniente e misteriosamente provando a aggiornare di nuovo nel modo tradizionale si era ripristinata la funzione propria ---- > 'Aggiorna da Web' ho voluto provare anche adesso e.... sono 2 aggiornamenti che me li fa regolarmente!!! Funge anche ad altri?

certo ho sempre usato l'aggiornamento automatico sia per il super enalotto sia per il lotto mai avuto intoppi. ovviamente dopo alcuni aggiornamenti eseguiti , , ogni metodo di utilizzo è valido ai fini dell'aggiornamento, credo che per la stragrande maggioranza di chi aggiorna lo script rimanga lo strumento piu semplice e pratico .

Innanzi tutto, buona Domenica.

Volevo chiedervi (e se possibile in risposta allegare le immagini)

Scegliendo Aggiornamento Archivio e poi Tronca Archivio (ANCHE senza cancellare le Estrazioni) ...

Retrocedendo, la numerazione progressiva delle Estrazioni non rimane coerente con il valore congruo : 10742.10741.10740.10739.

Ho notato delle anomalie nella progressione naturale delle Estrazioni.

In questo esempio abbiamo 7191 invece di 10734.



Grazie

 

[mirapep]

per un certo periodo ho usato lo script di joe e Silop per aggiornare Spaziometria in quanto non aggiornava più con il metotodo originario. Siccome già in passato era successo questo inconveniente e misteriosamente provando a aggiornare di nuovo nel modo tradizionale si era ripristinata la funzione propria ---- > 'Aggiorna da Web' ho voluto provare anche adesso e.... sono 2 aggiornamenti che me li fa regolarmente!!! Funge anche ad altri?

Ciao,
ho provato ed ha eseguito l'aggiornamento

 

[joe]

Ciao,
ho provato ed ha eseguito l'aggiornamento

Ciao grazie,

però purtroppo senza dettagli non si sa cosa funziona.

Per questa ragone, ho descritto con precisione e con esempio grafico quale prova eseguire.

Riferendomi al problema della numerazione a seguito degli aggiornamenti fatti direttamente dal programma Spaziometria

con l'archivio "istituzionale" (per comprenderci, quello che è) da poco nuovamente "funzionante".

Lo script che Aggiorna con il file di testo ovvero con l'archivio che abbiamo creato con Silop, si sa che funziona.

 

[Lottopython]

Innanzi tutto, buona Domenica.

Volevo chiedervi (e se possibile in risposta allegare le immagini)

Scegliendo Aggiornamento Archivio e poi Tronca Archivio (ANCHE senza cancellare le Estrazioni) ...

Retrocedendo, la numerazione progressiva delle Estrazioni non rimane coerente con il valore congruo : 10742.10741.10740.10739.

Ho notato delle anomalie nella progressione naturale delle Estrazioni.

In questo esempio abbiamo 7191 invece di 10734.

Vedi l'allegato 2308508

Grazie

Ciao grazie,

però purtroppo senza dettagli non si sa cosa funziona.

Per questa ragone, ho descritto con precisione e con esempio grafico quale prova eseguire.

Riferendomi al problema della numerazione a seguito degli aggiornamenti fatti direttamente dal programma Spaziometria

con l'archivio "istituzionale" (per comprenderci, quello che è) da poco nuovamente "funzionante".

Lo script che Aggiorna con il file di testo ovvero con l'archivio che abbiamo creato con Silop, si sa che funziona.

buona domenica .

ho effettuato alcune prove ,

-eliminato completamente gli archivi dalla prima all'ultima estrazione
-eliminato completamente l1.l2.3.4.5 fisicamente nella cartella spaziometria sarebbe base dati1 2.3.4.5 per capirci
.riavviato il sistema
.ho aggiornato da web e le estrazioni partivano dal 1939 ,ma sempre con lo stesso problema fino alla 10730 tutto ok poi si presentava l'anomalia riportata nell'immagine 7191.
-resettato nuovamente tutto ,
-Riavviato e a elenco 0 ho utilizzato questo script per ricostruire l'archivio reale lotto, e tutti gli altri archivi

Anticipazione (Spoiler): Script per Spaziometria V.4.0 di LuigiB & Giomi Rev by Joe

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

questo l'esito senza errori