Codice:
Option Explicit
Sub Main
'Archivio_X_L8.txt
'Script By Joe
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
sFile =("K:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
'Ini = 1 : Fin = 9376 'Verificato fino al 30 Settembre 2017
Ini = 1 : Fin = EstrazioneFin 'Tuttol'archivio
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
End Sub
Dopo aver eseguito questo script CON SPAZIOMETRIA....
ed aver creato L'ARCHIVIO ...si passa ad L8 per acquisirlo.
*** DAL MENU' ARCHIVIO di L8.
* SCEGLIAMO dapprima "Scambia Estrazioni" eppoi "Importa Archivio".
* SCEGLIAMO subito appresso "Archivio per Lotto" in "Formato Testo".
(Cioè l'archivio che abbiamo appena creato con lo script).
Si Confermano, TUTTE le opzioni di default che vengono proposte.
Ciò fatto ... il programma importa il nuovo archivio.
Nell’' evolversi di questa procedura, si vedranno conteggiate,
nel loro scorrere, tutte le Estrazioni del nostro File-archivio.
Contemporaneamente esso viene creato/trasferito/convertito nel formato rischiesto.
Al termine è notificata la creazione di un “BackUp” di questo nostro recente lavoro.
Leggiamo e teniamo a mente, il nome del nuovo file che è stato salvato sulla chiavetta.
Se si sono seguite le istruzioni che, avevo impartito non ci saranno messaggi di errore.
(In alternativa SE non si era rinominato il file esso potrebbe essere sovrascritto
e con questo andare cancellato il backup precedentemente fatto dell'archivio).
In estrema sintesi ora sulla chiavetta c'è ANCHE un NUOVO file.
Cioé "K:/Archivio***.***bak"
Non ci rimarrà che ripristinare questo nuovo/ultimo/corretto/aggiornato "BackUp" dell' Archivio,
così come lo abbiamo creato.
Questo "Percorso Inverso" è già stato descritto precedentemente.
Sarà Semplicemente Archivio / BackUp / Ripristina BackUp ...
si dovrà inserire o navigare al percorso” ove presente questo nostro nuovo archivio.
Nell'esempio era: "K:/Archivio***.***bak"
OK ... è necessario per confermare e terminare ... ed è fatto!
Consiglio di chiudere e riavviare il programma
per rendere pienamente attive tutte queste modifiche.