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 & "Lotto Italiano .ITL") 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
Ini = 1 : Fin = EstrazioneFin '9376 = Verificato fino al 30 Settembre 2017
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 LE ISTROZIONI 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 guidata :"
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 'archivio.itzbak' "
Scrivi "Confermare premendo 'SALVA' ed eventualmente confermare, che si intende sovrascrivere la vecchia copia. "
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 del nuovo archivio."
Scrivi
End Sub