Aggiornamento con script di RAMCO

[Antonio Pagano]

Mi dà l'errore sotto allegato. Eppure ho sempre aggiornato qualcuno può aiutarmi a capire cos è successo. Grazie
ERRORE: il file storico.txt non trovato dopo la decompressione.
Verificare che PowerShell sia disponibile e che lo zip contenga 'storico.txt'.

 

[CICALOTTO]

https://www.brightstarlottery.it/STORICO_ESTRAZIONI_LOTTO/storico.zip

se provi a scaricare direttamente dal link, una volta decompresso, il file dovrebbe chiamarsi storico.txt
ma invece è scritto solamente storico quindi non lo aggiorna, bisogna forse chiedere a @Ramco

 

[Ramco]

Il problema risiede nel file 'storico' all'interno dello zip... molto probabilmente hanno caricato il file senza applicare l'estensione .txt, quindi di fatto la procedura non trova il file corretto. Per evitare di manomettere il listato (se non si è perfettamente a conoscenza delle procedure) consiglio di inserire quest'ultima estrazione manualmente e riprendere il normale aggiornamento attraverso lo script dalla prossima... Oppure ci si appoggia al sito di Silop a questo indirizzo https://www.silop.it/programma/confronto_lotto.html scaricando il file .dat portandolo in sostituzione nell'apposita cartella dove risiedono gli archivi.

 

[Lottopython]

Anticipazione (Spoiler): da verificare

da verificare:

dovrebbe risolvere rinominando storico a storico.txt ovviando al problema

1. Aggiungi questa dichiarazione di variabile insieme alle altre in cima al codice (subito sotto Dim oShell,oFSO):

 Dim sFileSenzaExt

Sostituisci il vecchio blocco di controllo del file (quello che dava l'errore se non trovava storico.txt) con questo nuovo blocco:
Cerca e cancella questo:

   If Not oFSO.FileExists(sDirTemp) Then
      Call Scrivi("ERRORE: il file storico.txt non trovato dopo la decompressione.",True,,,vbRed)
      Call Scrivi("Verificare che PowerShell sia disponibile e che lo zip contenga 'storico.txt'.",True)
      Set oFSO = Nothing
      Exit Sub
   End If
   Set oFSO = Nothing

Incolla questo al suo posto:

   ' --- Gestione rinomina file (da 'storico' a 'storico.txt') ---
   sFileSenzaExt = GetDirectoryTemp & "storico"
  
   If Not oFSO.FileExists(sDirTemp) Then
      If oFSO.FileExists(sFileSenzaExt) Then
         Call Messaggio("File 'storico' (senza estensione) rilevato. Rinomina in 'storico.txt' in corso...")
         oFSO.MoveFile sFileSenzaExt, sDirTemp
      Else
         Call Scrivi("ERRORE: il file storico.txt (o storico) non trovato dopo la decompressione.",True,,,vbRed)
         Call Scrivi("Verificare che PowerShell sia disponibile e che lo zip contenga 'storico' o 'storico.txt'.",True)
         Set oFSO = Nothing
         Exit Sub
      End If
   End If
   Set oFSO = Nothing

 

[Antonio Pagano]

Il problema risiede nel file 'storico' all'interno dello zip... molto probabilmente hanno caricato il file senza applicare l'estensione .txt, quindi di fatto la procedura non trova il file corretto. Per evitare di manomettere il listato (se non si è perfettamente a conoscenza delle procedure) consiglio di inserire quest'ultima estrazione manualmente e riprendere il normale aggiornamento attraverso lo script dalla prossima... Oppure ci si appoggia al sito di Silop a questo indirizzo https://www.silop.it/programma/confronto_lotto.html scaricando il file .dat portandolo in sostituzione nell'apposita cartella dove risiedono gli archivi.

Script per Spaziometria - Aggiornamento da LottoItalia/BrightStar

Sono state aggiunte 1 estrazioni

Estrazioni totali: 10959

Fonte: www.lotto-italia.it (archivio ufficiale BrightStar)

RAMCOLOTTO

Grazie Ramco tutto è andato come hai descritto tu. Grazie mille

 

[Antonio Pagano]

Anticipazione (Spoiler): da verificare

da verificare:

dovrebbe risolvere rinominando storico a storico.txt ovviando al problema

1. Aggiungi questa dichiarazione di variabile insieme alle altre in cima al codice (subito sotto Dim oShell,oFSO):

 Dim sFileSenzaExt

Sostituisci il vecchio blocco di controllo del file (quello che dava l'errore se non trovava storico.txt) con questo nuovo blocco:
Cerca e cancella questo:

   If Not oFSO.FileExists(sDirTemp) Then
      Call Scrivi("ERRORE: il file storico.txt non trovato dopo la decompressione.",True,,,vbRed)
      Call Scrivi("Verificare che PowerShell sia disponibile e che lo zip contenga 'storico.txt'.",True)
      Set oFSO = Nothing
      Exit Sub
   End If
   Set oFSO = Nothing

Incolla questo al suo posto:

   ' --- Gestione rinomina file (da 'storico' a 'storico.txt') ---
   sFileSenzaExt = GetDirectoryTemp & "storico"
 
   If Not oFSO.FileExists(sDirTemp) Then
      If oFSO.FileExists(sFileSenzaExt) Then
         Call Messaggio("File 'storico' (senza estensione) rilevato. Rinomina in 'storico.txt' in corso...")
         oFSO.MoveFile sFileSenzaExt, sDirTemp
      Else
         Call Scrivi("ERRORE: il file storico.txt (o storico) non trovato dopo la decompressione.",True,,,vbRed)
         Call Scrivi("Verificare che PowerShell sia disponibile e che lo zip contenga 'storico' o 'storico.txt'.",True)
         Set oFSO = Nothing
         Exit Sub
      End If
   End If
   Set oFSO = Nothing

Lottopython grazie anche a te. Ho salvato anche la tua procedura non si sa mai. Grazie ancora.​