Option Explicit
Sub Main
' >>> SCRIPT PER SPAZIOMETRIA <<<
' Agg_Arch_L8.txt V.3.2 del 19/09/2025
' Script By Joe / Chicco3 / Magia
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
''' 'C\: = 'Indirizzo' del supporto su cui sono scritte le estrazioni-aggiornate.
sFile = GetDirectoryAppData & "Agg_Arch_L8.txt" 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
Ini = EstrazioneFin - 179 : Fin = EstrazioneFin 'controlla/aggiorna le ultime 15 estrazioni
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 ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
Next
Call CloseFileHandle(sFile) ' chiudo l'handle al file
Scrivi "In L8 selezionare :"
Scrivi
Scrivi "* Archivio"
Scrivi
Scrivi "* Scambia Estrazioni"
Scrivi
Scrivi "* Importa Estrazioni ..."
Scrivi
Scrivi "* Copia questo indirizzo : ",0,0 : Scrivi sFile,1,,,2
Scrivi
Scrivi "* Incollalo nella finestrella. "
Scrivi
Scrivi "* Premere 'Apri'"
Scrivi
Scrivi "* Confermare con 'Ok' i messaggi del programma"
'
'Call LanciaFile(sFile) ' Eventuale Verifica del file.
End Sub