"AGGIORNAMENTI: Errore 62 e 91 dopo reset PC. Chiedo indicazioni risolutive (Python?)"

[Reacher]

Ciao Caro Joe ...è sempre un piacerissimo reincontrarti e poter contare su una 'colonna portante' (e che colonna!) del Forum. Guarda....Non ti dico QUANTE VOLTE ho provato ad INSERIRE i files dopo scaricati seguendo le istruzioni. Ho tentato sia da media fire con Reaserch che con i tuoi APPENA AGGIORNATI al 28 MARZO... Cosa succede nel mio PC resettato e in ottima forma??? LO DUPLICA....LO TRASFORMA...CREA FILE FANTASMI ......e anche se li RINOMINO ...non me li legge (ti posto un esempio di ieri) .Ecco perché pensavo di REINSTALLARLO. Ma dopo quel che mi dici (2 volte) ....ho tanti dubbi. Un Ultima cosa :non mi funziona neppure l'inserimento script...non me lo ricordavo così coplicato ...lo scorso anno. Mahhh...che complicazioni!....riproverò....Grazie Joe

Fammi sapere se sei disponibile

 

[joe]

Penso sia giusto il consiglio di Reacher.

Installare AnyDesk e fare controllare a lui,

da remoto, se è possibile recuperare la situazione.

Perché senza poter controllare cosa fa la macchina

e come risponde alle correzioni,

i consigli possono essere poco adatti.

 

[ANGIE1911]

Per il ripristino dell' archivio corrotto, si può provare ad usare questo script:

Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDati.dat" & """" & " --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati.dat"
Call EliminaFile(sFile)
Call ScriviFile(sFile,Riga,False,True)
Call LanciaFile(sFile)
Call EliminaFile(sFile)
End Sub

Se funziona correttamente, cancella l'archivio esistente e ne crea uno nuovo aggiornato a fine Novembre 2025.

Quindi automatizza semplificando tutte le operazioni più complicate. (Quelle di cui ai punti A & B del messaggio precedente)

Per AGGIORNARE si può usare lo script che si appoggia all' archivio presente sul sito di Lottologia.

Ciao JOE e salve a tutti --- ho CANCELLATO DALLA DIRECTORY TUTTI ibase dati con il tuo MINIFILE 2) ....poi ho inserito IL FILE SCARICATO DAL SITO DI SILOP Bene--arriva fino 14 Novembre (il precedente fino al 29) ---Ho cercato il TUO SCRIPT PER LOTTOLOGIA AGGIORNAMENTI ...più di un ora a PROVARE anche con aiuto AI e modifiche...NULLA SEMPRE ERRORI . Ecco dove ho preso lo SCRIPT per gli ultimi aggiornamenti vedi se è questo

 

[Reacher]

Puoi installare anydesk?

 

[ANGIE1911]

Fammi sapere se sei disponibile

Io da domani Giovedì posso essere disponibile....Mi dai una fascia oraria? .... Io direi anche FASCIA ORA PRANZO può andare altrimenti dopo le20.30 --Granzie Reacher...

 

[Reacher]

Ok alle 14 allora
Scarica anydesk tanto si usa senza installarlo

 

[ANGIE1911]

Io da domani Giovedì posso essere disponibile....Mi dai una fascia oraria? .... Io direi anche FASCIA ORA PRANZO può andare altrimenti dopo le20.30 --Granzie Reacher...

o altrimenti anche Venerdì...dimmi tu

 

[ANGIE1911]

Ok alle 14 allora
Scarica anydesk tanto si usa senza installarlo

BENISSIMO.....io scarico il programma ma poi...come interagiamo. Si può fare qui...o creiamo problemi ...sul Forum?

 

[Reacher]

È sufficiente fornirmi il codice che ti dà il programma
Ti lascerò il cell così ci sentiamo anche...

 

[joe]

Angie,

hai scritto cose un pochino strane.

In realtà quel piccolissimo script crea un file.bat e lo esegue.

Il File.bat scarica l'archivio dal sito di Silop e lo trasferisce a Spaziometria.

E ... da quanto hai scritto sembra funzionare.

Dunque dovrebbe aver ripristinato un buon Archivio Aggiornato a Novembre 2025.

Lo Script per aggiornare da Lottologia, ieri, funzionava.

NON ha bisogno di nessuna modifica.

Tanto meno di quelle fatte dalla l'I.A. che invece rovina gli script per Spaziometria.

Li rovina perché non conosce bene la sintassi ed il funzionamento delle sue istruzioni.

Dunque se ...

Non hai rovinato nuovamente l' Archivio scaricato dal sito di Silop, ti basta aggiornarlo.

Però per sicurezza e per evitare possibili errori futuri ...

Scarica nuovamente ed esegui nuovamente lo script ( piccolissimo ) e controlla che ci sia l'archivio fino al 20 Novembre 2025.

Poi ti fermi.

Ti inserirò, lo script per aggiornare da Lottologia dopo averlo provato (alle stesse condizioni).

Così, se hai risolto ... bene!

Diversamente Reacher, o altri, hanno possibilità di intervenire, da remoto, conoscendo,

cosa funziona, cosa no, quale è la situazione, come operare.

 

[joe]

Ciao JOE e salve a tutti --- ho CANCELLATO DALLA DIRECTORY TUTTI ibase dati con il tuo MINIFILE 2) ....poi ho inserito IL FILE SCARICATO DAL SITO DI SILOP Bene--arriva fino 14 Novembre (il precedente fino al 29) ---Ho cercato il TUO SCRIPT PER LOTTOLOGIA AGGIORNAMENTI ...più di un ora a PROVARE anche con aiuto AI e modifiche...NULLA SEMPRE ERRORI . Ecco dove ho preso lo SCRIPT per gli ultimi aggiornamenti vedi se è questo

Questo script ti scarica l'archivio di Silop.

Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDati.dat" & """" & " --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati.dat"
Call EliminaFile(sFile)
Call ScriviFile(sFile,Riga,False,True)
Call LanciaFile(sFile)
End Sub

