aggiornamento L8

[vincenzo4221]

Ciao a tutti,
chiedo cortesemente di inviarmi un foglio di testo (.txt) con le estrazioni aggiornate ad oggi con inizio almeno dall'anno 2005.

(ho l'app di aggiornamento scaricata dal sito di Silop, ma aggiorna solo le ultime 18o estr.ni ed io ho un buco dal 2005)
(con uguale formattazione:10,03,2022,73,53,45,37,87,24,69,19,84,73,61,80,45,29,40,27,28,42,87,49,02,88,06,04,75,29,04,50,33,83,14,30,77,72,42,03,48,68,39,43,23,07,77,84,89,90,84,78,56,41,16,40,22,83,62,).

grazie anticipatamente
vincenzo

 

[Oscar]

Puoi scaricare il foglio in Excel per aggiornare
le estrazioni sono sempre aggiornate

http://lottoscar.altervista.org/Archivi/ArchivioL8_.xlsb

 

[joe]

Vincenzo, scusa se mi permetto rivolgendomi a te perché ... vale per tutti.

Trovo inopportuno e fastidioso che si aprano molti post diversi per chiedere le stesse cose,

senza mai dare importanza alle risposte già date.

Perché è molto "più utile" un post, di riferimento, dove ci sono domande, risposte e soluzioni specifiche ad un solo problema.

E' vero che aggiornare aggiungendo estrazioni ha dei limiti ed è un numero di estrazioni molto più piccolo di quelle dell'archivio completo.

Dunque ricostruire un archivio completo richiede più risorse, di tempo e di spazio di archiviazione.

Questo script, permette di creare un archivio COMPLETO PER L8+, DUPLICANDO QUELLO DI SPAZIOMETRIA.

Non richiede risorse esterne dunque se funzionano Spaziometria ed L8+ ... si riesce sicuramente ad avere un archivio per L8+.

Contiene le istruzioni che sono da eseguirsi con attenzione.

Però eseguendole ... in un minuto ... si ha l' ARCHIVIO COMPLETO ED AGGIRNATO PER L8+.

Option Explicit
Sub Main
  'Archivio_X_L8 V.2.0. script By Joe del 16/05/2023
  ' * * * * * * I M P O R T A N T E * * * * * * * * * * * * * * * *
  '
  ' * Aggiornare l' Archivio Lotto di Spaziometria.
  '
  ' A) ESEGUIRE QUESTO SCRIPT CON IL PROGRAMMA SPAZIOMETRIA.
  ' B) COPIARE IL PERCORSO CHE RESTITUISCE
  ' C) ESEGUIRE LE ISTRUZIONI PER IMPORTARE L'ARCHIVIO DI L8+
  '
  ' * * * * * * I M P O R T A N T E * * * * * * * * * * * * * * * *
  Dim Ini,Fin,Es
  Dim R,P
  Dim sFile
  Dim sEstrazione
  sFile =(GetDirectoryTemp & "Archivio_X_L8.txt") 'Specifica percorso di archiviazione
  Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
  Ini = 1 : Fin = EstrazioneFin
  For Es = Ini To Fin
     AvanzamentoElab Ini,Fin,Es
     sEstrazione = DataEstrazione(Es,,,".")
     For R = 1 To 12
        If R = 11 Then R = 12
        For P = 1 To 5
           sEstrazione = sEstrazione & "." & Format2(Estratto(Es,R,P))
        Next
     Next
     'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
     Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
  Next
  Call CloseFileHandle(sFile) ' chiudo l'handle al file
  'Call LanciaFile(sFile) ' Verifica il file, con il NotePad
  Scrivi "COPIARE QUESTO INDIRIZZO : " & Chr(13),1
  Scrivi sFile,1,,,2
  Scrivi
'ISTRUZIONI PER L'USO:
' * * * RIEPILOGO * * * I M P O R T A N T E * * * * * * * * * * *
'
' A) ESEGUIRE QUESTO SCRIPT CON IL PROGRAMMA SPAZIOMETRIA.
' B) COPIARE IL PERCORSO CHE RESTITUISCE
' C) ESEGUIRE ANCHE LE ISTRUZIONI RIPORTATE AL TERMINE DI QUESTO SCRIPT.
'
' * * * * * * I M P O R T A N T E * * * * * * * * * * * * * * * *
Scrivi "ESEGUIRE IL PROGRAMMA L8+"
Scrivi
Scrivi "IN L8+ Selezionare : ARCHIVIO / SCAMBIA ESTRAZIONI / IMPORTA ARCHIVIO"
Scrivi
Scrivi "Eseguire la procedura proposta da L8+  premendo sempre 'OK' :",1
Scrivi
Scrivi "File di testo ... premere 'OK' "
Scrivi "Caratteri separatori ... premere 'OK' "
Scrivi "Numero di caratteri da saltare ... 0 ... premere 'OK'"
Scrivi
Scrivi "Nella finestra di L8+ INCOLLARE IL PERCORSO fornito da questo script (in rosso)"
Scrivi "Premendo 'APRI' si avvia la procedura di IMPORTAZIONE DELL' ARCHIVIO."
Scrivi
Scrivi "Viene proposto che sia salvato come : 'archivio.itzbak' "
Scrivi "Confermare premendo 'SALVA' ed eventualmente confermare, che si intende sovrascrivere una vecchia coppia. "
Scrivi
Scrivi "*** OPERAZIONI FINALI NECESSARIE *** ",1
Scrivi
Scrivi "IN L8+ dal MENU ARCHIVIO / BACKUP / RIPRISTINA BACKUP"
Scrivi "Scegliere: 'archivio.itzbak' e confermare premendo 'APRI'"
Scrivi "Autorizzare la procedura premendo 'SI'"
Scrivi "Appare il messaggio con cui si ha conferma dell'installazione corretta del nuovo archivio."
Scrivi
Scrivi "FATTO!!,1

End Sub

 

[Oscar]

E' possibile scaricare anche solo le estrazioni mancanti in L8+


http://lottoscar.altervista.org/Archivi/Estrazioni-L8.xlsb

 

[vincenzo4221]

problema risolto definitivamente, GRAZIE A JOE e OSCAR...