Come già scritto L'archivio scaricato dal sito di Silop contiene Estrazioni fino al 20/11/2025.

Pertanto devi controllare che sia così e che Spaziometria non utilizzi archivi diversi.

Se è così ... esegui Questo script che AGGIORNA fino ad oggi.

Sub Main
   'Agg_Lottologia Script By Joe V.4.0 del 10/11/2025
   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)
   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
         If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
         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),"-","")
                     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)
                     sV = Right(aRighe(k),110)
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For x = 1 To 110 Step 2
                        e = e + 1
                        aEstr(r,e) = Mid(sV,x,2)
                        If e = 5 Then r = r + 1 : e = 0
                     Next
                     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

Come in evidenza, qui di seguito, ha aggiunto 75 estrazioni mancanti.

Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe

Sono state aggiunte 75 estrazioni

Estrazioni totali 10831

Utilizzato Archivio del sito www.lottologia.com

 

[ANGIE1911]

È sufficiente fornirmi il codice che ti dà il programma
Ti lascerò il cell così ci sentiamo anche...

Grande Reacher restiamo d'accordo così allora a fra POCO.....Grazie anticipate ..

 

[Reacher]

Ok a dopo

 

[ANGIE1911]

Ok a dopo 3478969340

OK A Fra poco ti aggangio prima whats app

 

[ANGIE1911]

Grazie Reacher mi sa dovrò fare reistallazione

Un GRAZIE grande....enorme ........come il mare per tutto l'aiuto ricevuto : Grandissimo Reacher che si è reso disponibilissimo e mi aiutato da maestro!! PROBLEMA INTERAMENTE RISOLTO -ci voleva resettaggio COMPLETO. GRAZIE GRAZIE GRAZIE Felicissima!

 

[Reacher]

Grazie a te!!!

 

[ANGIE1911]

Ringrazio anche Joe e Salvo50 per i loro consigli. Tanto! Purtoppo avevo un qualche 'conflitto' tra i file e ci voleva un resettaggio. Reacher è stato semplicemente grande !!! Finalmente posso riutillare il programma! Auff ...

 

[joe]

Ringrazio anche Joe e Salvo50 per i loro consigli. Tanto! Purtoppo avevo un qualche 'conflitto' tra i file e ci voleva un resettaggio. Reacher è stato semplicemente grande !!! Finalmente posso riutillare il programma! Auff ...

Ok, molto bene.

Sarebbe utile, anche ad altri sapere cosa avevi fatto e come si è potuto recuperare lo scompiglio nella gestione dei file.

Anche perché mi sembra di ricordare che altri/e aprivano gli script come fossero pdf avendo problemi simili a questo.

 

[Reacher]

Ho eseguito un installazione pulita eliminando e disinstallando il programma prima dal pannello di controllo e poi eliminando eventuali cartelle residue.
Quindi ho scaricato la mia cartella con programma e archivi aggiornati. Ho installato nuovamente (bisogna confermare anche installazione script host Windows control durante l'installazione di spaziometria).
All apertura creazione automatica degli indici degli archivi.
Sostituzione degli archivi con i miei.
Ho lanciato lo script di lottologia per l ultima estrazione.
E forse sbagliava a scegliere gestione script modifica invece di elabora...
Comunque tutto ok
Il disco era sano anche.

 

[joe]

Ho eseguito un installazione pulita eliminando e disinstallando il programma prima dal pannello di controllo e poi eliminando eventuali cartelle residue.
Quindi ho scaricato la mia cartella con programma e archivi aggiornati. Ho installato nuovamente (bisogna confermare anche installazione script host Windows control durante l'installazione di spaziometria).
All apertura creazione automatica degli indici degli archivi.
Sostituzione degli archivi con i miei.
Ho lanciato lo script di lottologia per l ultima estrazione.
E forse sbagliava a scegliere gestione script modifica invece di elabora...
Comunque tutto ok
Il disco era sano anche.

Ok.
Perfetto.
Grazie.